VB while语句Private Sub Command2_Click()Dim x As SingleDim y A

VB while语句
Private Sub Command2_Click()
Dim x As Single
Dim y As Single
Randomize
x = Int(Rnd * 900) + 1
Randomize
y = Int(Rnd * 900) + 1
t = Text1.Text
r = 0
While r < t
If 0 < x And x < 300 Then

m = 1

ElseIf 3 < x And x

“t = Text1.Text”中t的数据类型为字符串型无法和整形比较,你可以将此句该为“t=int(Text1.text)或者t=val(Text1,text)”

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息