选择结构-西安交通大学

《选择结构-西安交通大学》由会员分享，可在线阅读，更多相关《选择结构-西安交通大学（33页珍藏版）》请在金锄头文库上搜索。

1、选择结构 教学目标 掌握IFTHENElse语句 熟悉组合框、列表框、检查列表框（ CheckedListBox） 掌握Select Case语句 4.1 If语句4.1.1 IfThen语句 If-Then语句用来当条件满足时执行某些语 句，反之则不执行。If-Then语句的格式如下：If Then语句块End IfIf-Then语句亦称为单分支结构。其中条件表 达式的值为Boolean型，用 25 Then MessageBox.Show( “大于25“)End If 4.1.2 IfThenElse语句 当条件表达式的值为True时，程序执行一些语句， 其值为False时，程序执行另一些

2、语句，此时可以使 用If-Then-Else语句。If-Then-Else语句的格式如下：If Then Else End If该语句的作用是当条件表达式的值为True时，程 序执行语句块1，当条件表达式的值为False时，程序 将执行语句块2。 例如对intSex变量进行判断，为0时是男性 ；否则是女性：If intSex=0 Then MessageBox.Show(“You are a man!”) Else MessageBox.Show(“You are a woman!”) End If 创建一新的项目，对输入的数值进行判断。在其中的一 个TextBox中输入数值，如果输入的数据为

3、7的整倍数，在另一 个TextBox文本框内显示“是7的倍数”，反之则显示“不能被7整 除”。在窗体上放置2个TextBox控件，分别用来接受输入和显 示结果，Name属性分别为TxtInput和TxtResult。再添加一个按 钮，并为这个按钮的Click事件编写如下代码： Private Sub BtnGo_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles BtnGo.Click Dim lngIn As LonglngIn = Convert.ToInt64(TxtInput.Text)

4、 If lngIn Mod 7 = 0 ThenTxtResult.Text = “是7的倍数“ElseTxtResult.Text = “不能被7整除“End If End Sub 程序中使用了显示的转换Convert.ToInt64，当然也可以直接赋 值，由Visual Basic作隐式转换。4.1.3 IfThenElseIf语句 分支超过2个的情况，此时可以在IfThenEnd If结构中 使用ElseIf 语句，格式如下：If ThenElseIf ThenElse 语句块n+1End If该语句的作用是根据不同的条件表达式的值确定执行哪个语 句块，Visual Basic测试条件的

5、顺序为条件表达式1、条件表达 式2、，每当遇到某个条件表达式值为True时，就执行该 条件下的语句块。 例如在下面一段代码中根据Caller的值不同而执行不同的语句。If Caller = “Joe“ ThenMessageBox.Show（ “Yes!“）ElseIf Caller = “Matt“ ThenMessageBox.Show（“Okay, but if you buy.“）ElseIf Caller = “Jeff“ ThenMessageBox.Show（“Im washing my hair tonight.“）ElseIf Caller = “Robby“ ThenMes

6、sageBox.Show（ “This is a recording.“）End If 注意: 1.的是不管程序有几个分支，在执行了一个分支后，其余 分支不再执行。 2.ElseIf不要写成Else If。 4.1.4嵌套IfThen语句 If语句可以嵌套，既可在If语句当中可以包含另外一个If语句。 If语句的嵌套语句格式如下：If ThenIf ThenEnd IfEnd If例如只有当n=3并且x=6时显示“n=3 & x=6”。If n = 3 ThenMessageBox.Show(“n=3“)If x = 6 ThenMessageBox.Show(“x=6 & n=3“)End

7、IfEnd IfIf语句对于嵌套的多少是没有限制的。但是嵌套的层数越多，代码执 行起来就会越困难，越容易出错。所以，应尽量把嵌套层数减少。 例:在两个文本框中任意输入两个数字，按下Max按钮后将较大的一个显示在第 三个文本框中。创建新的工程起名为Biger，在窗体上放置3个TextBox控件 和一个按钮，清除3个TextBox控件的Text属性，将3个TextBox控件的name属 性分别设置为TxtOp1，TxtOp2，TxtBiger；将TxtBiger的ReadOnly属性设置 为True；按钮的name属性为BtnBiger，Text的name属性为Max。采用快速添 加事件代码的方法

8、，双击按钮添加代码如下： Private Sub BtnBiger_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles BtnBiger.ClickDim dblOp1 As DoubleDim dblOp2 As DoubledblOp1 = TxtOp1.TextdblOp2 = TxtOp2.TextIf dblOp1 = dblOp2 ThenTxtBiger.Text = dblOp1ElseTxtBiger.Text = dblOp2End IfEnd Sub 4.1.5 Selec

