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

Question

如题所述

Answer 1

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

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

Answer 2

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

Answer 3

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

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

Answer 4

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

Answer 5

Randomize
(rnd * 100)+1