VB程序 给任意5个数 从小到大次序打印出来

Question

如题所述

Answer 1

打开VB6.0在窗体上画一个命令按钮，然后双击按钮编写代码：
Option Base 1
Private Sub Command1_Click()
Dim arry(5) As Integer
Dim a, i, j As Integer
Dim b As Integer
For a = 1 To 5
arry(a) = Int((Rnd * 1000) + 1)
Next a
For i = 1 To 5
For j = 1 To 5 - i
If arry(j) > arry(j + 1) Then
b = arry(j + 1)
arry(j + 1) = arry(j)
arry(j) = b
End If
Next j
Next i
For i = 1 To 5
Print arry(i)
Next i
End Sub
保存后运行单击命令按钮5个数即可从小到大输出到窗体上

Answer 2

Dim a(4) '开始的五个数a(0)~a(4)
Dim i, j, result
Dim temp
For i = 0 To 4
a(i) = Val(InputBox("输入第" & (i + 1) & "个数"))
Next i
For i = 3 To 0 Step -1
For j = 0 To i
If a(j) > a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
Next j
Next i
For i = 0 To 4
result= result & a(i) & ", "
Next i
MsgBox result