怎么编呀

来源：百度知道 编辑：UC知道 时间：2024/09/23 15:25:53
编程实现输入3个数，按照从大到小的顺序输出。
请把程序PO出来，谢谢！

Private Sub Command1_Click()
Dim a(1 To 3), i, j, k
'输入
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "个数据：")
Next
'排序
For i = 1 To 3
For j = i + 1 To 3
If Val(a(j)) > Val(a(i)) Then
k = a(i)
a(i) = a(j)
a(j) = k
End If
Next
Next
'输出
For i = 1 To 3
Print a(i)
Next
End Sub

a=inputbox()
b=inputbox()
c=inputbox()

Dim a
Dim b
a = Array(5, 99, 33)

For i = 0 To 2
For j = i To 2
If a(i) >= a(j) Then
b = a(i)
a(i) = a(j) '冒泡排序
a(j) = b
End If
Next
Print a(i);
Next