【正文】 本章目錄 數(shù)組的概念 上一頁 下一頁 用數(shù)組解決問題的程序如下： Private Sub Command1_Click() Dim mark(1 To 100) As Integer 39。 若用簡單變量保存 100個學(xué)生的成績 ， 則需定義 100個變量和使用 100句輸入語句 。 本章目錄 第八章 數(shù) 組 數(shù)組的概念 靜態(tài)數(shù)組與動態(tài)數(shù)組 數(shù)組的基本操作 數(shù)組的初始化 數(shù)組的應(yīng)用舉例 控件數(shù)組 本書目錄 數(shù)組的概念 上一頁 下一頁 1. 引例 例： 求 100個學(xué)生的平均成績 ， 并統(tǒng)計高于平均分的人數(shù) 。 在 VB中 ， 還有多種形式的 End語句 ， 用于結(jié)束一個過程或塊 ，在控制語句或過程中經(jīng)常使用 。 Exit的形式如下： Exit For、 Exit Do、 Exit Sub、 Exit Function等 。 循環(huán)嵌套對 For循環(huán)語句和 Do… Loop語句均適用 。 本章目錄 上一頁 下一頁 循環(huán)例題 例題：用輾轉(zhuǎn)相除法求兩自然數(shù)的最大公約數(shù)和最小公倍數(shù)。 形式 2： Do 語句塊 [Exit Do 語句塊 ] Loop { While|Until} 條件 本章目錄 上一頁 下一頁 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 本章目錄 上一頁 下一頁 循環(huán)例題 例 ： 我國有 13億人口，按人口年增長 %計算，多少年后我國人口超過 26億。 (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 的下一語句 本章目錄 上一頁 下一頁 Do…Loop 循環(huán)語句 Do循環(huán)用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。 循環(huán)次數(shù) )1( ?? ?步長 初值終值In t 0 初值 終值 =1 時，可省略 0 初值 終值 =0 死循環(huán) 步長 例 ： 計算 1~100的奇數(shù)和 本章目錄 上一頁 下一頁 For循環(huán)語句 循環(huán)流程： (1) 循環(huán)變量被賦初值 ， 它僅被賦值一次 。 本章目錄 上一頁 下一頁 For循環(huán)語句 For循環(huán)語句用于控制循環(huán)次數(shù)預(yù)知的循環(huán)結(jié)構(gòu) 。 這類問題都可通過循環(huán)結(jié)構(gòu)來方便地實現(xiàn) 。 本章目錄 上一頁 下一頁 循環(huán)結(jié)構(gòu) 計算機(jī)最擅長的功能之一就是按規(guī)定的條件 ， 重復(fù)執(zhí)行某些操作 。 運算符的語句如下： Op= Choose（ Nop， +， ， ， 247。 代碼一 If x 0 And y 0 Then Print 在第一象限 ElseIf x 0 And y 0 Then Print 在第二象限 ElseIf x 0 And y 0 Then Print 在第三象限 ElseIf x 0 And y 0 Then Print 在第四象限 End If 代碼二 Select Case x,y Case x 0 And y 0 Print 在第一象限 Case x 0 And y 0 Print 在第二象限 Case x 0 And y 0 Print 在第三象限 Case x 0 And y 0 Print 在第四象限 End Select 代碼二錯誤： 1. Select Case 后不能出現(xiàn)多個變量； 2. Case后不能出現(xiàn)變量及有關(guān)運算符 。但不是所有的多分支結(jié)構(gòu)均可用Select Case語句代替 If…Then…ElseIf 語句。 . ElseIf不能寫成 Else If。 ? ? ? t y x 本章目錄 雙分支結(jié)構(gòu) 上一頁 下一頁 2. If… Then… Else語句 If 表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If 或 If 表達(dá)式 Then 語句 1 Else 語句 2 當(dāng)表達(dá)式的值為 True時 ， 執(zhí)行 Then后面的語句塊 1， 否則執(zhí)行 Else后面的語句塊 2 表達(dá)式 F 語句塊 1 T 語句塊 2 本章目錄 雙分支結(jié)構(gòu)例 上一頁 下一頁 計算分段函數(shù) yx x xx x x x? ? ? ?? ? ??????sinc os231 03 0單分支結(jié)構(gòu)實現(xiàn) : y=cos(x)－ x^3+3*x If x0 Then y=sin(x)+sqr (x*x+1) 雙分支結(jié)構(gòu)實現(xiàn) : If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)－ x^3+3*x End If 本章目錄 上一頁 下一頁 多分支結(jié)構(gòu) 3. If… Then… ElseIf語句 If 表達(dá)式 1 Then 語句塊 1 ElseIf 表達(dá)式 2 Then 語句塊 2 … [Else 語句塊 n+1 ] End If 表達(dá)式 2 表達(dá)式 n T F T F 語句塊 n + 1 語句塊 2 語句塊 1 F T 表達(dá)式 1 語句塊 n 該語句的作用是根據(jù)不同的表達(dá)式值確定執(zhí)行哪個語句塊 本章目錄 上一頁 下一頁 例： 已知變量 strC中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。 表達(dá)式 語句塊 T F 本章目錄 上一頁 下一頁 單分支結(jié)構(gòu) 例： 已知兩個數(shù) x和 y，比較它們的大小，使得 x大于 y。表達(dá)式值按非零為 True，零為 False進(jìn)行判斷。它們都是對條件進(jìn)行判斷 ， 根據(jù)判斷結(jié)果 ，選擇執(zhí)行不同的分支 。 必須利用選擇結(jié)構(gòu)等來解決實際應(yīng)用中的各種問題 。 在 VB中也有賦值語句；而輸入 /輸出可以通過文本框控件 、 標(biāo)簽控件 、 Print方法 、 InputBox函數(shù) 、MsgBox函數(shù)和過程等來實現(xiàn) 。 順序結(jié)構(gòu)就是各語句按出現(xiàn)的先后次序執(zhí)行 。 例如： = *.bmp = “*.txt ； *.Doc = *.* 格式： 對象 .Pattern [= value] 上一頁 下一頁 文件系統(tǒng)控件 本章目錄 文件系統(tǒng)控件的聯(lián)動 Sub Drive1_Change() = End Sub Sub Dir1_Change() = End Sub 上一頁 下一頁 本章目錄 焦點與 Tab順序 設(shè)置焦點 Tab順序 用下面的方法可以設(shè)置對象的焦點 (1)在運行時單擊該對象 (2)運行時用快捷鍵選擇該對象 (3)在程序代碼中使用 SetFocus 上一頁 下一頁 本章目錄 第 7章 結(jié)構(gòu)化程序設(shè)計 順序結(jié)構(gòu) 選擇結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 本書目錄 順序結(jié)構(gòu) 上一頁 下一頁 一個 VB程序由兩部分組成：即 Viasual和 Basic， 前者是由眾多的對象構(gòu)成了程序的可視界面 ， 在 VB中 ， 界面設(shè)計非常方便 、 直觀；后者是響應(yīng)各種事件的程序代碼 ， 也是程序設(shè)計的重點和難點 。\amp。 要從文件列表框 （ File1） 中獲得全路徑的文件名 Fname， 用下面的程序代碼： If Right(,1) =\ Then Fname= amp。 例如： =“C :\Mydir” 上一頁 下一頁 文件系統(tǒng)控件 本章目錄 文件列表框 (FileListBox) 功能 ：顯示當(dāng)前目錄中指定類型的所有文件。 上一頁 下一頁 本章目錄 Path屬性：用于返回或設(shè)置當(dāng)前的路徑 。 上一頁 下一頁 文件系統(tǒng)控件 本章目錄 目錄列表框 (DirListBox) 功能 ：顯示 當(dāng)前驅(qū)動器的目錄 結(jié)構(gòu)及當(dāng)前目錄下的所有子目錄。 本章目錄 文件系統(tǒng)控件 驅(qū)動器列表框 (DriveListBox) 功能 : 顯示 當(dāng)前驅(qū)動器名稱 ，單擊向下箭頭，就會下拉出計算機(jī)的所有磁盤驅(qū)動器，單擊某個驅(qū)動器，可把它變成當(dāng)前驅(qū)動器。 例 ： 設(shè)計一個倒計時應(yīng)用程序。 產(chǎn)生 Timer事件的兩個條件： Enabled=True； Interval0。 (1) 屬性 Enabled屬性 為 False時定時器不產(chǎn)生 Timer事件。 Min屬性 滑塊處于最小位置時所代表的值 (32768~32767) Max屬性 滑塊處于最大位置時所代表的值 (32768~32767) SmallChange屬性 單擊滾動條的箭頭， Value屬性改變值 LargeChange屬性 單擊滾動條的空白處， Value屬性改變值 (2) 事件 Change事件 改變 Value屬性時觸發(fā) Scroll事件 當(dāng)拖動滑塊時觸發(fā) 例： 使用滾動條設(shè)計一個調(diào)色板應(yīng)用程序，用合成色設(shè)置文本框的前景色或背景色。 本章目錄 滾動條 上一頁 下一頁 滾動條通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可作為數(shù)據(jù)的輸入工具。 本章目錄 列表框和組合框事件 上一頁 下一頁 列表框： Click、 DblClick 組合框： Click， 只有簡單組合框才有 DblClick事件 一般不需要編寫 Click事件過程， 通常在單擊命令按鈕或發(fā)生 DblClick事件時才需要讀取 Text屬性 。 (2) RemoveItem方法 對象 .RemoveItem Index 從列表框或組合框中刪除指定的項目。 Item為加入的項目 ， 必須是字符串表達(dá)式 。 Text： 列表項中被選定的內(nèi)容。 (D) True：按字母順序排列。 (P) ListCount： 選 項的數(shù)量， ListCount1是最后一項的下標(biāo)。 下拉式組合框 簡單組合框 下拉式列表框 本章目錄 列表框和組合框重要屬性 上一頁 下一頁 List ： 字符型數(shù)組，存放 選項 ，下標(biāo)是從 0開始。在組合框中選定某項后，其內(nèi)容自動裝入文本框。 本章目錄 列表框和組合框 上一頁 下一頁 列表框通過顯示多個選項，供用戶選擇，不能直接修改其中的內(nèi)容。 False：框架及其控件被隱含起來。 框架 本章目錄 上一頁 下一頁 框架 Caption屬性 ：框架標(biāo)題 Enabled屬性 False，不允許對框架內(nèi)的對象進(jìn)行操作。 1：控件鈕在右邊，標(biāo)題顯示在左邊。 Value屬性 True：選定 False：未選定 Style屬性 0Standard：標(biāo)準(zhǔn)方式 1Graphical：圖形方式 事件 Click 本章目錄 2．復(fù)選框 (CheckBox) Caption屬性 ： 文本標(biāo)題。 Alignment屬性 0：控件鈕在左邊，標(biāo)題顯示在右邊。 True：圖像適應(yīng)圖像框的大小 。 True: 圖片框根據(jù)圖像大小自動調(diào)整。