Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i As Integer, j As Integer
For i = 1 To 10 '输入十个数
a(i) = InputBox("enter data 10个数")
Print a(i);
Next i
Print
For i = 10 To 2 Step -1 '用冒泡排序法对这十个数进行排序
For j = 1 To i - 1
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10 '输出验证
Print a(i);
Next i
End Sub
追问输入20个数至数组中,统计其中的奇数个数和偶数的个数 谢谢
追答你问题不是问的这个,请采纳了重新提问后我再帮你回答,本来你都没分!谢谢!
追问我错了。。。。我这从新提问