【正文】 ox(“請輸入 n的值” ) ReDim k1(n) … 該例聲明了一個動態(tài)數(shù)組 k1，然后根據(jù)需要，利用 ReDim指定了 k1為一維數(shù)組，容量為 n+1。以下程序段用來輸入每一個人每門課程的成績 For i = 1 To n For j = 1 To m grade(i, j) = InputBox(輸入 amp。 j amp。 計算每門課程的總成績 Next j aver_grade(i) = aver_grade(i) / n 39。 aver_grade(i) Next i Print 15 ? 39。 門課程高出平均成績的人數(shù)為 amp。 “,” amp。 18 ? 2. 數(shù)組元素的輸出 ? 利用循環(huán)語句及 Print方法或 Msgbox函數(shù)可以輸出數(shù)組元素。 該例中每一個單選按鈕都是用來設置背景色的，只是不同的按鈕用來控制不同的顏色罷了。第 1個控件數(shù)組元素的索引號為0，第 2 個控件數(shù)組元素的索引號為 1，以此類推。 格式： For Each 變量 In 數(shù)組名 語句組 1 [Exit For] [語句組 2] Next 變量 26 ? 例如，假設一維數(shù)組 a已賦值，要求利用 For Each…Next循環(huán)語句輸出所有數(shù)組元素。 27 用戶自定義數(shù)據(jù)類型的數(shù)組 如果我們想存儲一個班的學生的學號、姓名、性別及語文、數(shù)學、英語三門功課的成績，那么我們可以先自定義一個數(shù)據(jù)類型，用來描述學生的相關信息，如： Type student sno As String*2 sname As String*10 sex As String*1 grade(1 to 3) As Integer ?用來存放三門功課的成績 End Type 再定義一個 student類型的一維數(shù)組用來存放全班學生的信息，如： Dim score(1 to 30) As student 28 ? 下面我們利用上述用戶自定義數(shù)據(jù)類型的數(shù)組，錄入該班學生的所有信息，主要程序段如下： Dim i As Integer For i=1 to 30 msgbox “請輸入第” amp。 “個學生的相關信息” With score(i) .sno=inputbox(“學號：” ) .sname=inputbox(“姓名：” ) .sex=inputbox(“性別：” ) .grade(1)=inputbox(“語文成績：” ) .grade(2)=inputbox(“數(shù)學成績：” ) .grade(3)=inputbox(“英語成績：” ) End With Next i 30 數(shù)組應用實例 ? 例 利用文本框輸入一字符串，統(tǒng)計各英文字母出現(xiàn)的次數(shù)，不區(qū)分字母的大小寫。 =。如果我們用過去的方法求這個組合數(shù)，程序中就會出現(xiàn)三處非常相似的求階乘的程序代碼段，顯然這樣的程序太累贅，不是一個好程序。但是在實際應用中，我們遇到的問題往往比較復雜，于是我們常常按自頂向下的規(guī)則，將復雜問題進行分解，分解成若干個功能相對獨立的模塊，構成這些模塊的程序被稱為過程，通常每個過程用來實現(xiàn)某個特定的功能。本書只介紹通用過程中的前兩個過程。處理或響應事件的步驟就是事件過程。調用時需將一些參數(shù)傳遞給函數(shù)過程，函數(shù)過程利用這些參數(shù)進行計算，然后通過函數(shù)過程名將結果返回給調用者。具體界面設計及程序代碼如下： 42 Label1 Text1 Text2 Ole1 Label2 Command1 43 Private Sub Command1_Click() Dim m As Integer, n As Integer Dim cmn As Double n = CInt() m = CInt() cmn = factorial(m) / (factorial(n) * factorial(m n)) Label2 = cmn End Sub ?定義求階乘函數(shù) Function factorial(ByVal n As Integer) As Double Dim i As Integer Dim f As Double f = 1 For i = 1 To n f = f * i Next i factorial = f End Function 44 ? SUB子過程的定義 格式： Sub 子過程名 (形參表 ) 語句塊 [Exit Sub ] 語句塊 End Sub 45 ? SUB子過程的調用 格式 1： Call 子過程名 [(實參表 )] 格式 2：子過程名 實參表 說明：格式 1中，若有實參，則實參必須加上圓括號；若無實參，則圓括號可以省略。在 VB中，參數(shù)的傳遞方式有：值傳遞和地址傳遞兩種。所以在過程體內對形參的任何操作，都不會影響到實參，即按值傳遞是單向的。按地址傳遞是指當調用過程時，系統(tǒng)將實參的地址傳遞給形參。在定義 Function函數(shù)過程和Sub過程時，如果在某個參數(shù)前加上關鍵字Optional，那么表明該參數(shù)為可選參數(shù)。 54 過程、變量的作用域 ? 在實際應用中，一個 VB的應用程序通常由多個過程組成，這些過程一般保存在窗體文件（ .frm）或標準模塊文件（ .bas）中，而在過程中變量往往是不可缺少的。 55 過程的作用域 過程的作用域分為：窗體（或模塊）級和全局級兩種。系統(tǒng)默認情況下定義的過程即為全局級。這類變量只能在聲明它的過程中使用，其它過程無法訪問它。這類變量可被本窗體（或模塊）的任何過程訪問。全局變量的值在整個應用程序中始終不會消失和重新初始化，只有當整個應用程序執(zhí)行結束時，它才會消失。 62 過程的嵌套調用和遞歸調用 ? 過程的嵌套調用 在一個過程執(zhí)行期間又調用另一個過程，稱為過程的嵌套調用。有些問題具有遞歸特性，用遞歸調用解決這樣的問題顯得非常方便。 64 過程應用實例 ? 例 編寫一個函數(shù)，實現(xiàn)將一個十進制整數(shù)轉換成二進制、八進制和十六進制數(shù)的功能。 轉換成 amp。 str m = m \ n Loop dectran = CDbl(str) End Function 66 例 利用遞歸求斐波那契序列的前 m項。 m1 amp。菜單不僅可以提供人機對話界面，方便用戶選擇 ? 應用程序的各種操作，而且還可以用來管理應用程序，控制 ? 各個功能模塊的運行。 ? 菜單控件只能響應 Click事件。 ? ? 菜單編輯器只能在當前活動窗體上打開，而不能在代碼 ? 窗口中打開。標題（ Caption屬性）：用于輸入菜單名或命令名，這 ? 些名字出現(xiàn)在菜單欄或菜單項中。在運行時，該 ? 字母帶有下劃線（ amp。索引（ Index屬性）：用于確定菜單控件在控件數(shù)組中 ? 的位置（注：當若干個菜單控件定義成一個控件數(shù)組時，該 ? 屬性值有效） ? 協(xié)調位置（ NegotiatePosition屬性）：用于決定是否及 ? 如何在容器窗體中顯示菜單 75 ? 該屬性取值是 True或 False,缺省值為 True，當該屬 ? 性值為 False時，相應的菜單項變成灰色 ? 76 ? ? 編輯區(qū)有 7個按鈕，用于編輯定義的菜單項。 按鈕：單擊時把在菜單列表框中選定的菜單項向左移 ? 一個等級，同時刪除菜單名前內縮符號（ … ） ? “插入”按鈕：單擊時在菜單列表框中選定的菜單項前插 ? 入一個新的同級空白菜單項 ? ? 例 91 設計一個 “下拉式菜單設計示例”窗體，窗體上有 ? 一個文本框控件和一個下拉菜單，窗體及各菜單項結構如圖 ? 93所示，通過菜單操作來設置文本框的字體、字號、文字顏 ? 色和特殊效果，其中，“特殊效果”菜單中的各菜單項具有復 ? 選功能。 ? （ 5）在“標題”欄輸入“宋體”，此時在菜單列表框出現(xiàn)輸入 ? 的內容，然后在“名稱”框內輸入 Font1，在“索引”框內輸入 ? 1，在“快捷鍵”下拉框內選擇“ Ctrl+S”。 表 91 各菜單項的屬性設置 標題 名稱 索引 快捷鍵 說明 字體 (amp。R) Color1 定義熱鍵 R … 黃色 (amp。 ? 用鼠標單擊窗體上的各下拉菜單項，或在代碼窗口的對 ? 象下拉列表框中選擇菜單項，都可以打開相應的菜單項的 ? Click事件過程，在其中編寫代碼。設置文本框中文字是否粗體 ? If = True Then ? = False ? = False ? Else ? = True ? = True ? End If ? End Sub 88 ? Private Sub Effect4_Click() 39。彈出式菜單上顯示的菜單項內容取決于按下鼠標右鍵 ? 時指針所處的位置。若省 ? 略，則在當前窗體打開。 表 92 彈出式菜單的標志設置值 常數(shù) 性質 值 描述 vbPopupMenuLeftAlign 位置 0 缺省值。省略時為鼠標的坐 ? 標。 ? 因為彈出式菜單是單擊鼠標右鍵時彈出來的，所以在程 ? 序中應檢測用戶是否單擊了鼠標右鍵。 圖 94 彈出式菜單設計示例 94 ? 首先，在菜單編輯器中添加如表 93所示的彈出式菜單項 ? 的屬性設置。設置文本框背景為綠色 ? End Sub ? Private Sub BackColor2_Click() ? = vbBlack 39。預定義對話框：使用 MsgBox或InputBox函數(shù)創(chuàng)建； ? 在自 ? 定義對話框中創(chuàng)建的控件包括：標簽、命令按鈕、選項按 ? 鈕、復選框、文本框、列表框等，通過設置屬性值來自定義 ? 窗體的外觀，使窗體成為對話框，然后編寫在運行時顯示對 ? 話框的代碼。 99 ? 創(chuàng)建新的對話框方法具體步驟如下： ? 。 ? 。在該對話框上建立 4個標簽；建立 2 ? 個文本框，用于接收從鍵盤輸入的學號和姓名；建立 2個單 ? 選按鈕，用于選擇學生的性別；建立 3個命令按鈕，單擊“確 ? 定”按鈕將在 Label4標簽處顯示輸入的內容，單擊“取消”按鈕 ? 將清除所有輸入，單擊“退出”按鈕，卸載對話框返回主窗體 ? Form1中。 105 ? 1. 添加通用對話框控件 ? 通用對話框必須用 CommonDialog控件來創(chuàng)建，該控件 ? 屬于 ActiveX控件的一個組件，使用之前必須先添加到工具箱 ? 中，具體添加步驟如下： ? （ 1）選擇“工程”菜單中的“部件”命令，彈出“部件”對話框； ? （ 2）在“部件”對話框中，選擇“控件”標簽； ? （ 3）在“控件”列表框中單擊“ Microsoft Common Dialog ? Control ”左邊的小方框，使方框中出現(xiàn)“ √”； ? （ 4）單擊“確定”按鈕。應用程序中調用這 ? 些顯示方法的一般格式是：控件名 .顯示方法。 ? 首先，設計如圖 98所示窗體界面。 VB中制作工具欄有兩種方法：一種是手工制作；另一種 ? 是通過 ToolBar、 ImageList控件制作。工具欄由按鈕（ Buttons）對象組成，按鈕對象由 Toolbar ? 控件來創(chuàng)建，每個按鈕對象上可以是一個文本，也可以是一 ? 個圖像，該圖像由 ImageList控件來提供。 ? （ 3）在 ImageList控件中添加圖片