Private Sub CommandButton1_Click()
Dim R As Integer
R = Application.RandBetween(10, 20)
TextBox1.Value = R
Label1.Caption = R
End Sub
产生随机数 可以用这个函数
如 : n= Application.RANDBETWEEN(10,20) ‘ 10 20 改成你要的数就行
具体要看你赋值到那个控件上呢? 把 n 赋值给它就行。
a b之间随机数a