程序VB选择结构程序设计.pptVIP

2.3.2 Select Case语句 例：已知变量ch中存放了一个字符，判断该字符是字母字符、数字字符、空格还是其它字符。(用Select Case语句改写) 分析：将各种字符的判断条件改写成符合要求的Case条件 字母字符：ch=“a” And ch=“z” Or ch=“A” And ch=“Z”? “a” To “z”, “A” to “Z” 数字字符：ch=“0” And ch=“9”? “0” To “9” 空格字符：ch=“ ”? “ ”?Is=“ ” 实现： Select Case ch Case “a” To “z”, “A” to “Z” Print “字母字符” Case “0” To “9” Print “数字字符” Case “ ” Print “空格” Case Else Print “其他字符”End Select 程序VB选择结构程序设计全文共52页，当前为第31页。 2.3.2 Select Case语句 例7-5简单运算器 分析：运算符的判断：共四种取值，事先已在ComboBox中 Select Case Cmbop.Text Case ＋  txtresult = Val(txtX) + Val(txtY) Case － txtresult = Val(txtX) - Val(txtY) Case × txtresult = Val(txtX) * Val(txtY) Case ÷ txtresult = Val(txtX) / Val(txtY) End Select 除数为0？ If Val(txtY) 0 Then txtresult = Val(txtX) / Val(txtY) Else MsgBox 被0除 txtY = : txtY.SetFocus End If 程序VB选择结构程序设计全文共52页，当前为第32页。 2.3.2 Select Case语句 所有Select Case语句可以替换为If…Then…ElseIf…语句。 只有在If语句和每一个ElseIf语句计算相同条件表达式时，才能用Select Case结构替换If…Then…ElseIf…结构。 If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If Select Case x Case Is 30 y = 0 Case 30 To 50 y = (x - 30) * 10 Case Is 50 y = (x - 50) * 20 + 20 * 10 End Select 程序VB选择结构程序设计全文共52页，当前为第33页。 2.3.3 基本算法及应用 2.3.3.1 求两个数的最大（小）值 2.3.3.2 用户输入时按键的判断 2.3.3.3 信息的有效性验证 2.3.3.4 单选钮和复选框的应用 程序VB选择结构程序设计全文共52页，当前为第34页。 2.3.3.1求两个数的最大（小）值 分析： 两个数的关系无非有3种情形，即：AB，A=B，AB。 实现： (最大值) If A = B Then Max = A Else Max = B If A B Then Max = A Else Max = B 程序VB选择结构程序设计全文共52页，当前为第35页。 2.3.3.2用户输入时按键的判断 两种方法： 一是在输入时判断，使用文本框的Key事件； 常用：KeyPress事件（KeyAscii参数） 二是在全部输入完成后再对每个字符进行判断，使用循环结构依次获取字符串中的字符。 例 在文本框中输入一个字符串，要求只能出现字母。 Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii Asc(a) Or KeyAscii Asc(z)) And _ (KeyAscii Asc(A) Or KeyAscii Asc(Z)) Then KeyAscii = 0 End Sub 程序VB选择结构程序设计全文共