题型：综合题 题类：模拟题 难易度：困难
浙江省普通高校招生信息技术选考模拟卷（三）
为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0,9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2 中显示经过上述排序算法后的数据。运行结果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(10) As Integer '数组a表示桶的编号，如a(0)表示第0号桶
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 0 To 10
For j = 1 To 
①
List2.AddItem CStr(i)
Next j
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
Randomize
For i = 0 To 10 '将数组初始化为0
a(i) = 0
Next i
For i = 1 To 6 '产生6个[0,9]的随机数
t = Int(Rnd * 10)
a(t) = 
'第t桶中小旗子数量加1 ②
List1.AddItem CStr(t)
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 Commandl_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（j）） 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
⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}
试题篮
