【正文】 If 表達(dá)式 Then 語句塊（可以是一句或多句語句） End If 或 If 表達(dá)式 Then 語句 表達(dá)式：關(guān)系表達(dá)式、邏輯表達(dá)式，算術(shù)表達(dá)式。 該語句的作用是當(dāng)表達(dá)式的值為 True， 執(zhí)行 Then后面的語句塊 ， 否則不做任何操作 。 If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t 簡單 If形式無 End If時，只能是一句語句或語句間用冒號分隔，而且必須在一行上書寫。 If UCase(ch) = A And UCase(ch) = Z Then MsgBox(ch + 是字母字符 ) 39。 數(shù)字字符 MsgBox(ch + 是數(shù)字字符 ) Else 39。 ElseIf不能寫成 Else If 多分支結(jié)構(gòu)例 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 93 If語句的嵌套是指 If或 Else后面的語句塊中又包含 If語 If 表達(dá)式 1 Then If 表達(dá)式 2 Then … End If … End If If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End If If語句的嵌套 例 已知 x， y， z三個數(shù)，使得 xyz 用一個 IF語句和一個嵌套的 IF語句實現(xiàn) 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 94 Select Case語句 Select Case 變量或表達(dá)式 Case 表達(dá)式列表 1 語句塊 1 Case 表達(dá)式列表 2 語句塊 2 … [Case Else 語句塊 n+1] End Select 表達(dá)式列表 與 變量或表達(dá)式 的類型必須相同，是下面 4種形式之一 ： ?表達(dá)式 例 : A ?一組用逗號分隔的枚舉 值 2,4,6,8 ?表達(dá)式 1 To 表達(dá)式 2 60 To 100 ?Is 關(guān)系運算符表達(dá)式 Is 60 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 95 Select Case語句例 將例 改用 Select Case 語句實現(xiàn)： Select Case ch Case a To z， A To Z MsgBox( ch + 是字母字符 ) Case 0 To 9 MsgBox (ch +是數(shù)字字符 ) Case Else MsgBox( ch + 是其他字符 ) End Select 多分支結(jié)構(gòu)，用 Select Case語句比 If… Then… ElseIf語句直觀，程序可讀性強(qiáng)。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 96 Select Case語句例 例 (x， y)， 落在哪個象限 。如果整數(shù)表達(dá)式的值越出選項范圍時，返回 Null。 中的某運算符： Op= Choose(Nop， +， ， ， 247。 t = Choose(Weekday(Now), “星期日 ” , “星期一 ” , “星期二 ” , “星期三 ” , “星期四 ” , “星期五 ” , “星期六 ” ) MsgBox(今天是： amp。 t) 本章目錄 Dim nop As Integer, op As Char Randomize() nop = Int(Rnd() * 4 + 1) op = Choose(nop, +, , , 247。 nop amp。 op) 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 99 循環(huán)結(jié)構(gòu) 計算機(jī)最擅長的功能之一就是按規(guī)定的條件 ，重復(fù)執(zhí)行某些操作 。 這類問題都可通過循環(huán)結(jié)構(gòu)來方便地實現(xiàn) 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 100 For循環(huán)語句 For循環(huán)語句用于控制循環(huán)次數(shù)預(yù)知的循環(huán)結(jié)構(gòu) 。 循環(huán)次數(shù) )1( ?? ?步長 初值終值In t 0 初值 終值 =1 時，可省略 0 初值 終值 =0 死循環(huán) 步長 例 計算1~100的奇數(shù)和 本章目錄 Dim i%, sum% For i = 1 To 100 Step 2 sum = sum + i Next i MsgBox(sum) 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 101 For循環(huán)語句 循環(huán)流程： (1) 循環(huán)變量被賦初值 ， 它僅被賦值一次 。 (3) 循環(huán)變量加步長 ， 轉(zhuǎn) (2)，繼續(xù)循環(huán) T T 循環(huán)變量≤終值 語句塊 語句塊 循環(huán)變量 = 循環(huán)變量 + 步長 F 循環(huán)變量 = 初值 有 E x i t F o r F N e x t 的下一語句 例 將可打印的ASCII碼制成表格輸出 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 102 Do…Loop 循環(huán)語句 Do循環(huán)用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。 形式 2： Do 語句塊 [Exit Do 語句塊 ] Loop { While|Until} 條件 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 103 Do…Loop 流程 F T 語句塊 語句塊 Do W h i l e ? L o o p 表達(dá)式列表 1 有 E x i t D o F T T F 語句塊 語句塊 表達(dá)式列表 1 Do ? L o o p W h i l e 有 E x i t D o F T 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 104 循環(huán)例題 例 我國有 13億人口，按人口年增長 %計算，多少年后我國人口超過 26億。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 105 循環(huán)的嵌套 在一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套 。 例 打印九九乘法表 思考： 打印上三角或下三角程序如何改動？ 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 106 其他輔助控制語句 Go To 語句 無條件地轉(zhuǎn)移到標(biāo)號或行號指定的那行語句 。 根據(jù)此定義 ， 判別某數(shù) m是否為素數(shù)最簡單的方法就是依次用 i=2~m1去除 ， 只要有一個數(shù)能整除 m， m就不是素數(shù)；否則 m是素數(shù) 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 107 退出和結(jié)束語句 VB中有多種形式的 Exit語句 ， 用于退出某種控制結(jié)構(gòu)的執(zhí)行 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 108 綜合應(yīng)用 例 由計算機(jī)自動產(chǎn)生四則運算題 ， 并能判斷答案的正確性 。 可對應(yīng)編號 1~4。 (2)需要有一個全局變量保存四則運算題的正確答案 ， 用戶答案可通過文本框輸入 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 109 綜合應(yīng)用 最大公約數(shù) 例 。 n 輾轉(zhuǎn)相減法 ? m=mn mn ? n=nm nm ? m、 n為公約數(shù) m=n Do While m n m n If m n Then 14 6 m = m – n 8 6 Else 2 6 n = n – m 2 4 End If 2 2 Loop (3)若 r=0，則 n為最大公約數(shù)，結(jié)束；否則執(zhí)行 (4) (4)m?n， n?r，再重復(fù)執(zhí)行 (2) 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 110 綜合應(yīng)用 級數(shù)求和 例 e的近似值 ， 其誤差小于 。 累加是在原有和的基礎(chǔ)上再加一個數(shù)；連乘則是在原有積的基礎(chǔ)上再乘以一個數(shù) 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 111 綜合應(yīng)用 試湊法 例 百元買百雞 。 分析： (1) 設(shè)母雞 、 公雞 、 小雞各為 x、 y、 z， 列出方程為： x+y+z= 100 3x+2y+ = 100 三個未知數(shù) ， 兩個方程 ， 此題求若干個整數(shù)解 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 112 綜合應(yīng)用 遞推法 遞推 (迭代 )法基本思想是把一個復(fù)雜的計算過程轉(zhuǎn)化為簡單過程的多次重復(fù) 。 例 小猴有桃若干 ， 第一天吃掉一半多一個；第二天吃剩下桃子的一半多一個；以后每天都吃尚存桃子的一半多一個 ， 到第 7天只剩一個 ， 問小猴原有桃多少 ？ 分析： 用 后一天的 數(shù)推出前一天的桃子 數(shù) 。 2)1(121 11 ????? ?? nnnn xxxx 也就是：即：迭代法 類似的應(yīng)用求高次方程的近似根。 對初學(xué)者 ， 看到出現(xiàn)錯誤不要害怕 ，關(guān)鍵是如何改正錯誤 ， 失敗是成功之母 。 VB為調(diào)試程序提供了一組交互的 、 有效的調(diào)試工具 ， 在此逐一介紹 。 語法錯誤 本章目錄 錯誤的代碼顯示為紅色，窗口上顯示出錯的原因。例如，類型不匹配、試圖打開一個不存在的文件等。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 116 邏輯錯誤 程序運行后，得不到所期望的結(jié)果，這說明程序存在邏輯錯誤。通常，邏輯錯誤不會產(chǎn)生錯誤提示信息，故錯誤較難排除，需要程序員仔細(xì)地閱讀分析程序，并具有調(diào)試程序的經(jīng)驗。 (2) 運行模式 (運行 ) 執(zhí)行啟動命令進(jìn)入運行模式。 (3) 中斷模式 (Break) 執(zhí)行中斷命令，進(jìn)入中斷模式。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 118 設(shè)置的斷點 逐語句跟蹤 查看變量的值 調(diào)試和排錯 插入斷點 按下 F9鍵 按 F8鍵跟蹤執(zhí)行 鼠標(biāo)指向所關(guān)心的變量 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 119 本章小節(jié) 結(jié)構(gòu)化程序設(shè)計三種結(jié)構(gòu) 順序結(jié)構(gòu) 、 選擇結(jié)構(gòu) 、 循環(huán)結(jié)構(gòu) If…Then 語句、 Select Case語句、 For與 Do循環(huán)語句 賦值語句與復(fù)合賦值語句 數(shù)據(jù)輸出和輸入 InputBox、 MsgBox 常用算法 素數(shù)判定 、 級數(shù)求和 、 試湊法 、 迭代法解 方程 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 120 第 5章 數(shù)組和自定義類型 數(shù)組的概念 數(shù)組的基本操作和排序 列表框和組合框控件 自定義類型及其數(shù)組 綜合應(yīng)用 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 121 數(shù)組的概念 1. 引例 例 求 100個學(xué)生的平均成績 ， 并統(tǒng)計高于平均分的人數(shù) 。 若用簡單變量保存 100個學(xué)生的成績 ， 則需定義 100個變量和使用 100句輸入語句 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 122 用數(shù)組 解決問題的程序如下： Dim mark(99) As Integer 39。 輸入成績 ， 求分?jǐn)?shù)和 mark(i) = InputBox(輸入學(xué)生的成績 ) aver = aver + mark(i) Next i aver = aver / 100 39。 統(tǒng)計高于平均分的人數(shù) If mark(i) aver Then overn = overn + 1 Next i MsgBox (平均分 : amp。 高于平均分人數(shù) : amp。 程序中使用數(shù)組的最大好處是用一個數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù) ， 用下標(biāo)表示該數(shù)組中的各個元素 ，和循環(huán)語句結(jié)合使用 ， 使得程序書寫簡潔 。 程序中使用數(shù)組的最大好處是用一個數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù) ， 用下標(biāo)表示該數(shù)組中的各個元素 ， 和循環(huán)語句結(jié)合使用 ， 使得程序書寫簡潔 。 本章目錄 安徽工業(yè)大學(xué)計算機(jī)學(xué)院 125