Question

VB 有text1和text2 两个文本框，在两框中任意输入数字，然后生成3个随机数，我的

Dim a As Integer, b As Integer, i As Integer, x(3) As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
For i = 1 To 3
x(i) = Int(Rnd(0 + a) * (b - 0))
Next i
我的这个生成出来一直都只是小于b的随机数，a的限制不行，谁来帮我改改

Answer 1

你要知道rnd得到的都是小于1的随机数
这样你就知道为什么了
至于你要生成什么随机数我没看明白
因为你的a好像没起到限制的作用 只起到了改变随机数的随机性

追问

就是说a为text1中的数，b为text2中的数，我要生成3个a与b之间的随机数，除了rnd还有其他的方法不

Answer 2

Private Sub Form_click()
Randomize
Print Int(Rnd * (b-a+1) + a)
End Sub

产生随机数要用randomize,不然每次产生的都一样
还有正确的格式应该是INT(RND*(b-a+1)+a)