无忧岛

函数

'生成指定范围的随机数
'NumMin 起始值 NumMax 终点值
Function MyRnd(NumMin, NumMax)
      Randomize
      MyRnd = Int(Rnd * (NumMax - NumMin + 1)) + NumMin
End Function

使用方法
新建工程,在窗体上拖上一个按钮 command1和一个文本框text1
输入以下代码

Private Sub Command1_Click()
    Text1.Text = MyRnd(1, 10)         '生成1-10之间的随机数
End Sub