VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码

问题描述:

VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码
代码要简单一点的,我才大一.

Private Sub Command1_Click()
Dim a(1 To 3) As Integer '定义数组
'生成随机数
For i = 1 To 3
Randomize
a(i) = Int(Rnd * (100 - 50 + 1) + 50)
Next
'冒泡法排列大小
For j = 1 To 2
For t = j + 1 To 3
If a(j) > a(t) Then
temp = a(t)
a(t) = a(j)
a(j) = temp
End If
Next
Next
'输出结果
For o = 1 To 3
MsgBox a(o)
Next
End Sub这个结果显示能不能像这样子:23 65 76,一起出来再窗体上For o = 1 To 3MsgBox a(o)Next改为print a(1) & space(1) & a(2) & space(1) & a(3)