Visual Basic 2005程序设计 丁爱萍 第4章 选择结构程序设计

《Visual Basic 2005程序设计 丁爱萍 第4章 选择结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章选择结构程序设计选择结构是一种常用的基本结构，是计算机科学用来描述自然界和社会生活中分支现象的重要手段。其特点是：根据所给定的条件为真（即条件成立）与否，而决定从各实际可能的不同分支中执行某一分支的相应操作，并且任何情况下总有：“无论分支多寡，必择其一；纵然分支众多，仅选其一”的特性。第4章选择结构程序设计单条件选择语句If1多条件选择语句2选择性控件3选择结构的嵌套4选择结构程序设计实例54.1单条件选择语句If4.1.1单分支选择语句IF…Then…EndIfIf…Then…EndIf语句是一种单分支语句，也是一种最简单的选择语

2、句，其特点是：所给定条件（条件表达式）的值如果为真，则执行语句块；如果为假，则越过条件语句执行后面的语句。其语法形式可分为单语句形式和多语句形式。1.单语句形式If〈条件表达式〉Then〈语句序列〉【例4-1】输入一个整数，判断该数的奇偶性。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton1.ClickDimnumberAsInteger,resultAsStringnumber=CInt(TextBox1.

3、Text)IfnumberMod2<>0Thenresult="奇数"IfnumberMod2=0Thenresult="偶数"TextBox2.Text=resultEndSub2.多语句形式If〈条件表达式〉Then[〈语句序列〉]EndIfDimnumberAsInteger,resultAsStringnumber=CInt(TextBox1.Text)IfnumberMod2<>0Thenresult="奇数"EndIfIfnumberMod2=0Thenresult="偶数"EndIfTextBox2.Text=result4

4、.1.2双分支选择语句IF…Then…Else…EndIf由于条件表达式的结果有两种：True和False。如果使用单分支语句If…Then…EndIf可能需要使用两次，这样会造成代码重复的现象。If…Then…Else…EndIf语句是一种双分支语句，其特点是：所给定条件（条件表达式）的值如果为真，则执行语句序列1；如果为假，则执行语句序列2。其语法形式也可分为单语句形式和多语句形式。1.单语句形式If〈条件表达式〉Then[〈语句序列1〉][Else[〈语句序列2〉]]【例4-3】用双分支选择结构的单语句格式改写例4-1中的代码，判断

5、输入整数的奇偶性。修改“判断”命令按钮Button1的Click事件代码如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton1.ClickDimnumberAsInteger,resultAsStringnumber=CInt(TextBox1.Text)IfnumberMod2<>0Thenresult="奇数"Elseresult="偶数"TextBox2.Text=resultEndSub2.多语句形

6、式If〈条件表达式〉Then[〈语句序列1〉][Else[〈语句序列2〉]]EndIf修改“判断”命令按钮Button1的Click事件代码如下：DimnumberAsInteger,resultAsStringnumber=CInt(TextBox1.Text)IfnumberMod2<>0Thenresult="奇数"Elseresult="偶数"EndIfTextBox2.Text=result【例4-5】设计密码验证程序。当用户在文本框中输入用户名和口令后，程序能判断输入信息是否正确。（1）建立应用程序用户界面和添加控件。在窗体上

7、添加2个命令按钮Button1～Button1，3个标签Label1～Label3，2个文本框TextBox1～TextBox2。（2）设置各对象的属性。（3）编写事件代码。编写“确定”命令按钮Button1的Click事件代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton1.ClickIfTextBox1.Text="dap"AndTextBox2.Text="666666"ThenLabel3.Tex

8、t="输入正确！"Label3.Visible=TrueLabel3.ForeColor=Color.BlueElseLabel3.Text="输入错误！"Label3.Visible=Tru