《选择结构-西安交通大学》由会员分享，可在线阅读，更多相关《选择结构-西安交通大学（33页珍藏版）》请在金锄头文库上搜索。
1、选择结构,教学目标,掌握IFTHENElse语句 熟悉组合框、列表框、检查列表框（CheckedListBox） 掌握Select Case语句,4.1 If语句,4.1.1 IfThen语句 If-Then语句用来当条件满足时执行某些语句，反之则不执行。If-Then语句的格式如下：If Then语句块End IfIf-Then语句亦称为单分支结构。其中条件表达式的值为Boolean型，用将条件表达式括起来表示它在IF语句中是必须具有的一项，即IF语句中的条件表达式不可缺少。,例如，对输入的数值进行判断。输入大于25的数值时，在MessageBox内显示“大于25”。否则将不显示任何信息。I
2、f intNumber 25 Then MessageBox.Show( “大于25“)End If,4.1.2 IfThenElse语句,当条件表达式的值为True时，程序执行一些语句，其值为False时，程序执行另一些语句，此时可以使用If-Then-Else语句。If-Then-Else语句的格式如下：If Then Else End If该语句的作用是当条件表达式的值为True时，程序执行语句块1，当条件表达式的值为False时，程序将执行语句块2。,例如对intSex变量进行判断，为0时是男性；否则是女性：If intSex=0 ThenMessageBox.Show(“You ar
3、e a man!”)ElseMessageBox.Show(“You are a woman!”)End If,创建一新的项目，对输入的数值进行判断。在其中的一个TextBox中输入数值，如果输入的数据为7的整倍数，在另一个TextBox文本框内显示“是7的倍数”，反之则显示“不能被7整除”。在窗体上放置2个TextBox控件，分别用来接受输入和显示结果，Name属性分别为TxtInput和TxtResult。再添加一个按钮，并为这个按钮的Click事件编写如下代码： Private Sub BtnGo_Click(ByVal sender As System.Object, _ ByVal
4、e As System.EventArgs) Handles BtnGo.Click Dim lngIn As LonglngIn = Convert.ToInt64(TxtInput.Text) 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结构中使用
5、ElseIf 语句，格式如下：If ThenElseIf ThenElse 语句块n+1End If该语句的作用是根据不同的条件表达式的值确定执行哪个语句块，Visual Basic测试条件的顺序为条件表达式1、条件表达式2、，每当遇到某个条件表达式值为True时，就执行该条件下的语句块。,例如在下面一段代码中根据Caller的值不同而执行不同的语句。If Caller = “Joe“ ThenMessageBox.Show（ “Yes!“）ElseIf Caller = “Matt“ ThenMessageBox.Show（“Okay, but if you buy.“）ElseIf Cal
6、ler = “Jeff“ ThenMessageBox.Show（“Im washing my hair tonight.“）ElseIf Caller = “Robby“ ThenMessageBox.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时
7、显示“n=3 & x=6”。If n = 3 ThenMessageBox.Show(“n=3“)If x = 6 ThenMessageBox.Show(“x=6 & n=3“)End IfEnd IfIf语句对于嵌套的多少是没有限制的。但是嵌套的层数越多，代码执行起来就会越困难，越容易出错。所以，应尽量把嵌套层数减少。,例:在两个文本框中任意输入两个数字，按下Max按钮后将较大的一个显示在第三个文本框中。创建新的工程起名为Biger，在窗体上放置3个TextBox控件和一个按钮，清除3个TextBox控件的Text属性，将3个TextBox控件的name属性分别设置为TxtOp1，TxtO
8、p2，TxtBiger；将TxtBiger的ReadOnly属性设置为True；按钮的name属性为BtnBiger，Text的name属性为Max。采用快速添加事件代码的方法，双击按钮添加代码如下： 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 dblOp
9、1 = dblOp2 ThenTxtBiger.Text = dblOp1ElseTxtBiger.Text = dblOp2End IfEnd Sub,4.1.5 Select Case语句(情况语句),Select Case语句是实现选择结构程序设计的另一种语句。它的使用有时比If语句更加简单直观。 Select Case语句的格式如下：Select Case 变量名或表达式Case 表达式列表1语句块1Case 表达式列表2语句块2Case Else 语句块n+1 End Select,其中变量名或表达式可以是所有基本数据类型；表达式列表与“变量名或表达式”的类型必须相同，可以取下面四种
10、形式： 表达式 一组枚举表达式（用逗号分隔） 表达式值的范围（如：表达式1 To 表达式2） Is 关系运算符表达式 例如：Case 1 To 8 表示测试表达式的值在1到8之间Case 1,.3,5,7,Is11 表示测试表达式的值为1,3,5,7或大于11 该语句的作用是根据中的结果与各Case子句中的表达式的值进行比较，以决定执行哪一组语句块。,在Visual Basic .NET中，可以把所有基本数据类型运用到Select Case语句中。当有多个Case表达式的值与测试值匹配时，系统执行第一个与之匹配的语句。采用Select Case语句改写前面IfThenElseIf的例子，如下所
11、示： Select Case Caller Case “Joe” MessageBox.Show（ “Yes!“） Case “Matt” MessageBox.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 EN
12、D语句,End语句用于结束一个程序的运行，它可以放在任何事件过程中。End语句格式如下：End以上在顺序结构、选择结构的代码中，都用到End与对应结构的关键词复合的语句。其实，以后介绍的情况语句、循环结构、子程序、过程等等的程序代码中，也必须以End与关键词复合语句结尾。这是Visual Basic代码编写时的规则，即作为一个完整的结构（顺序、选择（情况）、循环）、子程序、程序块，最后一个语句必须用End的关键词复合语句，以示该程序到此结束。否则，系统将会提示出错信息。例如End If、End Select、End Sub、End With等等。,4.3 ListBox、CheckedList
13、Box、ComboBox控件,ListBox（列表框）、CheckedListBox（复选列表框）和ComboBox（组合列表框），向用户提供选项。它们均可显示多个选项，而且比多个单选按钮或检查框占据的空间要少一些。,4.3.1 ListBox控件,ListBox控件用来显示选项列表，用户可从中进行选择一项或选择多项的操作。在窗体创建一个列表框时，单击ListBox小图标。鼠标箭头变为十字形状，将鼠标移至窗体上适当位置，按住鼠标左键，拖动鼠标绘制列表框。右图为添加了选项的ListBox。,4.3.1.1 ListBox的属性在设计的时候为ListBox添加选项，可以使用属性窗口中的Items属
14、性（位于Data类别中）。打开ListBox的属性窗口，单击Items属性项右边的带有三个小黑点的按钮。Visual Studio .NET将打开一个字符串集合编辑器。将相应的选项内容输入到字符串集合编辑器中。.每输入一个选项后，按回车键换行。全部选项输入完毕后，单击OK按钮结束，如图4-3所示的ListBox。如果项总数超出可以显示的项数，则自动向 ListBox 控件添加滚动条。常用属性： SelectionMode属性。 SelectedIndex属性。 SelectedItem属性获取或设置 ListBox 中的当前选定项。 SelectedIndices 属性，获取一个集合 。 Se
15、lectedItems 属性，对于多重选择 ListBox，此属性返回一个集合。 Sorted属性，该属性决定列表框中的项目在程序运行期间是否按字母顺序排列显示。 Text属性，该属性值是被选中的列表项的内容 。,4.3.1.2 程序运行时改变ListBox项 ListBox的Item属性本身是一个集合对象，可以利用Item的方法在程序运行期间给ListBox添加新的项目或删除某一项。 用Add方法在ListBox后添加一项：ListBoxName.Item.Add(“新的表项”) 要将某一项插入到指定位置，可以使用Insert方法：ListBoxName.Item.Insert(n， “新的
16、表项”) 其中n表示要插入的位置。需要删除一项时，可以使用Remove方法：ListBoxName.Item.RemoveAt（n）ListBoxName.Item.Remove（“要删除的项”） 使用项目的索引值，用RemoveAt 方法；用Remove方法通过删除项目本身的值来删除它。还可以使用Clear方法一次将所有项全部删除。,右边是一个关于ListBox的完整的例子。在ListBox中选中一项，可以通过单击删除按钮将它删去；也可以在TextBox中输入新项，单击加入按钮将此项添加到ListBox中。3个按钮的Name属性分别为BtnAdd、BtnRemove和BtnExit。List
17、Box的Name属性为LstboxCourse。TextBox的Name属性为TxtNew。在程序的设计阶段，已经使用Item的字符串集合编辑器添加了一些项。,下面分别为3个按钮添加Click事件处理代码如下： Private Sub BtnAdd_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles BtnAdd.ClickIf TxtNew.Text “ ThenLstboxCourse.Items.Add(TxtNew.Text)End If End Sub Private Sub BtnR
18、emove_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles BtnRemove.ClickIf LstboxCourse.SelectedIndex = 0 ThenLstboxCourse.Items.RemoveAt(LstboxCourse.SelectedIndex)End If End Sub Private Sub BtnExit_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles BtnExit.ClickEnd End Sub,
