各位大哥大姐帮我看看到底哪里错了呀？？？？？ 顺便帮我看看 这个小程序有没有什么错误的地方啊？
这个小程序我都搞了一天了？？？！~~~~~

Private Sub Command1_Click()
If Option1.Value = True Then
If Check1.Value = 1 Then
Text1.Text = Option1.Caption + " " + Check1.Caption
Else
If Option2.Value = True Then
If Check2.Value = 1 Then
Text1.Text = Option2.Caption + " " + Check2.Caption
Else
If Option3.Value = True Then
If Check3.Value = 1 Then
Text1.Text = Option3.Caption + " " + Check3.Caption
End If

If Option2.Value = True Then
If Check2.Value = 1 Then
Text1.Text = Option2.Caption + " " + Check1.Caption
Else
If Option1.Value = True Then
If Check1.Value = 1 Then
Text1.Text = Option1.Caption + " " + Check2.Caption
Else
If Option3.Value = True Then
If Check3.Value = 1 Then
Text1.Text = Option3.Caption + " " + Check3.Caption
End If

If Option3.Value = True Then
If Check3.Value = 1 Then
Text1.Text = Option3.Caption + " " + Check1.Caption
Else
If Option1.Value = True Then
If Check1.Value = 1 Then
Text1.Text = Option1.Caption + " " + Check2.Caption
Else
If Option2.Value Then
If Check2.Value = 1 Then
Text1.Text = Option2.Caption + " " + Check3.Caption
End If
End If
End If
End If
End Sub ←老在这里显示：编译错误 块if没有 end if （删除也不管用 加上也不管用？

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.Text = ""
End Sub

[此贴子已经被作者于2007-2-18 15:43:22编辑过]

缺少End if,有多少个If就要有多少个End if(一般情况下)

你这样的写代码很不方便,一点也不规范

如果你这样写代码,哪里却End if就一目了然了

if 条件1 then
if 条件2 then
……
end if
else
if 条件3 then
if 条件4 then
……
end if
end if
end if