题型：综合题 题类：常考题 难易度：普通
浙江省温州新力量联盟2020-2021学年高二下学期信息技术期中联考试卷
请回答下列问题：
Dim ty(1 To 100) As Integer Dim name(1 To 100) As String Dim cj(1 To 100) As Integer Dim n As Integer
Private Sub Form_Load()
'本过程读取类型、名称和票数的数据分别存储在数组 ty，name和cj中，
'并在List1中显示，代码略
End Sub
Private Sub Command1_Click( )
Dim i As Integer, j As Integer, m As Integer,t1 As Integer, t2 As String
i = 1
Do While i <= n – 1 '先将类型1的节目进行排序
For j = n To i + 1 Step -1
If ty(j) = 1 Then
IfThen
t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1
t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1
t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2
End If
End If
Next j
IfThen m = m + 1
i = i + 1
Loop
For i = 1 To 2
List2.AddItem Str(ty(i)) + name(i) + " " + Str(cj(i))
Next i
For i = 
For j = n To i + 1 Step -1
IfThen
t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1
t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1
t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2
End If
Next j
List2.AddItem Str(ty(j)) + name(j) + " " + Str(cj(j))
Next i
End Sub
|
排序前 |
86 |
71 |
5 |
41 |
81 |
79 |
37 |
89 |
|
排序后 |
5 |
37 |
41 |
71 |
79 |
89 |
86 |
81 |
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n=8
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer，j As Integer，k As Integer，t As Integer
Dim flag As Boolean
‘读取一组正整数，存储在数组a中。代码略
For i=1 To n-1
‘(1)
If IsPrime(a(k))Then flag=True Else flag=False
For j=i+1 To n
If IsPrime(a(i))Then
If 
Then ‘(2)
k=j
flag=True
End If
End If
Next j
If k<>i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
If Not flag Then Exit For ‘Exit For表示退出循环
Next i
‘依次输出排序后的数据。代码略
End Sub
Function IsPrime(m As Integer)As Boolean
‘本函数判断m是否是素数：是素数返问值为True，不是素数返回值为False
‘代码略
End Function
试题篮
Then {#blank#}1{#/blank#}
{#blank#}2{#/blank#}
Then '①
Step 2 '②
