Question

用VB设计：从键盘输入任意5个整数，按由小到大的顺序打印这5个数？

要求单击FORM，弹出文本框，叫输入数，5个数都输入后，FORM上打印由小到大打印出来。

Answer 1

简单的比较啊
for i = 1 to 5
a[i]=inputbox....
for i = 1 to 4
for j= i+1 to 5
if a[i]>a[j] then
m=a[i]
a[i]=a[j]
a[j]=m
next
next
for i = 1 to 5
print a[i]
next

Answer 2

Private Sub Command1_Click()
Cls
Dim yh(5) As Long
Dim p(5) As Long
For i = 1 To 5
Randomize
yh(i) = Int(Rnd() * 50) + 1
Next i
For m = 1 To 5
Print yh(m);
Next m
Print
xm = 1
For j = 1 To 5
For n = 1 To 5
If yh(j) > yh(n) Then xm = xm + 1
Next n

If p(xm) <> 0 Then xm = xm + 1
p(xm) = yh(j)
xm = 1
Next j
For r = 1 To 5
Print p(r);
Next r
End Sub