修改这个VB

来源：百度知道 编辑：UC知道 时间：2024/05/07 05:16:25
这是一个自编小游戏，但运行起来有点奇怪，看看那里要改
Private Sub Form_click()
a = 1
Do While a > 0
x = Int(Rnd(10) * 100) '产生乱数
hita = InputBox("请设定敌人的命中率", "设定命中") '设定命中率
hitb = InputBox("请设定你的命中率", "设定命中")
If x < hita Then '判定是否命中
a = a - 1 '命中结束程序
Print "你被击中"
MsgBox ("GAMEOVER")
Unload Me
ElseIf x > hita Then
Print "你闪过了"
y = Int(Rnd(10) * 100) '产生乱数
If y < hitb Then '判定是否命中
a = a - 1 '命中结束程序
Print "你击中了敌人"
MsgBox ("YOU WIN!")
Unload Me
ElseIf y > hitb Then
Print "敌人闪过了"
End If
End If
Loop
End Sub

Private Sub Form_click()
Dim x As Integer, hitb As Integer, y As Integer
a = 1
Do While a > 0
x = Int(Rnd(10) * 100) '产生乱数
hita = InputBox("请设定敌人的命中率", "设定命中") '设定命中率
hitb = InputBox("请设定你的命中率", "设定命中")
If x < hita Then '判定是否命中
a = a - 1 '命中结束程序
Print "你被击中"
MsgBox ("GAMEOVER")
Unload Me
ElseIf x > hita Then
Print "你闪过了"
y = Int(Rnd(10) * 100) '产生乱数
If y < hitb Then '判定是否命中
a = a - 1 '命中结束程序
Print "你击中了敌人"
MsgBox ("YOU WIN!")
Unload Me
ElseIf y > hitb Then
Print "敌人闪过了"
End If
End If
Loop
End Sub

上面的可以运行啊