高考问答神武报复技能满血:一个VB的问题
来源：百度文库 编辑：高考问答 时间：2024/05/11 18:36:44
大家看我写的这些代码有什么问题，谢谢了，我是个新手
Private Sub Command1_Click()
Do While r = c And c = Int(Rnd * (10 - 1 + 1) + 1)
r = InputBox("54", "56")
Loop
MsgBox "88888"
End Sub
为什么一单击就弹出88888
那么什么写才对呢
Private Sub Command1_Click()
Do While r = c And c = Int(Rnd * (10 - 1 + 1) + 1)
r = InputBox("54", "56")
Loop
MsgBox "88888"
End Sub
为什么一单击就弹出88888
那么什么写才对呢
不是的
你的Do while 错了
这么写不能入do的
因为r=0 c是随机数在1-10之间
还有r = c And c = Int(Rnd * (10 - 1 + 1) + 1)错了
错的很大，这写法是很不对的
这么写能实现你的功能
Private Sub Command1_Click()
c = Int(Rnd * (10 - 1 + 1) + 1)
Do Until r = c
r = Val(InputBox("54", "56"))
Loop
MsgBox "88888"
End Sub
那是肯定的，因为你的程序输入就是那个msgbox