vb 在label中随机显示数字

来源：百度知道 编辑：UC知道 时间：2024/09/22 07:52:04
怎样在按下command1后在label中随机显示一个1到20的阿拉伯数字

Private Sub Command1_Click()
Label1.Caption = Int(Rnd() * 19) + 1
End Sub

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

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

label1=MyValue