阿Q吧 > 编写程序VB，从键盘输入6个数放入数组,然后按照数值由大到小的顺序输

编写程序VB，从键盘输入6个数放入数组,然后按照数值由大到小的顺序输

2025-06-27 13:14:40

推荐回答（2个）

回答1：

Option Explicit

Private Sub Command1_Click()
Dim a(5) As Integer
Dim i As Long
For i = 0 To 5
 a(i) = InputBox("第" & i + 1 & "个数：")
Next
Dim t As Integer
Dim j As Long
For i = 0 To 5
For j = 0 To 4
 If a(j) > a(j + 1) Then
  t = a(j + 1): a(j + 1) = a(j): a(j) = t
 End If
Next j
Next i

For i = 0 To 5
 Print a(i)
Next

End Sub

回答2：

这个不太会呢。