- 1、本文档共51页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第4章 选择结构程序设计 选择结构是一种常用的基本结构,是计算机科学用来描述自然界和社会生活中分支现象的重要手段。其特点是:根据所给定的条件为真(即条件成立)与否,而决定从各实际可能的不同分支中执行某一分支的相应操作,并且任何情况下总有:“无论分支多寡,必择其一;纵然分支众多,仅选其一”的特性。 第4章 选择结构程序设计 4.1 单条件选择语句If 4.1.1 单分支选择语句IF…Then…End If If…Then…End If语句是一种单分支语句,也是一种最简单的选择语句,其特点是:所给定条件(条件表达式)的值如果为真,则执行语句块;如果为假,则越过条件语句执行后面的语句。其语法形式可分为单语句形式和多语句形式。 2. 多语句形式 If 〈条件表达式〉 Then [〈语句序列〉] End If Dim number As Integer , result As String number = CInt(TextBox1.Text) If number Mod 2 0 Then result = 奇数 End If If number Mod 2 = 0 Then result = 偶数 End If TextBox2.Text = result 4.1.2 双分支选择语句IF…Then…Else…End If 由于条件表达式的结果有两种:True和False。如果使用单分支语句If…Then…End If可能需要使用两次,这样会造成代码重复的现象。 If…Then…Else…End If语句是一种双分支语句,其特点是:所给定条件(条件表达式)的值如果为真,则执行语句序列1;如果为假,则执行语句序列2。其语法形式也可分为单语句形式和多语句形式。 1. 单语句形式 If 〈条件表达式〉 Then [〈语句序列1〉] [Else [〈语句序列2〉] ] 【例4-3】用双分支选择结构的单语句格式改写例4-1中的代码,判断输入整数的奇偶性。 修改“判断”命令按钮Button1的Click事件代码如下: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim number As Integer , result As String number = CInt(TextBox1.Text) If number Mod 2 0 Then result = 奇数 Else result = 偶数 TextBox2.Text = result End Sub 2. 多语句形式 If 〈条件表达式〉 Then [〈语句序列1〉] [Else [〈语句序列2〉] ] End If 修改“判断”命令按钮Button1的Click事件代码如下: Dim number As Integer , result As String number = CInt(TextBox1.Text) If number Mod 2 0 Then result = 奇数 Else result = 偶数 End If TextBox2.Text = result 【例4-5】设计密码验证程序。当用户在文本框中输入用户名和口令后,程序能判断输入信息是否正确。 (1)建立应用程序用户界面和添加控件。在窗体上添加2个命令按钮Button1~Button1,3个标签Label1~Label3,2个文本框TextBox1~TextBox2。 (2)设置各对象的属性。 (3)编写事件代码。 编写“确定”命令按钮Button1的Click事件代码: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click If TextBox1.Text = dap And TextBox2.Text = 666666 Then Label3.Text = 输入正确! Label3.Visible = True Label3.ForeColor = Color.Blue Else Label3.Text = 输入错
文档评论(0)