Question

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

高手来啊！

Answer 1

我调试了，你看看

Dim upperbound, lowerbound As Integer
upperbound = Val(Text2.Text) 'upperbound 是随机数范围的上限
lowerbound = Val(Text1.Text) 'lowerbound 则是随机数范围的下限。
Text3.Text = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
</img>

Answer 2

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