程序VB选择结构程序设计学习教案

1、会计学1程序程序VB选择结构选择结构(jigu)程序设计程序设计第一页，共52页。第1页/共52页第二页，共52页。第2页/共52页第三页，共52页。 True False P A B 第3页/共52页第四页，共52页。第4页/共52页第五页，共52页。注注1 1：条件表达式的值为：条件表达式的值为TrueTrue或或FalseFalse，一般，一般是 逻 辑 或 关 系 表 达 式 ， 也 可 以 是 算 术是 逻 辑 或 关 系 表 达 式 ， 也 可 以 是 算 术(sunsh)(sunsh)表达式（转换为逻辑值）表达式（转换为逻辑值）格式格式1 1： 块形式块形式 格式格式2 2：单行

2、形式单行形式 条件表达式条件表达式语句体语句体TrueFalse注注2 2：当条件为：当条件为TrueTrue时执行语句体，否则执行时执行语句体，否则执行IfIf语句的下一条语句语句的下一条语句注注3 3：语句体中可以是：语句体中可以是多条语句多条语句，当采用，当采用格式格式2 2时，所有的语句必须写在一行，用时，所有的语句必须写在一行，用冒号隔开冒号隔开语句体语句体中的语句中的语句 第5页/共52页第六页，共52页。特别注意：特别注意：块结构时块结构时If和和End If成对成对(chn du)出现出现第6页/共52页第七页，共52页。 第7页/共52页第八页，共52页。Private Su

3、b Command1_Click()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text - 1If Text1.Text = 0 ThenTimer1.Enabled = FalseEnd IfEnd Sub第8页/共52页第九页，共52页。格式格式(g shi)1(g shi)1：If If Then Then 语句体语句体1 1ElseEls

4、e语句体语句体2 2 End If End If 格式格式2 2：注：当条件为注：当条件为TrueTrue时执行语句体时执行语句体1 1，否则执行语句，否则执行语句体体2 2T条件表达式条件表达式语句体语句体1F语句体语句体2第9页/共52页第十页，共52页。xy 等价等价(dngji)于：于：If x =30 x=30的信息的信息第14页/共52页第十五页，共52页。Else Print x & “=” & ynEnd If End If一条一条IfIf语句语句一条一条IfIf语句语句第15页/共52页第十六页，共52页。外层外层IfIf内层内层IfIf内层内层IfIf内外层内外层(wi c

5、n)(wi cn)不能有交叉！不能有交叉！第16页/共52页第十七页，共52页。If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If第17页/共52页第十八页，共52页。If ThenIf Then Else End IfElseIf Then If Then Else End IfEnd If为体现层次，可以为体现层次，可以(ky)(ky)使用使用TabTab健排放健排放不同层次的语句不同层次的语句第18页/共52页第十九页，共52页。第19页/共52页第二十页，共52页。第20页/共52页第二十一页，共52页。第21

