程序VB選擇結(jié)構(gòu)程序設(shè)計(jì)學(xué)習(xí)教案

1、會(huì)計(jì)學(xué)1程序程序VB選擇結(jié)構(gòu)選擇結(jié)構(gòu)(jigu)程序設(shè)計(jì)程序設(shè)計(jì)第一頁，共52頁。第1頁/共52頁第二頁，共52頁。第2頁/共52頁第三頁，共52頁。 True False P A B 第3頁/共52頁第四頁，共52頁。第4頁/共52頁第五頁，共52頁。注注1 1：條件表達(dá)式的值為：條件表達(dá)式的值為TrueTrue或或FalseFalse，一般，一般是 邏 輯 或 關(guān) 系 表 達(dá) 式 ， 也 可 以 是 算 術(shù)是 邏 輯 或 關(guān) 系 表 達(dá) 式 ， 也 可 以 是 算 術(shù)(sunsh)(sunsh)表達(dá)式（轉(zhuǎn)換為邏輯值）表達(dá)式（轉(zhuǎn)換為邏輯值）格式格式1 1： 塊形式塊形式 格式格式2 2：單行

2、形式單行形式 條件表達(dá)式條件表達(dá)式語句體語句體TrueFalse注注2 2：當(dāng)條件為：當(dāng)條件為TrueTrue時(shí)執(zhí)行語句體，否則執(zhí)行時(shí)執(zhí)行語句體，否則執(zhí)行IfIf語句的下一條語句語句的下一條語句注注3 3：語句體中可以是：語句體中可以是多條語句多條語句，當(dāng)采用，當(dāng)采用格式格式2 2時(shí)，所有的語句必須寫在一行，用時(shí)，所有的語句必須寫在一行，用冒號隔開冒號隔開語句體語句體中的語句中的語句 第5頁/共52頁第六頁，共52頁。特別注意：特別注意：塊結(jié)構(gòu)時(shí)塊結(jié)構(gòu)時(shí)If和和End If成對成對(chn du)出現(xiàn)出現(xiàn)第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：注：當(dāng)條件為注：當(dāng)條件為TrueTrue時(shí)執(zhí)行語句體時(shí)執(zhí)行語句體1 1，否則執(zhí)行語句，否則執(zhí)行語句體體2 2T條件表達(dá)式條件表達(dá)式語句體語句體1F語句體語句體2第9頁/共52頁第十頁，共52頁。xy 等價(jià)等價(jià)(dngji)于：于：If x =30 x=30的信息的信息第14頁/共52頁第十五頁，共52頁。Else Print x & “=” & ynEnd If End If一條一條IfIf語句語句一條一條IfIf語句語句第15頁/共52頁第十六頁，共52頁。外層外層IfIf內(nèi)層內(nèi)層IfIf內(nèi)層內(nèi)層IfIf內(nèi)外層內(nèi)外層(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為體現(xiàn)層次，可以為體現(xiàn)層次，可以(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等價(jià)等價(jià)(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等價(jià)等價(jià)(dngji)于：于：y = Switch(x 30, 0, x50, (x-50)*20+20*10) 條件條件條件條件條件條件值值值值值值第26頁/共52頁第二十七頁，共52頁。第27頁/共52頁第二十八頁，共52頁。T表達(dá)式表達(dá)式1語句語句(yj)體體1表達(dá)式表達(dá)式2語句語句(yj)體體2T表達(dá)式表達(dá)式n語句體語句體n語句體語句體

8、n+1T執(zhí)行過程執(zhí)行過程:計(jì)算測試表達(dá)式的值；計(jì)算測試表達(dá)式的值；依次比較依次比較各個(gè)表達(dá)式，符合條件則進(jìn)入相應(yīng)的語句體執(zhí)行；各個(gè)表達(dá)式，符合條件則進(jìn)入相應(yīng)的語句體執(zhí)行；執(zhí)行執(zhí)行Select Case語句的下一條語句。語句的下一條語句。計(jì)算測試表達(dá)式的值計(jì)算測試表達(dá)式的值第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 “數(shù)字?jǐn)?shù)字(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)一個(gè)字符串，要求只能出現(xiàn)字母。一個(gè)字符串，要求只能出現(xiàn)字母。 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)錯(cuò)誤，不能登錄！錯(cuò)誤，不能登錄！ txtpwd .Text = txtpwd.SetFocus Else MsgBoxtxtuser.Text & ，歡迎您！，歡迎您！ End If End IfEnd Sub 有效信息：有效信息：帳號和密碼都不能空帳號和密碼都不能空密碼符合要求密碼符合要求這樣的

13、密碼設(shè)置方法，安全性差這樣的密碼設(shè)置方法，安全性差第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頁。根據(jù)數(shù)學(xué)中一元二次方程的求根公式，令：當(dāng)0時(shí)，方程有兩個(gè)不相等(xingdng)的實(shí)根；當(dāng)=0時(shí)，方程有兩個(gè)相等(xingdng)的實(shí)根；當(dāng)0時(shí)，方程有兩個(gè)不相等(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 不能被任一數(shù)整除(zhngch) Case 1: MsgBox 能被3整除(zhngch) Case 2: MsgBox 能被5整除(zhngch) Case 3: MsgBox 能被3