生成指定范围的随机数

来源:互联网 发布:java彩票合买源码 编辑:程序博客网 时间:2024/04/29 19:15

Private Sub Command1_Click()

Dim m as integer

Dim n as integer

M=val(text1.text)

N=val(text2.text)

Text3.text=m+int(rnd*(n-m+1))

End Sub

在空白处双击,编写程序如下:

Private sub form_load()

Randomize

End sub

原创粉丝点击