【正文】 n = n + 1 If n Mod 5 = 0 Then Print End If Y = Y + 1 。在完成對(duì)是否為閏年的判斷后，根據(jù) leap的值進(jìn)行判斷，如果是閏年（ leap=1），就輸出該年份。 運(yùn)行程序，在命令按鈕的單擊事件過(guò)程中，先在窗體上顯示一行提示信息，然后，調(diào)用子程序FindLeap。 圖 例如，要建立一個(gè)名為 FindLeap的子程序，在 “ 名稱 ” 框中輸入子程序名 FindLeap，在 “ 類型 ” 中選擇 “ 子程序 ” ，在 “ 范圍 ” 中選擇 “ 公有的 ” ，確認(rèn)后退出對(duì)話框，系統(tǒng)自動(dòng)給出子程序的頭和尾（見(jiàn)圖 ），此時(shí)便可輸入子程序的具體內(nèi)容。 建立一個(gè)子程序有兩種方法，一是進(jìn)入代碼窗口，在左側(cè)顯示對(duì)象名的下拉框中選擇 “ 通用 ” ，在右側(cè)顯示過(guò)程的下拉框中選擇 “ 聲明 ” ，然后鍵入Sub及子程序名。 Private過(guò)程能在本窗體或模塊中被調(diào)用。其格式為： 數(shù)組變量名 = Array(數(shù)組元素值 ) 定義子程序的一般格式如下： [Public|Private][Static] Sub 子程序名（ [形參表列 ]） 〈 語(yǔ)句 End Sub 子程序 子程序的定義 Sub和 End Sub是一個(gè)子程序的開始與結(jié)束標(biāo)志。a沒(méi)有定義維數(shù)，也沒(méi)有具體的變量類型，作為數(shù)組變量使用，因此稱為數(shù)組變量。將 a(1)與 a(k)的值對(duì)換，將最小的數(shù)換到 a(1) 比較完第一輪后，除 a(1)與 a(k)兩個(gè)數(shù)的位置發(fā)生變化外，其余 8個(gè)數(shù)的位置沒(méi)有變化。如此反復(fù)，每次都以 a(k)與未被比較過(guò)的數(shù)進(jìn)行比較，直到全部數(shù)據(jù)都與 a(k)比較過(guò)為止。表示在已經(jīng)比較過(guò)的a(1)與 a(2)兩個(gè)數(shù)中， a(2)的數(shù)最小。以后，每次比較之后，哪個(gè)數(shù)最小， k就指向哪個(gè)數(shù)。 圖 選擇法排序的思路： 先用 a(1)與 a(2)比較；如果a(1) a(2),則記錄下比較小的數(shù)據(jù)元素 a(2)的下標(biāo)；否則不做處理；接著再用當(dāng)前 a(1)、 a(2)中的最小數(shù)與 a(3)～ a(10)進(jìn)行比較，記錄下這些數(shù)中最小數(shù)的下標(biāo)；完成 a(1)到 a(10)的比較后，根據(jù)記錄的最小數(shù)的下標(biāo)，將 a(1)與最小的數(shù)互換位置，把第一輪比較得到的最小數(shù)放到 a(1)中；然后，從第二個(gè)數(shù)到第 10個(gè)數(shù)中選擇最小的數(shù)放到第二個(gè)數(shù)組元素的位置；依次進(jìn)行所有數(shù)據(jù)的比較和換位，即完成了數(shù)據(jù)的排序。每個(gè)數(shù)分別用 a(1)、a(2)、 … 、 a(10)表示，如圖 。要求按由小到大的順序?qū)?shù)組中的數(shù)據(jù)進(jìn)行排序，并將排序前后的數(shù)據(jù) 這是排序的問(wèn)題。圖 。每輸入一個(gè)學(xué)生的成績(jī)，就把它累加到 sum中。 sum End Sub 其中，語(yǔ)句 “ Option Base 1”的作用是使數(shù)組下標(biāo)的下界為 1。編寫程序如下： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim i, sum As Integer sum = 0 For i = 1 To 10 a(i) = InputBox(″輸入整數(shù) :″) Print a(i)。在 Visual Basic中如果沒(méi)有特別的說(shuō)明，數(shù)組元素的下標(biāo)是從 0開始的，即第一個(gè)元素的下標(biāo)為 0。 把一組具有相同屬性、類型的數(shù)據(jù)放在一起，并用一個(gè)統(tǒng)一的名字作為標(biāo)識(shí)，這就是數(shù)組。 (5) 第 5種格式如下： Do Loop Until 它與第 3種格式相比，是將 Until子句移到了 Loop后面，先進(jìn)入循環(huán)體，后進(jìn)行指定條件的測(cè)試。 (3) 第 3種格式如下： Do Until 條件 Loop 將第 2種格式中的 While子句換成 Until子句， Until子句是當(dāng)指定條件為真時(shí)終止循環(huán)。 (2) 第 2種格式如下： Do While 條件 Loop 這種格式的 Do循環(huán)是在 Do后面加了一個(gè) While子句。再向文本框中輸入 9，執(zhí)行程序，運(yùn)行結(jié)果如圖 。 ″是素?cái)?shù)！ ″ Else ′ n Print n。如果在某一次循環(huán)中， n能被一個(gè)整數(shù)整除，就將 flag改變?yōu)?1。 為了判斷 n是否是素?cái)?shù)，需要通過(guò)循環(huán)將 n依次被2~n1之間的數(shù)整除。 【 例 】 給一個(gè)整數(shù) n(n2)，判斷其是否為素?cái)?shù)。 1. For循環(huán) For循環(huán)語(yǔ)句的一般格式為： For 循環(huán)變量 =循環(huán)變量初值 To 循環(huán)變量終值 [Step 增量 ] [循環(huán)體 ] [Exit For] Next 變量 循環(huán)語(yǔ)句 其中， For語(yǔ)句的作用是確定循環(huán)變量的值如何變化，也就是用來(lái)控制循環(huán)的次數(shù)。 (2) 在 Case 子句中使用 To 在 Case子句中可以用 To 【 例 】 使用 Select Case語(yǔ)句實(shí)現(xiàn)例 能。如果變量的值與任何一個(gè) Case子句都不匹配，就執(zhí)行 Case Else子句后面的 語(yǔ)句 n，然后從 End Select出口。 圖 3. Select Case語(yǔ)句 （ 1） 最基本的 Select Case語(yǔ)句： Select Case 變量 Case 值 1 語(yǔ)句 1 Case 值 2 語(yǔ)句 2 Case 值 n1 語(yǔ)句 n1 [Case Else 語(yǔ)句 n] End Select Select Case語(yǔ)句用來(lái)實(shí)現(xiàn)多分支選擇， Select Case中的 變量 稱為 Case變量，它可以是一個(gè)表達(dá)式，通常使用一個(gè)變量或常量，可以是數(shù)值型或是字符串型。如果文本框的內(nèi)容不為空，即 ″″，繼續(xù)執(zhí)行后面的判斷語(yǔ)句。運(yùn)行程序后，向文本框中輸入一個(gè)數(shù)值，然后單擊命令按鈕 “ 執(zhí)行 ” ，根據(jù)輸入的成績(jī)，判斷學(xué)生的成績(jī)等級(jí)。執(zhí)行塊 If結(jié)構(gòu)： 先測(cè)試 條件 1，如果 條件 1成立（ True），執(zhí)行 Then后面的 語(yǔ)句塊 1；如果 條件 1不成立，繼續(xù)測(cè)試 條件 2，如果 條件 2成立（ True)，執(zhí)行 Then后面的 語(yǔ)句塊 2…… 如此測(cè)試下去，如果所有條件不成立，執(zhí)行 Else后面的 語(yǔ)句塊 n。 單擊 “ 退出 ” 按鈕，執(zhí)行如下事件過(guò)程，結(jié)束程序的運(yùn)行。隨后，依次用 If語(yǔ)句對(duì) max與 b、 c進(jìn)行比較，并將大者放入 max。繼續(xù)輸入 b、 c，并將相應(yīng)的數(shù)據(jù)顯示在窗體上。 圖 在圖 ，然后單擊 “ 確定 ”按鈕，所輸入的數(shù)據(jù)被保存在變量 a中。當(dāng)程序執(zhí)行到 InputBox時(shí)，彈出一個(gè)輸入框，用于接受從鍵盤輸入的信息。 c max = a If b max Then max = b End If If c max Then max = c End If Print ″Max=″。 a b = InputBox(″輸入 b″) Print ″b=″。 屬性設(shè)置如表 （見(jiàn)書 34頁(yè)）所示。 【 例 】 輸入 a、 b、 c 3個(gè)數(shù)，輸出其中最大的數(shù)。 Visual Basic提供下述幾種格式的 If語(yǔ)句。它的一般格式為： 對(duì)象 .屬性 =屬性值 例如，為命令按鈕 cmdDisplay的 Caption屬性設(shè)置值： =″顯示文本 ″ 為文本框 txtDisplay的 FontName及 FontSize屬性設(shè)置值： =″System″ =18 如果為同一個(gè)對(duì)象的多個(gè)屬性賦值，可以使用with… End With語(yǔ)句。 26與 ″Visual Basic″都為常量，常量是表達(dá)式的最簡(jiǎn)單的形式。 邏輯運(yùn)算符 賦值語(yǔ)句的作用是將一個(gè)數(shù)據(jù)賦給一個(gè)變量，它的 變量名 = 在 Visual Basic中，經(jīng)常用到下述幾種賦值語(yǔ)句。邏輯運(yùn)算（也稱布爾運(yùn)算）的值為一個(gè)邏輯量 “ 真 ” 或“ 假 ” 。關(guān)系表達(dá)式的結(jié)果為真或假，如 53的值為真， 3=3 Visual Basic提供的關(guān)系運(yùn)算符如表 （見(jiàn)書 31頁(yè)）所示。所謂關(guān)系運(yùn)算就是將兩個(gè)數(shù)進(jìn)行 “ 比較 ”運(yùn)算。 算術(shù)運(yùn)算符 關(guān)系運(yùn)算的結(jié)果只有 “ 真 ” （ True）或 “ 假 ”（ False）。 運(yùn)算符和表達(dá)式 Visual Basic提供的算術(shù)運(yùn)算符如表 （見(jiàn)書 30頁(yè)）所示。這 4個(gè)函數(shù)中只有 Day的數(shù)據(jù)類型不是日期型（返回值為 2，對(duì)應(yīng)于整型變量），其他 3個(gè)函數(shù)的返回值都是 7，即日期型變量。運(yùn)行結(jié)果如圖 。 Time, VarType(Time) Print ″Day :″。 Now, VarType(Now) Print ″Date:″。窗體上只有一個(gè)命令按鈕，其 Caption屬性為 “ 使用日期函數(shù) ” 。 4. 日期函數(shù) 表 （見(jiàn)書 29頁(yè)）中列出了幾個(gè)常用的日期處理函數(shù)。 Asc() End Sub 運(yùn)行程序，向文本框中輸入大寫字母 “ A”，單擊“ 顯示 ASCII碼 ” 按鈕，字母 “ A”的 ASCII碼值 65被顯示在窗體上，如圖 。因此要將顯示命令等操作寫在命令按鈕的單擊事件過(guò)程中。窗體外觀如圖 。從工具箱中選擇命令按鈕控件，并添加到窗體上，名稱為 Command1，按鈕上顯示的文字是 “ 顯示 ASCII碼 ” 。當(dāng)運(yùn)行程序時(shí)，向文本框中輸入一個(gè)字符，單擊命令按鈕，在窗體上顯示該字符的 ASCII碼。常用的轉(zhuǎn)換函數(shù)如表 （見(jiàn)書 28頁(yè)）所示。表 （見(jiàn)書 27頁(yè)）中列出了一些最常用的數(shù)值函數(shù)。下面按照類別介紹常用的標(biāo)準(zhǔn)函數(shù)。這些函數(shù)稱為標(biāo)準(zhǔn)函數(shù)。 使用類型聲明符（見(jiàn)表 ）隱含聲明變量的數(shù)據(jù)類型。單擊按鈕 4次后，界面如圖 。由于 a是靜態(tài)變量，因此，變量 a不釋放， a的值被保留起來(lái)；而變量 b被釋放，b的值不保留。當(dāng)?shù)谝淮握{(diào)用此過(guò)程時(shí)，由于未對(duì) a和 b賦初值，所以系統(tǒng)對(duì)它們賦以默認(rèn)值 0。命令按鈕的名稱為Command1，事件過(guò)程如下。 【 例 】 編寫一個(gè)程序，觀察靜態(tài)變量的特點(diǎn)。 在 Visual Basic中可以用以下幾種格式來(lái)聲明變量 （ 1）第一種方式：用 Dim和 Static聲明變量名稱和 ① 使用 Dim Dim 變量名 As 數(shù)據(jù)類型 變量的聲明 ② 使用 Static Static 變量名 As 使用 Static聲明的變量為靜態(tài)變量。內(nèi)存單元中存放變量的實(shí)際值。在計(jì)算機(jī)系統(tǒng)中自動(dòng)建立一變量名與內(nèi)存地址的對(duì)照表。 每一個(gè)變量在內(nèi)存中占有一定的存儲(chǔ)單元。程序中的變量要有一個(gè)名稱，即變量名。 Visual Basic提供了 Type語(yǔ)句讓用戶自己定義這種數(shù)據(jù)類型。它類似于 C語(yǔ)言中的 “ 結(jié)構(gòu)體 ” 類型的數(shù)據(jù)。 有時(shí)會(huì)感到僅有以上基本數(shù)據(jù)類型是不夠的，希望將不同類型的數(shù)據(jù)組合成一個(gè)有機(jī)的整體，以便于引用。 數(shù)據(jù)類型 基本數(shù)據(jù)類型 Visual Basic提供一種 VarType函數(shù)，用來(lái)測(cè)定一個(gè)Variant變量的實(shí)際數(shù)據(jù)類型。 習(xí)題 圖 第 3章 Visual Basic的基本語(yǔ)法 數(shù)據(jù)類型 變量 標(biāo)準(zhǔn)函數(shù) 運(yùn)算符和表達(dá)式 基本語(yǔ)句 數(shù)組 子程序 函數(shù) 文件的操作 習(xí)題 表 （見(jiàn)書 22頁(yè)）列出 Visual Basic所允許使用的基本數(shù)據(jù)類型。標(biāo)簽框的邊框風(fēng)格屬性值為 1（ BorderStyle屬性值為 Fixed Single）。 如果需要運(yùn)行編譯后的程序，可以在 Windows系統(tǒng)的 “ 資源管理器 ” 或 “ 我的電腦 ” 中找到該文件，然后雙擊文件名即可執(zhí)行；也可以在 DOS的系統(tǒng)提示符下直接輸入可執(zhí)行文件名并運(yùn)行它。 離開 Visual Basic環(huán)境應(yīng)用程序能否運(yùn)行 如果想使應(yīng)用程序不在 Visual Basic環(huán)境中運(yùn)行，就必須對(duì)應(yīng)用程序進(jìn)行編譯生成 exe文件。 一個(gè)獨(dú)立運(yùn)行的文件是指沒(méi)有 Visual Basic的環(huán)境，直接在 Windows 前面列舉的例題都是在解釋方式下運(yùn)行的。選擇 “ 文件 ” 菜單中的 “ 工程另存為 ”命令，在出現(xiàn)的 “ 文件另存為 ” 對(duì)話框中，輸入工程文件名，單擊 “ 確定 ” 按鈕。