suijishu
来源：互联网 发布：网络公务员教师招聘 编辑：程序博客网 时间：2024/05/18 06:24
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
