随机数

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