9、t Case语句(情况语句)Select Case语句是实现选择结构程序设计的另一种语句。它的 使用有时比If语句更加简单直观。 Select Case语句的格式如下：Select Case 变量名或表达式Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select其中变量名或表达式可以是所有基本数据类型；表达式列 表与“变量名或表达式”的类型必须相同，可以取下面四 种形式： 表达式 一组枚举表达式（用逗号分隔） 表达式值的范围（如：表达式1 To 表达式2） Is 关系运算符表达式 例如：Case 1 To 8 表示测试表达式的值

10、在1到8之间Case 1,.3,5,7,Is11 表示测试表达式的值为1,3,5,7或大 于11 该语句的作用是根据中的结果与各Case 子句中的表达式的值进行比较，以决定执行哪一组语句 块。 在Visual Basic .NET中，可以把所有基本数据类型运用到 Select Case语句中。当有多个Case表达式的值与测试值 匹配时，系统执行第一个与之匹配的语句。采用Select Case语句改写前面IfThenElseIf的例子，如下所示： Select Case Caller Case “Joe” MessageBox.Show（ “Yes!“） Case “Matt” MessageB

11、ox.Show（“Okay, but if you buy.“） Case “Jeff” MessageBox.Show（“Im washing my hair tonight.“） Case “Robby” MessageBox.Show（ “This is a recording.“） End Select 比较两程序段，显然，使用Select Case语句使代码变得更 加清晰直观，不再重复出现ElseIf和Then 语句。 4.2 END语句End语句用于结束一个程序的运行，它可以放在任 何事件过程中。End语句格式如下：End以上在顺序结构、选择结构的代码中，都用到End 与对应结构的

12、关键词复合的语句。其实，以后介绍的 情况语句、循环结构、子程序、过程等等的程序代码 中，也必须以End与关键词复合语句结尾。这是Visual Basic代码编写时的规则，即作为一个完整的结构（顺 序、选择（情况）、循环）、子程序、程序块，最后 一个语句必须用End的关键词复合语句，以示该程序到 此结束。否则，系统将会提示出错信息。例如End If、 End Select、End Sub、End With等等。4.3 ListBox、CheckedListBox、ComboBox控件ListBox（列表框）、CheckedListBox （复选列表框）和ComboBox（组合列表框） ，向用户提

13、供选项。它们均可显示多个选项 ，而且比多个单选按钮或检查框占据的空间 要少一些。4.3.1 ListBox控件ListBox控件用来显示选项 列表，用户可从中进行选择一 项或选择多项的操作。在窗体 创建一个列表框时，单击 ListBox小图标。鼠标箭头变为 十字形状，将鼠标移至窗体上 适当位置，按住鼠标左键，拖 动鼠标绘制列表框。右图为添加了选项的ListBox。 4.3.1.1 ListBox的属性在设计的时候为ListBox添加选项，可以使用属性窗口中的Items 属性（位于Data类别中）。打开ListBox的属性窗口，单击Items属 性项右边的带有三个小黑点的按钮。Visual St

14、udio .NET将打开一 个字符串集合编辑器。将相应的选项内容输入到字符串集合编辑 器中。.每输入一个选项后，按回车键换行。全部选项输入完毕后 ，单击OK按钮结束，如图4-3所示的ListBox。如果项总数超出可 以显示的项数，则自动向 ListBox 控件添加滚动条。常用属性： SelectionMode属性。 SelectedIndex属性。 SelectedItem属性获取或设置 ListBox 中的当前选定项。 SelectedIndices 属性，获取一个集合 。 SelectedItems 属性，对于多重选择 ListBox，此属性返回一个集合 。 Sorted属性，该属性决定列

15、表框中的项目在程序运行期间是否按 字母顺序排列显示。 Text属性，该属性值是被选中的列表项的内容 。4.3.1.2 程序运行时改变ListBox项 ListBox的Item属性本身是一个集合对象，可以利用Item的 方法在程序运行期间给ListBox添加新的项目或删除某一项。 用Add方法在ListBox后添加一项：ListBoxName.Item.Add(“新的表项”) 要将某一项插入到指定位置，可以使用Insert方法： ListBoxName.Item.Insert(n， “新的表项”) 其中n表示要插入的位置。需要删除一项时，可以使用 Remove方法： ListBoxName.It

16、em.RemoveAt（n） ListBoxName.Item.Remove（“要删除的项”） 使用项目的索引值，用RemoveAt 方法；用Remove方法通过 删除项目本身的值来删除它。还可以使用Clear方法一次将所 有项全部删除。 右边是一个关于ListBox的 完整的例子。在ListBox中选 中一项，可以通过单击删除按 钮将它删去；也可以在 TextBox中输入新项，单击加 入按钮将此项添加到ListBox 中。3个按钮的Name属性分别 为BtnAdd、BtnRemove和 BtnExit。ListBox的Name属性 为LstboxCourse。TextBox的 Name属性为TxtNew。在程序的设计阶段，已经 使用Item的字符串集合编辑器 添加了一些项。 下面分别为3个按钮添加Click事件处理代码如下： Private Sub