VB问题！IF语句的！懂的来！

来源：百度知道 编辑：UC知道 时间：2024/05/18 21:46:19
要编写一段程序，
要求任一输入三个数字（用inputbox）。然后自动按大到小显示到窗体中。
大哥你确信你这个可行吗？是分别输入三个数字。然后通过内部的计算，要求用IF语句的！！！最后在FORM中安大到小打印出来。
大哥门啊！没有理解我的意思啊？
任一输入的数字，大小是不定的！然后排序排出来是要从大到小的。
天哪！谁来救救我！

后面回答的两位大哥，能否解释一下每一句的作用。谢了！！！！

Private Sub Command1_Click()
Dim AA() As String, Temp As String
Dim i As Long, j As Long
Dim MaxNumber As Long
MaxNumber = 3 '此处修改为任意的数据个数
ReDim AA(MaxNumber)
i = 1
Do
AA(i) = InputBox("请输入数字")
If IsNumeric(AA(i)) = True Then i = i + 1
If i = (MaxNumber + 1) Then Exit Do
Loop

For i = 1 To MaxNumber
For j = i + 1 To MaxNumber
If Val(AA(i)) < Val(AA(j)) Then
Temp = AA(i)
AA(i) = AA(j)
AA(j) = Temp
End If
Next
Next

For i = 1 To MaxNumber
Print AA(i)
Next
End Sub

Private Sub Command1_Click()
Dim a(1 To 3) As Integer

For i = 1 To 3
a(i) = InputBox("任意输入一个数")
Print a(i);
Next i
Print
For i = 1 To 2
If a(i) < a(i + 1)