题型:综合题 题类:常考题 难易度:困难
浙江省杭州市西湖高级中学2018-2019学年高二下学期信息技术5月月考试卷
Dim z(1 To 100) As Integer
Dim c(1 To 100) As Integer
‘文本框获取主、次数组数据代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i <= 99
j = 100
Do While
If z(j) > z(j - 1) Or Then
t = z(j): z(j) = z(j - 1): z(j - 1) = t
t = c(j): c(j) = c(j - 1): c(j - 1) = t
End If
j = j - 1
Loop
Loop
List1.AddItem " " + "主" + " " + "次"
For i = 1 To 100
List1.AddItem Str(z(i)) + Str(c(i))
Next i
End Sub
试题篮