【文章內(nèi)容簡介】 ,Lenb()返回的是字符串的字節(jié)數(shù) (2)Mid(C,N1,N2)省略 N2表示從第 N1位開始取 ,取到最后 日期和時(shí)間函數(shù) 函數(shù)名 舉例 結(jié)果 Date() Date() 20220331 Time() Time() 02:30:15 Now() Now() 20220331 02:30:15 Year(D) Year(Date()) 2022 轉(zhuǎn)換函數(shù) 函數(shù)名 舉例 結(jié)果 Val(C) Val(23)+2 Val(23A2)+2 23A2+2 Val(A23)+2 A23+2 Val(2e1) + 2 25 25 出錯(cuò) 2 出錯(cuò) 22 Str(N) Str(123)+123 Str(123)+123 Str(123) amp。 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í) ,最前面留有一位符號位 測試函數(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. 語句的一般形式： 語句定義符 [語句體 ] Dim a As Integer a=3 Print a 2. VB代碼不區(qū)分字母的大小寫 系統(tǒng)保留字自動轉(zhuǎn)換每個(gè)單詞的首字母為大寫； 用戶自定義以第一次為準(zhǔn)。 3. 語句書寫自由 一行可書寫幾句語句 ,之間用 冒號 分隔； 如： A=1： B=2： C=3 一條語句可分若干行書寫，用續(xù)行符 （空格 _） 連接，一行 =255個(gè)字符。 4. 注釋有利于程序的維護(hù)和調(diào)試 Rem開始 或 單撇號 39。 練習(xí) 把下列算術(shù)表達(dá)式寫成 VB表達(dá)式 （ 1） |x+y|+Z5 （ 2）（ 1+xy） 6 （ 3） （ 4） （ 5） x1 | a | + ln10 + sin(x2 + 2л) / cos(57 o) 3211111RRR?? aacbb242 ???根據(jù)條件寫一個(gè) VB表達(dá)式 （ 1）產(chǎn)生一個(gè)“ C”~“L”范圍內(nèi)的大寫字符 （ 2）產(chǎn)生一個(gè) 100~200之間的正整數(shù) （ 3）已知直角坐標(biāo)系中任意一個(gè)點(diǎn)（ X， Y），表示在第一或第三象限內(nèi) （ 4）表示 X是 5或 7的倍數(shù) （ 5）將任意一個(gè)兩位數(shù) X的個(gè)位數(shù)與十位數(shù)對換 （ 6）將變量 X四舍五入到小數(shù)點(diǎn)后第 2位小數(shù) （ 7）表示字符變量 C是字母字符 （ 8）取字符變量 S中，第 5個(gè)字符起的 6個(gè)字符 （ 9）表示 10≤X＜ 20的關(guān)系表達(dá)式 （ 10） X， Y中有一個(gè)小于 Z （ 11） X， Y都大于 Z 寫出下列表達(dá)式的值 (1)123+23 MOD 10\7+ASC(A) (2)100+100 amp。 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。,+5,+4四個(gè)常量分別表示 ( )、（）、（）、（）類型。 （ 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)使用 ( )將其括起來 ,日期 /時(shí)間型常量應(yīng)使用 ( )符號將其括起來 (6) ,字符是采用 ( )編碼形式來表達(dá)和存儲的 ,在該編碼方案下 ,一個(gè)漢字或一個(gè)英文字符均被看做 ( )個(gè)字符 ,每個(gè)字符用 ()個(gè)字節(jié)編碼 (7)函數(shù) Int(10*Rnd)的結(jié)果是在 ( )范圍內(nèi)的整數(shù) 第六講 基本控制結(jié)構(gòu) 語言元素組成語句，語句組成程序，語句需要按一定的順序執(zhí)行才能實(shí)現(xiàn)既定功能，而語句的執(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)來組織所需要的語句。 一、順 序 結(jié) 構(gòu) 順序結(jié)構(gòu)即按語句的先后，順序執(zhí)行程序。順序結(jié)構(gòu)沒控制語句，主要涉及 賦值語句、Print方法、 InputBox和 MsgBox函數(shù)（ MsgBox過程）。 例 8 輸入半徑 ,求圓面積和球體積。 InputBox函數(shù)（ 輸入數(shù)據(jù) ） 注意：函數(shù)返回的數(shù)據(jù)是 字符類型 。 函數(shù)形式：變量 =InputBox(提示 [,標(biāo)題 ][,默認(rèn)值 ]) r= InputBox(請輸入半徑 r： , 輸入數(shù)據(jù) , 4) MsgBox函數(shù)和 MsgBox過程（ 輸出提示信息 ） 函數(shù)形式： 變量 = MsgBox(提示 [,圖標(biāo) +按鈕 ][，標(biāo)題 ]) a = MsgBox(密碼錯(cuò)誤！ , 16 + 1, 登錄 ) 過程形式： Call MsgBox (提示 [,圖標(biāo) +按鈕 ][,標(biāo)題 ]) MsgBox 提示 [,圖標(biāo) +按鈕 ][,標(biāo)題 ] 圖標(biāo)類型 參數(shù)值 紅色 Stop標(biāo)志 16 詢問信息 ？ 32 警告信息 ！ 48 信息 I 64 按鈕 參數(shù)值 0 1 2 3 4 5 按下的按鈕 返回值 1 2 3 4 5 6 7 思考 例 8 輸入半徑 ,求圓面積和球體積。 二 、分支結(jié)構(gòu) 簡單分支 雙分支 多分支 如果五一節(jié)放假，那么，我就去旅游。 如果五一節(jié)放假，那么 我就去旅游， 否則， 我到機(jī)房做 vb作業(yè)。 如果假期是 清明節(jié)：去濮塘； 五一節(jié)：去采石； 端午節(jié)：回老家； 暑 假：去上海。 1. If… Then語句 (單分支結(jié)構(gòu) ) If 表達(dá)式 Then 語句塊 End If 或 If 表達(dá)式 Then 語句 問題 ： 輸入兩個(gè)數(shù)存放在 x和 y中 ，比較大小，保證大數(shù)放在 x中，小的數(shù)放在 Y中。 2. If… Then… Else語句 (雙分支結(jié)構(gòu) ) If 表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If If 表達(dá)式 Then 語句 1 Else 語句 2 問題： 判斷一個(gè)整數(shù)的奇偶性 注意：單分支和雙分支如果寫成 塊 形式，If和 End If必須成對出現(xiàn)，寫成 行 形式就不能帶 End If 例 10 帳號和密碼 （ 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ù)再判斷其奇偶性 。 思考 1： 設(shè)計(jì)最多可輸入 3次校驗(yàn)密碼的程序。 賦值語句 InputBox（） MsgBox（）、 MsgBox過程 Print方法 注意：標(biāo)點(diǎn)符號（分號、逗號）和 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. 多分支語句 (情況語句 ) Select Case 變量 Case 表達(dá)式列表 1 語句塊 1 Case 表達(dá)式列表 2 語句塊 2 … [Case Else 語句塊 n+1] End Select Case后的表達(dá)式有四種形式： 表達(dá)式 一個(gè)數(shù)： 2 枚舉表達(dá)式 (用逗號分隔 ) 多個(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è)測屬相程序 1. For循環(huán)語句 (用于循環(huán)次數(shù)已知 )形式 For 循環(huán)變量＝初值 to 終值 [Step 步長 ] 循環(huán)體 Next 循環(huán)變量 思考 ： 輸入 10個(gè)數(shù)，輸出偶數(shù)之和。 思考 ： 輸入 10個(gè)數(shù)，輸出偶數(shù)平均值。 三、 循 環(huán) 結(jié) 構(gòu) ?步長為正 1時(shí)，步長可省略；若終值 初值，步長應(yīng)為負(fù)值； 問題 : 輸入 10個(gè)數(shù)，輸出累加之和。 例 12 求 S=1+2+3+……+100 思考： 求 S=1+3+5+……+9 9 思考：求 s=1+1/2+1/3+……+1/10 2. Do…Loop 循環(huán)語句 (用于控制循環(huán)次數(shù)未知 ) 形式 2： Do 循環(huán)體 Loop While|Until 條件 注意： 形式 1是 先判斷后執(zhí)行 ，形式 2是 先執(zhí)行后判斷 ，所以形式 1中，循環(huán)體有可能 1次都不執(zhí)行 ，形式 2中，循環(huán)體 至少執(zhí)行一次 。 While 方式是條件成立的時(shí)候執(zhí)行循環(huán)體 ， until是條件不成立的時(shí)候執(zhí)行循環(huán)體。 S=1+22+32+…… +102，計(jì)算并輸出 s 例 13 S=1+22+32+……+n 2，問 n為多少時(shí)， s的值大于 100000？ 形式 1： Do While|Until 條件 循環(huán)體 Loop 要注意： ? 出了循環(huán)，循環(huán)控制變量值的問題。 例程序段： For i=2 To 13 Step 3