vb生成随机数
输入x,随即生成数字20个数字y
要求x<y<1.5x。
其中x,y可以为小数,没有学过vb,可能有个什么随机数函数要用到,不会这段,求懂的帮写下。
参考答案:Private Sub Form_Load()
Randomize Timer
AutoRedraw = True
x = InputBox("输入一个数。")
For i = 1 To 20
Print Rnd * x / 2 + x
Next
End Sub
输入x,随即生成数字20个数字y
要求x<y<1.5x。
其中x,y可以为小数,没有学过vb,可能有个什么随机数函数要用到,不会这段,求懂的帮写下。
参考答案:Private Sub Form_Load()
Randomize Timer
AutoRedraw = True
x = InputBox("输入一个数。")
For i = 1 To 20
Print Rnd * x / 2 + x
Next
End Sub