Private Sub Command1_Click()
If Option1.Value Then Text1.Text = "456546"
Else: Text1.Text = "dddddd"
End If
End Sub
明明if就在那里 但是软件老是提醒我说else没有if

Private Sub Command1_Click()
If Option1.Value Then
Text1.Text = "456546"
Else
Text1.Text = "dddddd"
End If
End Sub

谢谢你的回答，我知道你写的是对的，但是我想知道我错在哪里，麻烦你告诉我一下，可以的话说的详细一点。

If Option1.Value Then Text1.Text = "456546"
这样写代表IF已经结束
因为写成一行是可以省略IF的

更正一下，写成一行是可以省略End IF，呵呵

谢谢大家，初到这个论坛，以后还请大家多多指教。

！griefforyou又回来了！

Then后面根语句是沿用QBasic中的语法，格式为
If <条件> Then <语句1: 语句2……> Else <语句1: 语句2……>
Else要与If、Then在一行，且不能有End If，多条语句用冒号分隔，VB中不提倡。

明白了,厉害

Private Sub Command1_Click()
If Option1.Value Then Text1.Text = "456546"
Else: Text1.Text = "dddddd" ←这里 Elseif
End If
End Sub