题目

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

提问时间：2020-11-19

答案

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