Visual Basic快捷教程流程控制.docVIP

Visual Basic快捷教程——流程控制 一、选择结构 Visual Basic中用来实现选择结构的方式包括：If、Select/Case、Switch、Choose等4这种。 1. If 语句 基于 If 语句实现的选择结构主要有三种形式： If ... Then ... If ... Then ... Else ... If ... ElseIf ... Else ... 下面我们逐个详解。 1）If ... Then ... 是属于单向选择结构，它会潘丹条件表达式（condition）是否为真，若条件表达式为真，则会执行该分支的语句块（statements）；否则，就不执行任何操作。Visual Basic中If ... Then ...的语法规则如下： [vb] view plain copy 在CODE上查看代码片派生到我的代码片 If 条件表达式 Then 语句块 End If 下面通过一个判定用户是否要退出程序的例子来演示 If ... Then ... 在实际中的使用。 [vb] view plain copy 在CODE上查看代码片派生到我的代码片 Public Class Form1 Private Sub Button_Exit_Click(sender As Object, e As EventArgs) Handles Button_Exit.Click Dim Result As MsgBoxResult Result = Interaction.MsgBox(您确定要退出本程序吗？, vbOKCancel+vbQuestion, 提示) If Result = vbOK Then End End If End Sub End Class 执行上述代码，所得之结果如下所示。当用户单击【退出程序】按钮时，程序会弹出一个消息对话框询问用户是否真的要退出程序。如果用户选择【确定】，那么程序将随机退出。如果用户选择【取消】，程序将继续执行。 2）If ... Then ... Else 是一种双向选择结构，它会判断条件表达式是否为真，如果条件表达式为真，则程序会执行为真的分支语句块。否则若条件表达式为假，那么程序便会执行为假的分支语句块。Visual Basic中If ... Then ... Else 的语法规则如下： [vb] view plain copy 在CODE上查看代码片派生到我的代码片 If 条件表达式 Then 条件表达式为真的语句块 Else 条件表达式为假的语句块 End If 下面通过一个判定用户输入的年份是否为闰年的示例程序来演示 If ... Then ... Else 在实际中的使用。 [vb] view plain copy 在CODE上查看代码片派生到我的代码片 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If TextBox_Year.Text Mod 4 = 0 Then MsgBox(公元 + TextBox_Year.Text + 年是闰年。, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, 判定结果) Else MsgBox(公元 + TextBox_Year.Text + 年不是闰年。, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, 判定结果) End If End Sub End Class 执行上述代码，所得之结果如下所示。如果用户输入的年份确实为闰年，那么随后弹出的消息对话框就会反馈说这一年确实是闰年。 3）If ... ElseIf ... Else 是一种多重嵌套选择结构，当紧跟在 If 后面的判断条件为假时，程序再多做一次判定，即执行ElseIf后面的判定。而且ElseIf后面还可以嵌套多层ElseIf判断。如果所有的判断条件都为假时，那么程序才会执行Else后面的分支语句块。Visual Basic中If ... ElseIf ...