sailor对讲机:麻烦大家看一下我这段代码错在哪里?谢谢

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 12:35:23
Private Sub Command1_Click()
If Option1.Value Then Text1.Text = "456546"
Else: Text1.Text = "dddddd"
End If
End Sub
明明if就在那里 但是软件老是提醒我说else没有if

If Option1.Value Then Text1.Text = "456546"
'以上一行自成一句
Else: Text1.Text = "dddddd"
End If
'那么后两行就少东西了。
你可以:
If Option1.Value Then Text1.Text = "456546" Else Text1.Text = "dddddd"

If Option1.Value Then
Text1.Text = "456546"
Else
Text1.Text = "dddddd"
End If
两种方法都正确