用VB，生成一个1到100之间的随机数

来源：百度知道 编辑：UC知道 时间：2024/06/24 19:12:40

Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值。

Private Sub Command1_Click()
Text1.Text = Int(Rnd(1) * 100)
End Sub

点击按钮COMMAND1 就在文本TEXT1里输出 随即数

Private Sub Command1_Click()
Label1.Label1 = Int(Rnd(1) * 100)
End Sub

int(rnd*(100+1)+1)
或者
int(100*rnd+1)

Randomize
(rnd * 100)+1