编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 控制结构 > VB6 控制结构 if语句的嵌套

VB6 控制结构 if语句的嵌套

If语句的嵌套是指If或Else后面的语句块中又包含If语句。

形式如下:

If <表达式1> Then
     If  <表达式11> Then
     …          
End If
     …  
End If

[例4.4]

已知x,y,z三个数,使得x>y>z。


用一个IF语句和一个嵌套的IF语句实现:

If  x<y Then t=x: x=y: y=t  
If  y<z Then
   t=y: y=z: z=t                  
   If  x<y  Then                  
     t=x: x=y: y=t
   End If
End If

程序代码:

Private Sub Form_Load()
    Dim x%, y%, z%, t%, strC$, S As Object
    Form2.AutoRedraw = True
    Command1.Caption = "退出"
Start: strC = InputBox(Prompt:="输入三个整数,用逗号分隔", Title:="输入三个需要排序的数", Default:= _
"7,9,13", Xpos:=2000, Ypos:=4000)
    '将strC按分号分离出来后分别送给x,y,z 三个变量
    On Error GoTo hand  '错误激活语句
    S = Split(strC, ",") : x = S(0) : y = S(1) : z = S(2)
    CurrentX = 400
    CurrentY = 400
    Print("原来 x,y,z 的内容")
    CurrentX = 400 '实现输出行对齐
Print "x="; x, "y="; y, "z="; z '显示原值
    If x < y Then t = x : x = y : y = t
    If y < z Then
        t = y : y = z : z = t
        If x < y Then
            t = x : x = y : y = t
        End If
    End If
    CurrentX = 400
    Print("排序后的 x,y,z 内容")
    CurrentX = 400
 Print "x="; x, "y="; y, "z="; z
    Exit Sub
hand:
    MsgBox("你按了取消按钮还是" & vbCrLf & "没有按要求组织输入?" & vbCrLf & "重来!", vbOKOnly + vbQuestion)
    Resume Start
End Sub

If语句的嵌套注意事项:书写锯齿型; If 与End If需则正确配对。



编程学习 VB6 控制结构 if语句的嵌套 转载请保留此行.谢谢.

VB6