VB在区间取随机数的函数

来源：百度知道 编辑：UC知道 时间：2024/06/01 07:27:24
取20个在开区间(10,87)中的随机数R
请帮帮我.

private sub command1_click()
FOR I=1 to 20
R=__________
Print R;
if___________ then print
next
end sub

dim number as integer
for i = 1 to 20
Randomize
number = (10 - 87)* rnd + 87
print number;

next i

Dim r As Byte
Private Sub Command1_Click()
Cls
For I = 1 To 20
'R=__________
R = 10 + Rnd * 77
Print r;
'if___________ then print
Next
End Sub

Private Sub command1_click()
For I = 1 To 20
r = Rnd * 75 + 11 ' --- (因为是开区间，所以不包括10和87)
Print r
If r <> r Then Print '这句似乎多余
Next
End Sub

楼上的各位回答都可行，我看这样也可以的：
private sub command1_click()
'设置随机种子
Randomize
FOR I=1 to 20
R=10+rnd*(87-10)
Print R;
'当生成20个随机数后，使得其后的输出在下一行
if i=20 then print
next
end sub

看看吧VBScript和VB应该差不多的.这个例子是演示 随即数0到100的整数