题型:综合题 题类:常考题 难易度:普通
浙江省七彩阳光新高考研究联盟2020-2021学年高二下学期信息技术期中联考试卷
Dim n As Integer, a(1 To 100) As Integer
Private Sub Command1_Click()
Dim i As Integer
n = 14
Randomize
For i = 1 To n
a(i) =
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i, j, flag As Integer
List2.Clear
flag = 1
For i = 1 To n - 1
For j = n To i + 1 Step -1
If> 0 Then a(j) = a(j) + a(j - 1)
a(j - 1) = a(j) - a(j - 1)
End If
Next j
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
试题篮