vb中if语句的嵌套

Posted 2023-04-11

wasdasasd

不需要了
假如判断条件a=b为真，执行SubA，否则执行SubB，用下面的代码格式可以省略End
If,Else不用也可以。
If
a=b
Then
SubA
Else
SubB
写在一行可以省略End
If。
如果a=b你要同时执行SubA和SubB的话，语句间用半角的:隔开就可以了
If
a=b
then
SubA:SubB
Else
SubB
用:符号可以在一行代码中写n行代码。
例如
a=b:a=c:a=d
等价于
a=b
a=c
a=d
这样也是不会出错的。
你上面所提到的
if
keyascii=13
then
text2.setfocus
等价于
if
keyascii=13
then
text2.setfocus
End
If
如果分开两行写必须有End
If
因为编译器需要知道你在什么时候结束If判断，判断条件和处理结果写在一行编译器可以知道你什么时候结束If语句，如果写在两行，编译器就无法识别了，所以必须添加End
If。 参考技术A vb中if语句的嵌套最好使用块IF语句。
例如：
x = InputBox("请输入一个百分成绩：")
If x>=75 Then

If x>=85 Then
a$="优"
Else
a$="良"
End If
Else
If x>=60 Then
a$="及格"
Else
a$="不及格"
End If
End If
MsgBox x & "分的等第是: " & a$ 参考技术B if
条件为真
then
执行语句
end
if(判断结束)
if
a=3
then
if
b=2
then
if
c=7
then
if
d=8
then
以上条件都成立的时候执行下边一段话
.....执行代码并结束这个判断
（假如d=5,则执行下边的代码）
else
...........执行代码
end
if
（这里是结束d=8
这个条件的）
end
if（这里是结束c=7这个条件的）
end
if（这里是结束b=2这个条件的）
end
if（这里是结束a=3这个条件） 参考技术C if语句可以像下面这样子写
第一种
if
...
then
...
第二种
if
...
then
...
...
end
if
第三种
if
...
then
...
...
else
...
...
end
if
第四种
if
...
then
...
else
...
总的来说，如果是分开两行写的话，就要end
if，一行的就不用了 参考技术D vb6中
if
then
可以允许写在一行中，如果一行中的then后需要跟不止一个语句，可以在语句间加冒号，如：
If
2
=
2
Then
Text1.Text
=
2:
Text2.Text
=
2
要理解这一点，你只需要记住
VB语句与语句之间可以通过换行符来识别．．．

VBA嵌套if语句

一个If或ElseIf语句可以嵌套在另一个If或ElseIf语句中。内部的If语句是根据最外层的If语句执行的。这使得VBScript能够轻松处理复杂的条件。

语法

以下是VBScript中嵌套的If语句的语法。

If(boolean_expression) Then
   Statement 1
   .....
   .....
   Statement n

   If(boolean_expression) Then
      Statement 1
      .....
      .....
      Statement n
   ElseIf (boolean_expression) Then
      Statement 1
      .....
      ....
      Statement n
   Else
      Statement 1
      .....
      ....
      Statement n
   End If
Else
   Statement 1
    .....
    ....
   Statement n
End If

示例

为了演示目的，这里借助一个函数来判断一个正数的类型。如下图中所示 -

参考实现代码 -

Private Sub nested_if_demo_Click()
   Dim a As Integer
   a = 12

   If a > 0 Then
      MsgBox ("The Number is a POSITIVE Number")

      If a = 1 Then
         MsgBox ("The Number is Neither Prime NOR Composite")
      ElseIf a = 2 Then
         MsgBox ("The Number is the Only Even Prime Number")
      ElseIf a = 3 Then
         MsgBox ("The Number is the Least Odd Prime Number")
      Else
         MsgBox ("The Number is NOT 0,1,2 or 3")
      End If
   ElseIf a < 0 Then
      MsgBox ("The Number is a NEGATIVE Number")
   Else
      MsgBox ("The Number is ZERO")
   End If
End Sub

执行上面示例代码，得到以下结果 -

点击确定按钮后，如下所示 -