【正文】 : 輸入 10個(gè)數(shù)，輸出累加之和。 賦值語(yǔ)句 InputBox（） MsgBox（）、 MsgBox過程 Print方法 注意：標(biāo)點(diǎn)符號(hào)（分號(hào)、逗號(hào)）和 Tab()、 Space（）函數(shù)的使用 分支結(jié)構(gòu) 單分支、雙分支、分支嵌套 回顧 Y= (x=100元 ) (x=200元 ) (x=300元 ) (x300元 ) 第七講 基本控制結(jié)構(gòu) 問題：書店優(yōu)惠售書 （ x：合計(jì)金額， y：實(shí)付金額） If x = 100 Then y = * x Else If x = 200 Then y = * x Else If x = 300 Then y = * x Else y = * x End If End If End If 3. 多分支語(yǔ)句 (情況語(yǔ)句 ) Select Case 變量 Case 表達(dá)式列表 1 語(yǔ)句塊 1 Case 表達(dá)式列表 2 語(yǔ)句塊 2 … [Case Else 語(yǔ)句塊 n+1] End Select Case后的表達(dá)式有四種形式： 表達(dá)式 一個(gè)數(shù)： 2 枚舉表達(dá)式 (用逗號(hào)分隔 ) 多個(gè)數(shù)： 2,4,6,8 表達(dá)式 1 To 表達(dá)式 2 一個(gè)范圍 60 To 100 Is 關(guān)系運(yùn)算符表達(dá)式 一個(gè)范圍 Is 60 例 11 書店優(yōu)惠售書 思考： 設(shè)計(jì)一個(gè)計(jì)程車收費(fèi)程序 思考： 書店優(yōu)惠售書 If x = 100 Then y = * x If x = 200 Then y = * x If x = 300 Then y = * x If x 300 Then y = * x 思考：設(shè)計(jì)一個(gè)測(cè)屬相程序 1. For循環(huán)語(yǔ)句 (用于循環(huán)次數(shù)已知 )形式 For 循環(huán)變量＝初值 to 終值 [Step 步長(zhǎng) ] 循環(huán)體 Next 循環(huán)變量 思考 ： 輸入 10個(gè)數(shù)，輸出偶數(shù)之和。 2. If… Then… Else語(yǔ)句 (雙分支結(jié)構(gòu) ) If 表達(dá)式 Then 語(yǔ)句塊 1 Else 語(yǔ)句塊 2 End If If 表達(dá)式 Then 語(yǔ)句 1 Else 語(yǔ)句 2 問題： 判斷一個(gè)整數(shù)的奇偶性 注意：?jiǎn)畏种Ш碗p分支如果寫成 塊 形式，If和 End If必須成對(duì)出現(xiàn)，寫成 行 形式就不能帶 End If 例 10 帳號(hào)和密碼 （ 1）運(yùn)行效果 （ 2）目的：分支結(jié)構(gòu)及分支結(jié)構(gòu)的嵌套 （ 3）分析： 布局：兩個(gè)標(biāo)簽，兩個(gè)文本框和兩個(gè)命令按鈕 控制邏輯：略 （ 4）設(shè)計(jì)： 5 思考 2： 判斷一個(gè)數(shù)是整數(shù)還是小數(shù)，如果 是整數(shù)再判斷其奇偶性 。 如果假期是 清明節(jié)：去濮塘； 五一節(jié)：去采石； 端午節(jié)：回老家； 暑 假：去上海。 二 、分支結(jié)構(gòu) 簡(jiǎn)單分支 雙分支 多分支 如果五一節(jié)放假，那么，我就去旅游。 InputBox函數(shù)（ 輸入數(shù)據(jù) ） 注意：函數(shù)返回的數(shù)據(jù)是 字符類型 。順序結(jié)構(gòu)沒控制語(yǔ)句，主要涉及 賦值語(yǔ)句、Print方法、 InputBox和 MsgBox函數(shù)（ MsgBox過程）。 （ 2）已知 A=,B=,C=,D=True則表達(dá)式 A=0 AND A+CB+3 Or Not D的值是 ( ) (3)Int(),Int(),Fix(),Fix(),Round(),Round()的值分別是 : (4)表達(dá)式 Ucase(Mid( ABcdefgh ,3,4))的值是 ( ) (5)在 VB中字符常量應(yīng)使用 ( )將其括起來(lái) ,日期 /時(shí)間型常量應(yīng)使用 ( )符號(hào)將其括起來(lái) (6) ,字符是采用 ( )編碼形式來(lái)表達(dá)和存儲(chǔ)的 ,在該編碼方案下 ,一個(gè)漢字或一個(gè)英文字符均被看做 ( )個(gè)字符 ,每個(gè)字符用 ()個(gè)字節(jié)編碼 (7)函數(shù) Int(10*Rnd)的結(jié)果是在 ( )范圍內(nèi)的整數(shù) 第六講 基本控制結(jié)構(gòu) 語(yǔ)言元素組成語(yǔ)句，語(yǔ)句組成程序，語(yǔ)句需要按一定的順序執(zhí)行才能實(shí)現(xiàn)既定功能，而語(yǔ)句的執(zhí)行順序由控制結(jié)構(gòu)控制，任何問題的解決只需三種結(jié)構(gòu)： ?順序結(jié)構(gòu) ?分支結(jié)構(gòu)（選擇結(jié)構(gòu)） ?循環(huán)結(jié)構(gòu)（重復(fù)結(jié)構(gòu)） 理解控制結(jié)構(gòu)是如何控制程序的執(zhí)行順序的，從而掌握如何根據(jù)功能需要用控制結(jié)構(gòu)來(lái)組織所需要的語(yǔ)句。 100 (3)INT(*100+)/100 (4)已知 A$= 87654321 ,則表達(dá)式 Val(Left$(A$,4)+Mid$(A$,4,2))的值 (5)DateAdd( M ,1,1/30/2022) (6)Len( VB程序設(shè)計(jì) ) 填空題 (1)在 VB中 ,1234,123456amp。 4. 注釋有利于程序的維護(hù)和調(diào)試 Rem開始 或 單撇號(hào) 39。 123 “123123” 246 “123123” Asc(C) Asc(A) 65 Chr(N) Chr(65) A Ucase(C) Ucase(Abcd) “ABCD” Lcase(C) Lcase(Abcd) “abcd” 舉例 注意： (1)Val( )只能將數(shù)字字符轉(zhuǎn)換成數(shù)值 ,遇到非數(shù)字字符停止轉(zhuǎn)換 (2)Str( )轉(zhuǎn)換成字符時(shí) ,最前面留有一位符號(hào)位 測(cè)試函數(shù) 函數(shù)名 舉例 結(jié)果 TypeName(X) TypeName(10) TypeName() Integer Double IsNumeric(X) IsNumeric(23 ) True IsDate(X) IsDate(02/02/2022 ) True 格式輸出函數(shù) 函數(shù)名 舉例 結(jié)果 Format Print Format(, ) Print Format(, ) Print Format(, ) Print Format(, . ) Print Format(, . ) Print Format(Date, yymmdd ) 040302 Print Format( ABCD , ) abcd Shell函數(shù) Shell( )調(diào)用計(jì)算器 Shell( )調(diào)用記事本 例題 四、 編碼規(guī)則 1. 語(yǔ)句的一般形式： 語(yǔ)句定義符 [語(yǔ)句體 ] Dim a As Integer a=3 Print a 2. VB代碼不區(qū)分字母的大小寫 系統(tǒng)保留字自動(dòng)轉(zhuǎn)換每個(gè)單詞的首字母為大寫； 用戶自定義以第一次為準(zhǔn)。 函數(shù)的構(gòu)成： 函數(shù)名 (參數(shù)表 ) 如： Abs(3) Time( ) 注意：函數(shù)不是語(yǔ)句，大部分函數(shù)調(diào)用的時(shí)候必須作為語(yǔ)句的組成部分，而不能直接出現(xiàn)。 例： ABCDE ABRA 結(jié)果為 False 邏輯運(yùn)算符及邏輯表達(dá)式 將操作數(shù)進(jìn)行邏輯運(yùn)算，結(jié)果是邏輯值： 表達(dá)式書寫舉例 （ 1+xy） 6 (1+x*y)^6 單位招聘員工： 年齡 小于 40歲 ,法律 專業(yè) ， 學(xué)歷 專科或本科 年齡 40 And 專業(yè) = 法律 And (學(xué)歷 = ?？? Or 學(xué)歷 = 本科 ) 73 ?? xx 是不大于 100的正數(shù) X=0 and x=100 正確的 VB表達(dá)式： 3〈 =x And x =7 錯(cuò)誤的 VB表達(dá)式： 3=x=7 或 3=x Or x=7 回顧 識(shí)別下列保留字 Integer Long Single Double String Option Explicit Const 運(yùn)算符和表達(dá)式 注意把握運(yùn)算規(guī)則、運(yùn)算優(yōu)先級(jí)別、數(shù)據(jù)類型轉(zhuǎn)換 ？ 123 3 ？ 123 3 ？ 1234512345 amp。 結(jié)果為 122 True轉(zhuǎn)換為數(shù)值 1， False轉(zhuǎn)換為數(shù)值 0 關(guān)系運(yùn)算符及關(guān)系表達(dá)式 將兩個(gè)操作數(shù)進(jìn)行大小比較，結(jié)果為邏輯量。 結(jié)果為 123456 123 + 456 39。 出錯(cuò) “+”不僅是字符串運(yùn)算符，還是算術(shù)運(yùn)算符 123 amp。 12345 39。O100 (11)True (12) T （ 13） 123！ （ 14） VB $ （ 15） 姓名 （ 16） 姓名 下列符號(hào)中，哪些是 VB合法的變量名 （ 1） A123 （ 2） A12_3 （ 3） 123A （ 4） A 123 （ 5） Integer （ 6） XYZ （ 7） False （ 8） SIN(X) （ 9） SINX （ 10） 變量名 （ 11） abcd 3 二 、 運(yùn)算符和表達(dá)式 算術(shù)運(yùn)算符及算術(shù)表達(dá)式 運(yùn)算符 含義 優(yōu)先級(jí) 實(shí)例 結(jié)果 ^ 乘方 1 2^2 4 取負(fù) 2 5 5 * 乘 3 2*5 10 / 自然除 3 9/3 3 \ 整除 4 10\3 3 Mod 取模 5 10 Mod 3 1 + 加 6 5+1+5 1 減 6 55 0 字符串運(yùn)算符及字符串表達(dá)式 ＆ 、 + 字符串連接 123 + 456 結(jié)果 123456 123 amp。 例： VbRed、 VbCrLf等 練習(xí) 說明下列哪些量是 VB合法的直接常量，分別屬于什么類型。 為使與變量名區(qū)分，一般常量名使用大寫字母。o23,amp。 注意 : 在通用聲明處加 Option Explicit 語(yǔ)句可強(qiáng)制顯式聲明 變量。 a. 以字母或漢字開頭，其后可跟漢字、字母、數(shù)字或下劃 線，長(zhǎng)度不超過 255個(gè)字符； b. 不要使用 VB中的關(guān)鍵字； c. 變量名中的字母不區(qū)分大小寫； （ 1）變量名的命名規(guī)則 （ 2） 變量聲明 ：變量的名稱、類型 a、 用 Dim 顯式聲明變量 形式： Dim 變量名 [AS 類型 ] Dim 變量名 [類型符 ] 例 Dim i As integer , s As single 等價(jià)于 Dim i%, s! 注意：變量類型的確定，需一一說明 ?變量的賦值 變量名 =表達(dá)式 ?將值賦給已定義類型的變量時(shí)，系統(tǒng)會(huì)將數(shù)值轉(zhuǎn)化成變量的類型 ?未經(jīng)定義類型的變量的數(shù)據(jù)類型是由賦給它的值的類型決定 b、 隱式聲明 未進(jìn)行上述的聲明而直接使用，其類型為 Variant 類型。 單精度 Single ! ！ , 雙精度 Double , 字符型 String $ VB , 程序設(shè)計(jì) , 12 邏輯型 Boolean 無(wú) True, False 日期型 Date 無(wú) 03/02/2022, 10:30 變體型 Variant 無(wú) 變量與常量 s = * r ^ 2 變量 ：在程序運(yùn)行中用來(lái)存儲(chǔ)數(shù)據(jù)，且其值可以改變的量，其實(shí)質(zhì)是在內(nèi)存中開辟的臨時(shí)存儲(chǔ)單元。 123amp。 是程序的重要組成部分，也是程序處理的對(duì)象和處理的結(jié)果。 三、應(yīng)用題 設(shè)計(jì)如圖所示界面，單擊“確定”按鈕，顯示第二個(gè)標(biāo)簽，其標(biāo)題是文本框中的姓名和“編寫的程序”。 Name屬性的值。 （ 4）保存文件時(shí)，窗體文件的擴(kuò)展