1,放两个文本框 名字分别是text1 text2 放一个按钮，名字是command1
Private Sub Command1_Click()
msgbox "两数整除结果为" & val(text1) \ val(text2)
msgbox "两数取于的结果" & val(text1) mod val(text2)
End Sub
2,放两个文本框 名字分别是text1 text2 text1是上限，text2是下限 ，放一个按钮，名字是command1
Private Sub Command1_Click()
msgbox int((val(text1)-val(text2)+1)*rnd+val(text2))
End Sub
楼上正解
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024