VB编程输出在指定范围内的3个随机数，范围在文本框中输入。

VB编程输出在指定范围内的3个随机数，范围在文本框中输入。

Private Sub Command1_Click()
Dim min As Integer
Dim max As Integer
Dim i As Integer
min = Val(Text1.Text)
max = Val(Text2.Text)
For i = 0 To 2
Randomize
Text3.Text = Text3.Text & Int(Rnd * (max - min) + min) & " "
Next
End Sub

我调试了，你看看
Dim upperbound, lowerbound As Integer
upperbound = Val(Text2.Text) 'upperbound 是随机数范围的上限
lowerbound = Val(Text1.Text) 'lowerbound 则是随机数范围的下限。
Text3.Text = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！