6、页/共52页第二十二页，共52页。If ab Thenmax=aElsemax=bEnd Ifmax= IIf ( ab , a , b ) 第22页/共52页第二十三页，共52页。第23页/共52页第二十四页，共52页。 If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If等价等价(dngji)于：于：y = IIf(x 30, 0, IIf(x = 50, (x - 30) * 10, (x - 50) * 20 + 20 * 10) 第24页/共52页

7、第二十五页，共52页。第25页/共52页第二十六页，共52页。 If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End If等价等价(dngji)于：于：y = Switch(x 30, 0, x50, (x-50)*20+20*10) 条件条件条件条件条件条件值值值值值值第26页/共52页第二十七页，共52页。第27页/共52页第二十八页，共52页。T表达式表达式1语句语句(yj)体体1表达式表达式2语句语句(yj)体体2T表达式表达式n语句体语句体n语句体语句体

8、n+1T执行过程执行过程:计算测试表达式的值；计算测试表达式的值；依次比较依次比较各个表达式，符合条件则进入相应的语句体执行；各个表达式，符合条件则进入相应的语句体执行；执行执行Select Case语句的下一条语句。语句的下一条语句。计算测试表达式的值计算测试表达式的值第28页/共52页第二十九页，共52页。第29页/共52页第三十页，共52页。Select Case chSelect Case chCase “a” Case “a” ToTo “z”, “A” “z”, “A” toto “Z” “Z”Print “Print “字母字符字母字符” Case “0” Case “0” To

9、To “9” “9”Print “Print “数字数字(shz)(shz)字符字符”Case “ ”Case “ ”Print “Print “空格空格”Case ElseCase ElsePrint “Print “其他字符其他字符”End SelectEnd Select第30页/共52页第三十一页，共52页。Select Case Cmbop.Text Case txtresult = Val(txtX) + Val(txtY) Case txtresult = Val(txtX) - Val(txtY) Case txtresult = Val(txtX) * Val(txtY) C

10、ase txtresult = Val(txtX) / Val(txtY)End Select If Val(txtY) 0 Then txtresult = Val(txtX) / Val(txtY)Else MsgBox 被被0除除 txtY = : txtY.SetFocusEnd If第31页/共52页第三十二页，共52页。 If x 30 Then y = 0 ElseIf x = 50 Then y = (x - 30) * 10 Else y = (x - 50) * 20 + 20 * 10 End IfSelect Case x Case Is 50 y = (x - 50)

11、 * 20 + 20 * 10End Select第32页/共52页第三十三页，共52页。第33页/共52页第三十四页，共52页。Max = B 第34页/共52页第三十五页，共52页。例例 在文本框中输入在文本框中输入(shr)一个字符串，要求只能出现字母。一个字符串，要求只能出现字母。 Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii Asc(z) And _ (KeyAscii Asc(Z) Then KeyAscii = 0End Sub第35页/共52页第三十六页，共52页。“确定确定”按钮的按钮的Click事件

12、过程如下：事件过程如下：Private Sub cmdok_Click() If txtuser.Text = Or txtpwd.Text = Then MsgBox 请输入完整信息！请输入完整信息！ Else If txtpwd.Text 20082008 Then MsgBox密码密码(m m)错误，不能登录！错误，不能登录！ txtpwd .Text = txtpwd.SetFocus Else MsgBoxtxtuser.Text & ，欢迎您！，欢迎您！ End If End IfEnd Sub 有效信息：有效信息：帐号和密码都不能空帐号和密码都不能空密码符合要求密码符合要求这样的

13、密码设置方法，安全性差这样的密码设置方法，安全性差第36页/共52页第三十七页，共52页。第37页/共52页第三十八页，共52页。参考代码参考代码(di m)如下：如下：Private Sub cmdCal_Click() Dim sum As Integer, n As Integer If chkChinese.Value = 1 Then sum = sum + Val(txtChinese.Text): n = n + 1 If chkMath.Value = 1 Then sum = sum + Val(txtMath.Text): n = n + 1 If chkEnglish.V

14、alue = 1 Then sum = sum + Val(txtEnglish.Text): n = n + 1 If optTotal.Value Then txtResult.Text = n & 门课总分门课总分: & vbCrLf & sum Else If n 0 Then txtResult.Text = n & 门课平均分门课平均分: & vbCrLf & sum / n End IfEnd Sub 问：变量问：变量n的作用是什么？的作用是什么？第38页/共52页第三十九页，共52页。第39页/共52页第四十页，共52页。 If a b Then temp = a: a = b

15、: b = temp 如果(rgu)a大于b，交换a和b的值 If a c Then temp = a: a = c: c = temp 如果(rgu)a大于c，交换a和c的值 If b c Then temp = b: b = c: c = temp 如果(rgu)b大于c，交换b和c的值第40页/共52页第四十一页，共52页。根据数学中一元二次方程的求根公式，令：当0时，方程有两个不相等(xingdng)的实根；当=0时，方程有两个相等(xingdng)的实根；当0时，方程有两个不相等(xingdng)的虚根。 第41页/共52页第四十二页，共52页。第42页/共52页第四十三页，共52页。第43页/共52页第四十四页，共52页。第44页/共52页第四十五页，共52页。第45页/共52页第四十六页，共52页。第46页/共52页第四十七页，共52页。 Select Case n Case 0: MsgBox 不能被任一数整除(zhngch) Case 1: MsgBox 能被3整除(zhngch) Case 2: MsgBox 能被5整除(zhngch) Case 3: MsgBox 能被3