【正文】 t i If in1 Then j=j+1 ’統(tǒng)計(jì)素?cái)?shù)個(gè)數(shù) Print n。Sum End Sub 三、求最大公約數(shù) 例題：求M和N兩個(gè)數(shù)的最大公約數(shù)?！捌骄鶖?shù)：”?！昂停骸??！白钚?shù)：”。 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer Dim Sum as Integer, Avg As Single Sum=0 For i= 1 To 10 a(i)=Int(Rnd*90)+10 ’產(chǎn)生10—99之間的隨機(jī)整數(shù) Next i Max=a(1):Min=a(1) ’假設(shè)最大數(shù)和最小數(shù) For i= 1 To 10 If Maxa(i) Then ’求最大數(shù) Max=a(i) End If If Mina(i) Then ’求最小數(shù) Min=a(i) Then End if Sum=Sum+a(i) ’求和 Next i Avg=Sum/10 ’求平均數(shù) Print “最大數(shù)：”。編寫適當(dāng)?shù)氖录^程，使得在加載窗體時(shí)，然后統(tǒng)計(jì)10 個(gè)數(shù)的最大數(shù)、最小數(shù)和它們的和，并把最大數(shù)、最小數(shù)和它們的和寫到“”文件中。然后單擊“存盤”按鈕。請?jiān)贔orml的窗體上畫一個(gè)文本框，名稱為Text1，能顯示多行；在畫一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“存盤”。1%$s2amp。 \文件名() For Input As 文件號(1) For i=1 To 10 Input 文件號,a(i) … Next i Close 文件號 寫文件格式： Open amp。 \文件名() For Input As 文件號(1) Do while Not Eof(文件號) Input 文件號,變量 … Loop Close 文件號 寫文件格式： Open amp。③ 二進(jìn)制訪問：必須知道數(shù)據(jù)是如何寫入文件的。 ★ 通用對話框圖形根據(jù)以上圖形，相應(yīng)的程序代碼如下：注意： = 索引 （索引是從1開始）知識點(diǎn)12： 文件 文件包括三種：順序文件、隨機(jī)文件和二進(jìn)制文件① 順序訪問：文件中數(shù)據(jù)是以ASCII碼存儲的?，F(xiàn)在以某個(gè)為例說明： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) … End Sub 上述事件過程不僅使用在窗體上(Form_MouseDown),還可以使用于大多數(shù)控件上，包括命令按鈕(Command1_MouseDown)或文本框(Text1_MouseDown)等。知識點(diǎn)11： 菜單和鼠標(biāo)事件 ★ 菜單編輯器的使用： 注意：菜單中的標(biāo)題可以為空，但不論是第幾級菜單名稱必須唯一，且不能為空。 例題： （1） 假定有如下的Sub過程： Sub S(x As Single, ByVal y as Single) t=x x=t/y y=t Mod y End Sub 在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single, b As Single a=5:b=4 S a,b Print a,b End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為_____C_____?！?過程調(diào)用方式有兩種：Call Swap(x,y)或Swap x,y (Swap是過程名) 注意：只有地址傳遞方式才能實(shí)現(xiàn)交換功能，值傳遞方式x,y的值不變。 ★ 以下程序中，x,y為實(shí)參；a,b為形參 注意：實(shí)參要與形參的類型、個(gè)數(shù)要相同。 A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 13 分析： 對循環(huán)和數(shù)組結(jié)合的問題，往往要先看B組語句輸出結(jié)果是什么，然后根據(jù)B組語句輸出結(jié)果代入到A組語句中求結(jié)果。 Dim a as Variant a=Array(1,2,3,4,5) 因此：a(0)=1 a(1)=2 a(2)=3 a(3)=4 a(4)=5 ★ 注意：如果數(shù)組被定義為一下三種類型，(1) 數(shù)值型 (2) 字符型 (3)邏輯型 ，則它們初始化的數(shù)組元素?cái)?shù)值分別為：0 、空字符串和False 。 ★ 數(shù)組的下標(biāo)下界是根據(jù)語句Option Base n來決定：當(dāng)n=0時(shí)，數(shù)組下標(biāo)下界是從0開始；當(dāng)n=1時(shí)，數(shù)組下標(biāo)下界是從1開始。知識點(diǎn)9： 數(shù)組： ① 數(shù)組的概念 ★ 等級考試主要考一維數(shù)組、二維數(shù)組和三維數(shù)組(三維的只需知道數(shù)組中可以存儲多少數(shù)據(jù)即可)。t。 ② Do While 條件 循環(huán)體 LoopDo 循環(huán)體Loop Until 條件 Do Until 條件 循環(huán)體 Loop 注意：左邊上下兩種循環(huán)是先判斷條件后執(zhí)行循環(huán)體，右邊上下兩種循環(huán)是不管條件成立與否都至少執(zhí)行一次；While循環(huán)是條件成立執(zhí)行循環(huán)體，Until循環(huán)是條件不成立執(zhí)行循環(huán)體。執(zhí)行過程：條件成立，變量的值就是“參數(shù)1”，否則變量的值就是“參數(shù)2”。（3） 下列程序段的執(zhí)行結(jié)果為 C Dim x As Integer If x Then Print x Else Print x1 A. 1 B. 0 C. 1 以上題中的“條件”主要是變量。yxA. 3 3 B. 5 8 C. 3 3 D. 25 25以上題中的“條件”主要是邏輯表達(dá)式。 Else 語句塊n End If 其中，條件可以是：關(guān)系表達(dá)式(a5)、邏輯表達(dá)式(a5 And c4)、變量(i)或常數(shù)(0)。例題： （1）以上圖形所表示的函數(shù)表達(dá)式為：MsgBox 請輸入查詢的學(xué)生學(xué)號：, 3 + 32 + 256, 學(xué)生基本信息查詢知識點(diǎn)7： 選擇結(jié)構(gòu)語句（If條件語句）： ★ 單分支條件語句： 格式：① If 條件 Then 語句塊 End If （稱If塊語句） ② If 條件 Then 只有一條語句 （稱If條語句） ★ 雙分支條件語句： 格式：If 條件 Then 語句塊1 Else 語句塊2 End If ★ 多分支條件語句 If 條件1 Then 語句塊1 Elseif 條件2 Then 語句塊2 。知識點(diǎn)6： 交互函數(shù)的使用： ★ InputBox函數(shù)： A=InputBox(提示信息,標(biāo)題信息,默認(rèn)值或輸入框的值) 例題： (1) 執(zhí)行下列語句后，將顯示輸入對話框，此時(shí)如果單擊“確定”按鈕，則變量strInput的內(nèi)容是 C strInput=InputBox(請輸入字符串,字符串對話框,字符串) A．請輸入字符串 B. 字符串對話框