UC知道以下语句块正确吗?程序报错最后一个else没有if语句,怎样改?
来源：百度知道 编辑：UC知道 时间：2024/05/25 06:56:47
IF ... THEN ...
ELSE
IF ...THEN...ELSE...
ENDIF
ELSE
IF ...THEN...ELSE...
ENDIF
ENDIF
Dim Z As String
Z = Text1.Text
If InStr(Z, "T") > 0 Then
If InStr(Z, "P") > 0 Then
MsgBox "5-5"
Else
If InStr(Z, "A") > 0 Then
MsgBox "565"
Else
MsgBox "1050"
End If
End If
Else
If InStr(Z, "A") > 0 Then
If InStr(Z, "P") > 0 Then
MsgBox "1000"
Else
MsgBox "565"
End If
ELSE
IF ...THEN...ELSE...
ENDIF
ELSE
IF ...THEN...ELSE...
ENDIF
ENDIF
Dim Z As String
Z = Text1.Text
If InStr(Z, "T") > 0 Then
If InStr(Z, "P") > 0 Then
MsgBox "5-5"
Else
If InStr(Z, "A") > 0 Then
MsgBox "565"
Else
MsgBox "1050"
End If
End If
Else
If InStr(Z, "A") > 0 Then
If InStr(Z, "P") > 0 Then
MsgBox "1000"
Else
MsgBox "565"
End If
用"1,2,3"来代替你的IF与END IF
IF ... THEN ... ——————————1
ELSE ——————————1
IF ...THEN...ELSE... ——————————2
ENDIF ——————————2
ELSE (这个ELSE多余,你仔细查看一下你的程序)
IF ...THEN...ELSE... ——————————3
ENDIF ——————————3
ENDIF ——————————1
如果我是电脑的话,执行程序时,我就这么读.
从第一行开始读起.
你的第二行已经有了一个else
在你的第二个判断之后又出现了一个else,那么就是多余的.
IF ... THEN ...
____ELSE
________IF ...THEN...ELSE...
________ENDIF
____ELSE
________IF ...THEN...ELSE...
________ENDIF
ENDIF
看起来没错.
程序乱，用下面的格式好了~
IF ... THEN ...
ELSEIF ...THEN...
ELSEIF ...THEN...
END IF
IF ... THEN ...
ELSE IF//这里要加个IF。因为不能一直ELSE。ELSE表示是最后的条件。谢谢！
IF ...THEN...ELSE...
ENDIF
ELSE
IF ...THEN...ELSE...
ENDIF
ENDIF
肯定错了，具体怎么改要看你的程序逻辑了
如果是同一变量或表达式有多个条件，用select case语句更方便
select case 变量
case
case
case else
end select
给你一些参考资