选择结构的基本性质.pptVIP

第四章 选择结构 教学目标 掌握IF…THEN…Else语句 熟悉组合框、列表框、检查列表框（CheckedListBox） 掌握Select Case语句 4.1 If语句 4.1.1 If…Then语句 If-Then语句用来当条件满足时执行某些语句，反之则不执行。If-Then语句的格式如下： ? If 条件表达式 Then 语句块 End If ? If-Then语句亦称为单分支结构。其中条件表达式的值为Boolean型，用将条件表达式括起来表示它在IF语句中是必须具有的一项，即IF语句中的条件表达式不可缺少。 例如，对输入的数值进行判断。输入大于25的数值时，在MessageBox内显示“大于25”。否则将不显示任何信息。 ?If intNumber 25 Then MessageBox.Show( 大于25) End If 4.1.2 If…Then…Else语句 当条件表达式的值为True时，程序执行一些语句，其值为False时，程序执行另一些语句，此时可以使用If-Then-Else语句。If-Then-Else语句的格式如下： ?If 条件表达式 Then 语句块1 Else 语句块2 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中输入数值，如果输入的数据为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 Long lngIn = Convert.ToInt64(TxtInput.Text)? If lngIn Mod 7 = 0 Then TxtResult.Text = 是7的倍数 Else TxtResult.Text = 不能被7整除 End If? End Sub 程序中使用了显示的转换Convert.ToInt64，当然也可以直接赋值，由Visual Basic作隐式转换。 4.1.3 If…Then…ElseIf语句 分支超过2个的情况，此时可以在If…Then…End If结构中使用ElseIf 语句，格式如下： ? If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 … [Else [语句块n+1] End If ? 该语句的作用是根据不同的条件表达式的值确定执行哪个语句块，Visual Basic测试条件的顺序为条件表达式1、条件表达式2、……，每当遇到某个条件表达式值为True时，就执行该条件下的语句块。 例如在下面一段代码中根据Caller的值不同而执行不同的语句。 ? If Caller = Joe Then MessageBox.Show（ Yes!） ElseIf Caller = Matt Then Mess