如何使vb产生随机正整数

来源：百度知道 编辑：UC知道 时间：2024/04/28 07:28:50
要求按下Command1,text显示1至38,按下Command2,text显示39至67.
请写出具体代码!!!

zheng0823的回答有点小问题,你那样永远得不到38,应该37改为38
同理你command2的事件里28改为29,不然最大只能得到66
因为Rnd函数返回的范围是(0,1]
包含0 ,但不包含1
还有没有初始化随机数种子
修改后的代码:
Private Sub Command1_Click()
Randomize
Dim a As Integer
a = Int(Rnd * 38) + 1
Text1.Text = a
End Sub

Private Sub Command2_Click()
Randomize
Dim a As Integer
a = Int(Rnd * 29) + 39
Text1.Text = a
End Sub

Private Sub Command2_Click()
Dim n As Integer
n = Val(InputBox("请你输入随机数个数"))
For i = 1 To n
Print Int(100 * Rnd);
If i Mod 10 = 0 Then Print
Next i
End Sub

楼上这位
(0,1]是不包含0,包含1的
应该这样与[0,1)

Int( Rnd + lowerbound)

Private Sub Command1_Click()
Dim a As Integer
a = Int(Rnd * 37) + 1
Text1.Text = a
End Sub
Private Sub Command2_Click()
Dim a As Integer
a = Int(Rnd * 28) + 39
Text1.Text = a
End Sub