为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中
显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer '生成 n 个随机数，存储在 a 数组，代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
For i = 2 To n
t = a(i) : j = i - 1
Do While t < a(j)
a(j + 1) = a(j) j = j – 1
If 
Then Exit Do ①
Loop
②
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}
图a
请回答下列问题:
图 b
图 c
图 a
图 b
实现上述功能的 VB 程序如下，请回答下列问题：
Dim xm(1 To 600) As String '存储学生姓名
Dim xx(1 To 600) As Integer '存储信息成绩
Dim ty(1 To 600) As Integer '存储通用成绩
Dim n As Integer '存储记录总数
Private Sub Form_Load()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在 List1 中显示'代码略
End sub
Private Sub Command1_Click()
Dim key As Integer, mid As Integer
Dim i As Integer, L As Integer, R As Integer, k As Integer
Dim tmp1 As String, tmp2 As Integer
'以“信息”为主要关键字、“通用”为次要关键字排序
For i = 1 To n - 1
k = i
For j = i + 1 To n
If xx(k) < xx(j) or {#blank#}1{#/blank#} Then
k = j
End If
Next j
If k <> i Then
tmp1 = xm(k) : xm(k) = xm(i) : xm(i) = tmp1
tmp2 = xx(k) : xx(k) = xx(i) : xx(i) = tmp2
tmp2 = ty(k) : ty(k) = ty(i) : ty(i) = tmp2
End If
Next i '查询记录
key = Val(Text1．Text) L = 1 : R = n
Do While L <= R
mid = (L + R) \ 2
If {#blank#}2{#/blank#} Then
L = mid + 1
Else
R = mid - 1
End If
Loop
List2．Clear
' vbTab 相当于是键盘上制表符 TAB 按键的功能
List2．AddItem "姓名" & vbTab & "信息" & vbTab & "通用"
For i = 1 to {#blank#}3{#/blank#}
List2．AddItem xm(i) & vbTab & xx(i) & vbTab & ty(i)
Next i
End sub
Private Sub Command1_Click()
Dim s As String, tmp As String, c As String
Dim n As Integer, i As Integer
Dim flag As Boolean
Dim cnt As Integer '存储符合条件的单词数
s = Text1．Text
n = Len(s)
flag = False
List1.Clear
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then
{#blank#}1{#/blank#}
If c = Text2．Text Then flag = True: cnt = cnt + 1
Else
If flag Then List1.AddItem tmp
tmp = ""
{#blank#}2{#/blank#}
End If
Next i
If cnt = 0 Then
List1．AddItem "找不到符合条件的单词．"
End If
End Sub
VIP申请
组卷通申请
