雪中木屋

分支结构的实现

关键词： 程序                                          

参考程序

设a和b是同一类型变量，若a的值大于b，则交换a和b的值，否则通过“输出框”提示“谢谢，不用劳驾了！”。

Private Sub Command2_Click()

  Dim a As Integer, b As Integer

  Dim c As Integer

  a = Text1.Text

  b = Text2.Text

  If a > b Then

     c = a

     a = b

     b = c

     Text1.Text = a

     Text2.Text = b

  Else

     MsgBox "谢谢，不用劳驾了！"

  End If

End Sub

程序界面参考

【作者: snowpeak】【访问统计:】【2005年11月24日 星期四 12:38】【 加入博采】【打印】