Private Sub Command1_Click() Dim MyValue Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值 Text1.Text = MyValue End Sub