Question

关于 vb 6.0 IF then else 的

省略 前面的 IF
Else: MsgBox "XXXXXXXx", vbYesNoCancel + vbCritical
If yes Then
MsgBox "XXXXXXXx"
Else: MsgBox "XXXXXXXX"
求解
Private Sub Command1_Click()
MsgBox "XXXXXXX"
MsgBox "XXXXXXXXXXX"
MsgBox "XXXXXXXXXXXXX", vbYesNoCancel + vbExclamation
If yes Then
MsgBox "XXXXXXXXXX"
Else: MsgBox "XXXXXXXXXX ", vbYesNoCancel + vbCritical
If yes Then
MsgBox "XXXXXXXX "
Else: MsgBox "XXXXXXXXXX"
End If
XXXXXXXXX 表示的都是不同的内容

Answer 1

在最后加上
end if
就行了

如果不行，仔细核对每一个if，看看有没有与其配对的end if
if 和 end if 的数量必须配对

追问

我加了 就是没复制到问题上去 还是不行啊

追答

你把完整代码贴上来看看

追问

粘了 还有个问题 就是 不管我点是 否 出来的都是一个结果

追答

看了你的代码，很有问题啊，不能这么写的

追问

大哥 求解啊 初学者 不懂啊

追答

Private Sub Command1_Click()
MsgBox "XXXXXXX"
MsgBox "XXXXXXXXXXX"
DIM A AS INTEGER
DIM B AS INTEGER

A=MsgBox ("XXXXXXXXXXXXX", vbYesNoCancel + vbExclamation)
If A=6 Then 'A=6表示按了确定
MsgBox "XXXXXXXXXX"
Else 'A6
B= MsgBox( "XXXXXXXXXX ", vbYesNoCancel + vbCritical)
If B=6 THEN
MsgBox "XXXXXXXX "
Else
MsgBox "XXXXXXXXXX"
End If
END IF

END SUB

追问

MsgBox "XXXXXXXXXXX"DIM A AS INTEGER 这句语法错误=。=

追答

A=MsgBox ("XXXXXXXXXXXXX", vbYesNoCancel + vbExclamation)
msgbox返回一个数值，代表用户的选择
A=6 是
A=7 否
A=2 取消
-----------------------------
代码：Private Sub Command1_Click()
MsgBox "XXXXXXX"
MsgBox "XXXXXXXXXXX"
DIM A AS INTEGER
DIM B AS INTEGER

A=MsgBox ("XXXXXXXXXXXXX", vbYesNoCancel + vbExclamation)
If A=6 Then 'A=6表示按了确定
MsgBox "XXXXXXXXXX"
Else 'A6
B= MsgBox( "XXXXXXXXXX ", vbYesNoCancel + vbCritical)
If B=6 THEN
MsgBox "XXXXXXXX "
Else
MsgBox "XXXXXXXXXX"
End If
END IF

END SUB

Answer 2

If MsgBox("XXXXXXXXXXXXX", vbYesNoCancel + vbExclamation) = vbYes Then
MsgBox "XXXXXXXXXX"
Else
If MsgBox("XXXXXXXXXX ", vbYesNoCancel + vbCritical) = vbYes Then
MsgBox "XXXXXXXX "
Else
MsgBox "XXXXXXXXXX"
End If
End If

Answer 3

掉坑里了，拉黑