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
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
5533
11万+

被折叠的 条评论
为什么被折叠?
