UC知道VB 三层If Else 嵌套，怎么写程序？
来源：百度知道 编辑：UC知道 时间：2024/07/07 03:31:04
Private Sub Command1_Click()
……
If aa = False Then
MsgBox "记录为空，本操作无效", , "提示"
Else
If bb = False Then
If MsgBox("本操作将替换原文件,确定吗?", vbQuestion + vbOKCancel, "警告") = vbOK Then
Updt() ‘调用子程序执行更新
Else
?？ ‘退出本过程Command1_Click ()
End If
Else
Updt() ‘调用子程序执行更新
End If
End If
End Sub
1、？处怎么填
2、程序中两处写到调用同一个子程序，有什么写法让它只出现一次？
3、有没有最简洁的写法？（语句最少）
……
If aa = False Then
MsgBox "记录为空，本操作无效", , "提示"
Else
If bb = False Then
If MsgBox("本操作将替换原文件,确定吗?", vbQuestion + vbOKCancel, "警告") = vbOK Then
Updt() ‘调用子程序执行更新
Else
?？ ‘退出本过程Command1_Click ()
End If
Else
Updt() ‘调用子程序执行更新
End If
End If
End Sub
1、？处怎么填
2、程序中两处写到调用同一个子程序，有什么写法让它只出现一次？
3、有没有最简洁的写法？（语句最少）
If aa = False Then
MsgBox "记录为空，本操作无效", , "提示"
else
If bb = False and MsgBox("本操作将替换原文件,确定吗?", vbQuestion + vbOKCancel, "警告") <> vbOK then exit sub
Updt()
end if
1、exit sub
1.exit sub
2、3:
If aa = False Then
MsgBox "记录为空，本操作无效", , "提示"
exit sub
end if
If bb = False Then
If MsgBox("本操作将替换原文件,确定吗?", vbQuestion + vbOKCancel, "警告") <> vbOK Then
exit sub
end if
end if
Updt() ‘调用子程序执行更新
1、exit sub
2、3、
If aa = False Then MsgBox "记录为空，本操作无效", , "提示":exit sub
if bb=False then
If MsgBox("本操作将替换原文件,确定吗?", vbQuestion + vbOKCancel, "警告") = vbCancel Then exit sub
End If
Updt
5行代码搞定。