又是一个关于vb的小问题
来源:百度知道 编辑:UC知道 时间:2024/05/10 15:08:21
Dim x
Private Sub Command1_Click()
Text1.Text = x
End Sub
Private Sub Form_Load()
Randomize
x = Int((10 - 1) * Rnd + 1)
If Text1 = 8 Then _
Text2 = "成功"
Else
Text1.Text = ""
End If
End Sub
它说我"{编译错误,else没有if}
可是我有啊~`不知道错在那个地方~
Private Sub Command1_Click()
Text1.Text = x
End Sub
Private Sub Form_Load()
Randomize
x = Int((10 - 1) * Rnd + 1)
If Text1 = 8 Then _
Text2 = "成功"
Else
Text1.Text = ""
End If
End Sub
它说我"{编译错误,else没有if}
可是我有啊~`不知道错在那个地方~
If Text1 = 8 Then _ 把这里的下划线取掉Text2 = "成功"
Else
Text1.Text = ""
End If
你写上就相当于,把两行连起来了
Dim x
Private Sub Command1_Click()
Text1.Text = x
End Sub
Private Sub Form_Load()
Randomize
x = Int((10 - 1) * Rnd + 1)
If Text1 = 8 Then '_是换行时连接符号,但是这儿不需要
Text2 = "成功"
Else
Text1.Text = ""
End If
End Sub
If Text1 = 8 Then _
Text2 = "成功"
Else
Text1.Text = ""
End If
End Sub
改成
If Text1 = 8
Then Text2 = "成功"
Else Text1.Text = ""
End If
End Sub