【文章內(nèi)容簡(jiǎn)介】 /f/g 或 a*b *c*d/（ e*f*g） 例：用人單位招聘秘書(shū)：年齡小于 40歲的女性，學(xué)歷專(zhuān)科或本科， 年齡 40，性別 =“女”， (學(xué)歷 =“專(zhuān)科”，學(xué)歷 =“本科” ) And And Or 73 ?? x 比 a小，比 b大 用 Or a 小數(shù) b 大數(shù) a 小數(shù) b 大數(shù) 比 a大，比 b小 用 And 例：表示算術(shù)表達(dá)式： 正確的 VB表達(dá)式： 3〈 =x And x =7 錯(cuò)誤的 VB表達(dá)式： 3=x=7 或 3=x Or x=7 考慮：若分別寫(xiě)成： 年齡 40 And 性別 = 女 And (學(xué)歷 = 專(zhuān)科 And 學(xué)歷 = 本科 ) 年齡 40 Or 性別 = 女 Or (學(xué)歷 = 專(zhuān)科 Or 學(xué)歷 = 本科 ) 常用內(nèi)部函數(shù) 1. 數(shù)學(xué)函數(shù) Rnd函數(shù)返回 0和 1（包括 0但不包括 1）之間的雙精度隨機(jī)數(shù)。 每次運(yùn)行時(shí)，要產(chǎn)生不同序列的隨機(jī)數(shù)，執(zhí)行 Randomize 語(yǔ)句。 例產(chǎn)生 1~100的隨機(jī)數(shù)： Int(Rnd *100)+1 2. 轉(zhuǎn)換函數(shù) Chr(66) B Asc (B) 66 Asc(Chr(99)) 99 Chr(Asc(K)) K Ucase$(abcdefg) ABCDEFG Time返回系統(tǒng)時(shí)間、 Date返回系統(tǒng)日期、 Now返回系統(tǒng)日期 和時(shí)間 DateAdd（要增減日期形式，增減量，要增減的日期變量） DateDiff（要間隔日期形式，日期 1，日期 2） 例如求離你畢業(yè)還有多少天： DateDiff（ d,date, 2022/07/01 ）假定 2022年畢業(yè) 4. 字符串編碼和函數(shù) (1)字符串編碼 Windows系統(tǒng)對(duì)字符采用了 DBCS編碼，中文 2字節(jié)，西文 1字節(jié) VB中字符 Unicode編碼，任何字符 2字節(jié)。 Len(“中國(guó) good ”)為 6； LenB(“中國(guó) good ”)為 12。 StrConv() 進(jìn)行 DBCS與 Unicode之間轉(zhuǎn)換。 (2)字符串函數(shù) Mid$(ABCDEFG,2,3) BCD InStr(2, ABCDEFG, EF) 5 S=Split(123,56,ab,) Join(S,) 123 56 ab Replace(ABCDABCD,CD,123) “AB123AB123” S(0)=123”,S(1)=56”,S(2)=ab 5. 格式輸出函數(shù) 例 利用 Format函數(shù)顯示有關(guān)的日期和時(shí)間。 Private Sub Form_Click( ) FontSize = 12 MyTime = 9:21:30 PM MyDate = 7/21/1997 Print Tab(2)。 Format(MyDate, m/d/yy) Print Tab(2)。 Format(MyDate, mmmmyy) Print Tab(2)。 Format(MyTime, hms AM/PM) Print Tab(2)。 Format(MyTime, hh:mm:ss A/P) Print Tab(2)。 Format(Date, dddd,mmmm,dd,yyyy) Print Tab(2)。 Format(Now, yyyy年 m月 dd日 hh：mm) Print FormatDateTime(Now) 39。 End Sub 6. Shell函數(shù) Shell函數(shù)負(fù)責(zé)執(zhí)行一個(gè)可執(zhí)行文件 ， 返回一個(gè) Variant， 如果成功 ， 代表這個(gè)程序的進(jìn)程 ID， 若不成功 ， 則會(huì)返回 0。 形式： Shell(命令字符串 ,窗口類(lèi)型 ) 窗口類(lèi)型值為 1表示正常窗口，缺省窗口最小化為圖標(biāo)。 i = Shell(c:\windows\) j = Shell(c:\, 1) 提示： 如果不知道應(yīng)用程序的路徑名，可用 Start命令啟動(dòng)程序 i = Shell(start amp。 ) ； i = Shell(start amp。 ) 常 見(jiàn) 錯(cuò) 誤 1. 邏輯表達(dá)式書(shū)寫(xiě)錯(cuò)，在 VB沒(méi)有造成語(yǔ)法錯(cuò)而形成邏輯錯(cuò) 例如，數(shù)學(xué)表達(dá)式 3≤x＜ 10 VB表達(dá)式寫(xiě)為 3=x10。 問(wèn)題在于 VB中的邏輯量與數(shù)值量可相互轉(zhuǎn)換。 2. 同時(shí)給多個(gè)變量賦值，在 VB沒(méi)有造成語(yǔ)法錯(cuò)而形成邏輯錯(cuò) 例如： Dim x%， y%， z% x=y=z=1 3. 標(biāo)準(zhǔn)函數(shù)名寫(xiě)錯(cuò) 4. 變量名寫(xiě)錯(cuò) 檢查方法： 在通用聲明段加 Option Explicit 5. 語(yǔ)句書(shū)寫(xiě)位置錯(cuò) 在通用聲明段只能有 Dim語(yǔ)句，不能有賦值等其他語(yǔ)句 第四章 基本的控制結(jié)構(gòu) （ 8學(xué)時(shí)） 順序結(jié)構(gòu) 選擇結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 其他輔助控制語(yǔ)句 常用算法（一） 常見(jiàn)錯(cuò)誤 （ 順序 、 條件 、 循環(huán) ） 順 序 結(jié) 構(gòu) 一、賦值語(yǔ)句 形式： [LET]變量名＝表達(dá)式 作用： 將表達(dá)式的值賦值給變量名。 一般用于給變量賦值或?qū)丶O(shè)定屬性值。 例： sRate!= ＝ 歡迎使用 Visual Basic 當(dāng)表達(dá)式的類(lèi)型與變量的類(lèi)型不一致時(shí)，強(qiáng)制轉(zhuǎn)換成左邊的精度，如 iA% = 10 / 3 iA中的結(jié)果為 3 注意： 雖然賦值號(hào)與關(guān)系運(yùn)算符等于號(hào)都用“ =”表示， VB系統(tǒng)會(huì)根據(jù)所處的位置自動(dòng)判斷是何種意義的符號(hào)。 二、與用戶交互函數(shù)和過(guò)程 1. InputBox函數(shù) InputBox(提示 [，標(biāo)題 ][，缺省 ][， x 坐標(biāo)位置 ][， y坐標(biāo)位置 ]) 其中： 提示： 提示信息； 標(biāo)題： 對(duì)話框標(biāo)題； 缺?。?輸入?yún)^(qū)缺省值 函數(shù)返回字符類(lèi)型。 例要在屏幕上顯示圖示的對(duì)話框： 相應(yīng)的語(yǔ)句如下： Dim strName As String * 40 strName= InputBox(請(qǐng)輸入你的姓名 + vbCrLf + 然后單擊確定 , 輸入框 ) 也可以使用如下語(yǔ)句： Dim strName As String * 40， strS1 As String * 40 strS1 = 請(qǐng)輸入你的姓名 + Chr(13) + Chr(10) + 然后單擊確定 strName= InputBox(strS1， 輸入框 ， ， 100， 100) 當(dāng)鍵盤(pán)輸入“王曉明” 后，變量 strName獲得鍵盤(pán)輸入的值。 2. MsgBox函數(shù)和 MsgBox過(guò)程 函數(shù)形式： 變量 [%] = MsgBox(提示 [,按鈕 ][，標(biāo)題 ]) 過(guò)程形式： MsgBox 提示 [,按鈕 ][,標(biāo)題 ] 按鈕值如下 ： 函數(shù)返回所選按鈕整數(shù)值： 例 編一帳號(hào)和密碼檢驗(yàn)程序。 要求： 帳號(hào)不超過(guò) 6位數(shù)字，有錯(cuò)，清除原內(nèi)容再輸入。 密碼輸入時(shí)在屏幕上以 “ *”代替； 若密碼錯(cuò)，顯示有關(guān)信息，選擇“重試”按鈕，清除原內(nèi)容再輸入，選擇“取消”按鈕，停止運(yùn)行。 分析： 帳號(hào) 6位， MaxLength為 6， LostFocus判斷 數(shù)字 IsNumeric函數(shù) 密碼 PassWordChar為“ *”， MsgBox函數(shù)設(shè)置密碼錯(cuò)對(duì)話框。 常 見(jiàn) 錯(cuò) 誤 數(shù)據(jù)合法性檢查中引起程序的死循環(huán) Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then Text1 = End If End Sub Private Sub Text2_LostFocus() If Not IsNumeric(Text2) Then Text2 = End If End Sub If Text2 And Not IsNumeric(Text2) Text2 Text1 確定 選 擇 結(jié) 構(gòu) 1. If… Then語(yǔ)句 (單分支結(jié)構(gòu) ) If 表達(dá)式 Then 語(yǔ)句塊 End If 或 If 表達(dá)式 Then 語(yǔ)句 例： 已知兩個(gè)數(shù) x和 y，比較它們的大小， 使得 x大于 y. If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t 重要的是學(xué)會(huì)兩個(gè)數(shù)的交換，若上述語(yǔ)句次序變一下，結(jié)果如何？ 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 計(jì)算分段函數(shù)： y x x xx x x x? ? ? ?? ? ??????s i nc o s231 03 0單分支結(jié)構(gòu)實(shí)現(xiàn)： y=cos(x)－ x^3+3*x If x0 Then y=sin(x)+sqr (x*x+1) 雙分支結(jié)構(gòu)實(shí)現(xiàn)： If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－ x^3+3*x End If 3. If… Then… ElseIf語(yǔ)句 (多分支結(jié)構(gòu) ) 形式： If 表達(dá)式 1 Then 語(yǔ)句塊 1 ElseIf 表達(dá)式 2Then 語(yǔ)句塊 2 … [Else 語(yǔ)句塊 n+1 ] End If 例 已知變量 strC中存放了一個(gè)字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。 用多分支結(jié)構(gòu)實(shí)現(xiàn) : If Ucase(strC) =A And Ucase (strC) =Z Then Print strC + 是字母字符 ElseIf strC =0 And strC =9 Then Print strC + 是數(shù)字字符 Else Print strC + 其他字符 End If 不管有幾個(gè)分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語(yǔ)句，其余分支不再執(zhí)行；若條件都不滿足，且有 Else子句，則執(zhí)行該語(yǔ)句塊，否則什么也不執(zhí)行。 . ElseIf不能寫(xiě)成 Else If。 例 根據(jù)邊長(zhǎng)判斷 三角形類(lèi)型 例 已知百分制成績(jī) mark，顯示對(duì)應(yīng)的五級(jí)制成績(jī)