[工学]vb选择结构课件.ppt

第3章 选择结构 3.2 If语句 3.2.1 If…Then语句 ? If 条件表达式 Then 语句块 End If ? 对输入的数值进行判断。输入的年龄小于10时，在MessageBox内显示： If intAge10Then MessageBox.Show(The age may be wrong ) End If Dim strInfo As String Dim strTemp As String strInfo = 奖学金的选择情况： If RbtnBursary1.Checked = True Then strTemp = 一等奖 End If If RbtnBursary2.Checked = True Then strTemp = 二等奖 End If If RbtnBursary3.Checked = True Then strTemp = 三等奖 End If strInfo = strInfo strTemp 性别选择： If RbtnMan.Checked = True Then strTemp = 男 End If If RbtnWoman.Checked = True Then strTemp = 女 End If strInfo = strInfo strTemp 其他选择: “ If ChkboxClassLeader.Checked = True Then strInfo = strInfo 班干部 End If If ChkboxLeader.Checked = True Then strInfo = strInfo 学生会干部 End If If ChkboxAssn.Checked = True Then strInfo = strInfo 社团成员 End If MessageBox.Show(strInfo) 3.2.2 If…Then…Else语句 If 条件表达式 Then 语句块1 Else 语句块2 End If 语句n 例: Multiple7 Dim lngIn As Long lngIn = Convert.ToInt64(TxtInput.Text) If lngIn Mod 7 = 0 Then TxtResult.Text = 是的倍数 Else TxtResult.Text = 不能被整除 End If 3.2.3 If…Then…ElseIf语句 If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 [ElseIf 条件3 Then 语句块 3] … Else 语句块n End If? 多分支块IF结构的逻辑结构 例： ? If Caller = Joe Then MessageBox.Show（ Yes!） ElseIf Caller = Matt Then MessageBox.Show（Okay, but if you buy.） ElseIf Caller = Jeff Then MessageBox.Show（I’m washing my hair tonight.） ElseIf Caller = Robby Then