Question

VB从键盘输入10到数组中,然后按照数值由大到小的顺序输出

VB从键盘输入10到数组中,然后按照数值由大到小的顺序输出

Answer 1

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个数至数组中，统计其中的奇数个数和偶数的个数 谢谢

追答

你问题不是问的这个，请采纳了重新提问后我再帮你回答，本来你都没分！谢谢！

追问

我错了。。。。我这从新提问

Answer 2

Private Sub Form_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = InputBox("输入")
Next i
For i = 1 To 10
p = i
For j = i + 1 To 10
If a(p) < a(j) Then p = j
Next j
t = a(i): a(i) = a(p): a(p) = t
Print a(i);
Next i

End Sub