题库 高中信息
题干
某社区为庆五一进行“摘草莓”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据草莓颗数进行排序，程序中所有参赛者的成绩保存在数组result中，对应的姓名保存在数组name中。
程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的排序部分的程序段如下：
Dim result(1 To 10) As Single
Dim name(1 To 10) As String
Private Sub Command1_Click( )
Dim I, J, K, X As Single, Y As String
For I =" 1" To 9
K = I
For J =" I" + 1 To 10
If ① Then K = J
Next J
If K <> I Then
X =" result(I)" : result(I) =" result(K)" : ②
Y =" name" (I) : name (I) =" name" (K) : name (K) = Y
End If
Next I
For I =" 1" To 10
List2.AddItem Str(result(i)) + " " + result(i)
Next i
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的排序部分的程序段如下：
Dim result(1 To 10) As Single
Dim name(1 To 10) As String
Private Sub Command1_Click( )
Dim I, J, K, X As Single, Y As String
For I =" 1" To 9
K = I
For J =" I" + 1 To 10
If ① Then K = J
Next J
If K <> I Then
X =" result(I)" : result(I) =" result(K)" : ②
Y =" name" (I) : name (I) =" name" (K) : name (K) = Y
End If
Next I
For I =" 1" To 10
List2.AddItem Str(result(i)) + " " + result(i)
Next i
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
答案(点此获取答案解析）
