全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB復(fù)習(xí)資料___考試要點(diǎn)

1、Visual Basic程序設(shè)計(jì)基礎(chǔ)知識(shí)要點(diǎn)（概念分析篇）知識(shí)點(diǎn)1：（1） 在工程資源管理器窗口中可以包含：工程文件、窗體模塊文件、標(biāo)準(zhǔn)模塊文件和類模塊文件（其中可以包含許多各種文件類型）。（2） Visual Basic應(yīng)用程序可以以解釋方式執(zhí)行和編譯方式執(zhí)行。 例題：（1）以下敘述中錯(cuò)誤的是 A A在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件。 B以.bas為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件。 C窗體文件包含該窗體及其控件的屬性。 D一個(gè)工程中可以有多個(gè)標(biāo)準(zhǔn)模塊文件。（2）以下敘述中錯(cuò)誤的是 C A打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入及該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件。 B保存V

2、isual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件。 CVisual Basic應(yīng)用程序只能以解釋方式執(zhí)行。 D事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)。知識(shí)點(diǎn)2：（1） 窗體和各種控件的名稱（Name）是唯一的，用來(lái)標(biāo)識(shí)一個(gè)窗體或控件的。而窗體和控件的標(biāo)題是用來(lái)說明的，是可有可無(wú)的。（2） 各種控件之間有部分相同的屬性，并不是擁有所有屬性?？丶行傩灾荒茉趯傩源翱谥性O(shè)置，但也有少數(shù)屬性只能在代碼狀態(tài)設(shè)置。（3） Form1.Hide方法和Unload Form1方法的區(qū)別：第一個(gè)方法窗體消失并不存在于內(nèi)存中；第二個(gè)方法窗體消失但仍存在于內(nèi)存中。例題：（1）以下敘述中正確的是 A A窗體

3、的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體。 B窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本。 C可以在運(yùn)行期間改變對(duì)象的Name屬性的值。 D對(duì)象的Name屬性值可以為空。（2）以下敘述中錯(cuò)誤的是 C AVisual Basic是事件驅(qū)動(dòng)型可視化編輯工具。 BVisual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句。 CVisual Basic工具箱中的所有控件都具有Width和Height屬性。 DVisual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置。知識(shí)點(diǎn)3：（1） 標(biāo)簽(Label1)：Autosize的True屬性可以自動(dòng)調(diào)整標(biāo)簽的大小，而False屬性不能。（2） 文

4、本框(Text1)：1、Maxlength屬性表示文本框所能容納的字符數(shù)。2、Password屬性表示口令輸入，可以是“*”或“？”等。設(shè)置文本框輸入字符為“*”：Text1.Password=”*”,還原文本框字符：Text1.Password=”,3、ScrollBars屬性是表示文本框有垂直或水平滾動(dòng)條，但是需要和多行屬性Multiline結(jié)合一起使用。4、SelLength屬性是表示選中文本框中字符的個(gè)數(shù)：Text1.SelLength。SelStart屬性是表示選中文本框中字符或光標(biāo)之前的字符數(shù)：Text1.SelStrart。SelText屬性是表示選中文本框中的字符：Text1.

5、 SelText。5、文本的主要事件是Change事件：(標(biāo)簽內(nèi)容隨文本框內(nèi)容變化而變化)Private sub Text1_Change（） Label1.caption=Text1.textEnd sub 6、文本框的方法只有一個(gè)：Text1.SetFocus 例題：（1）能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是 C AText B. SelLength C. SelText D. SelStrart（2）在窗體上畫一個(gè)文本框(其名稱為Text1)和標(biāo)簽(其名稱為L(zhǎng)abel1)。要求程序運(yùn)行后，如果在文本框中輸入字符，則立即在標(biāo)簽中顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是 A

6、APrivate Sub Text1_Change（） B. Private Sub Text1_Click（） Label1.caption=Text1.Text Label1.caption=Text1.Text End Sub End SubCPrivate Sub Label1_Change（） D. Private Sub Label1_Click（） Label1.caption=Text1.Text Label1.caption=Text1.Text End Sub （3）命令按鈕(Command1): 1、Default屬性：當(dāng)一個(gè)命令按鈕的Default屬性為True時(shí)，按回

7、車鍵和單擊該命令按鈕的效果相同。 2、Cancel屬性：當(dāng)一個(gè)命令按鈕的Cancel屬性為True時(shí)，按ESC鍵和單擊該命令按鈕的效果相同。（4）單選按鈕和復(fù)選框(Option1和Check1)： 1、單選按鈕：Value屬性的值是True(選中)和False(未選中)，Option1.Value=True等同于Option1.Value用法。 2、復(fù)選框：Value屬性的值是0(未選中)、1(選中)和2(表示暫時(shí)不可用)。Check1.Value=False可以用，但Check1.Value=True不可用(因?yàn)門rue只能轉(zhuǎn)化數(shù)值1而不是1)。（5）列表框(List1): 1、List屬性

8、是一個(gè)數(shù)組型屬性：List1.List(索引)，索引可以是數(shù)字0、1,List1.listindex,變量i（List1.Text等同于List1.list(List1.listindex)）。2、MultSelect屬性：用來(lái)設(shè)置一次可以多選表項(xiàng)數(shù)。MultSelect屬性值為0時(shí)，每次只能選擇一項(xiàng)；MultSelect屬性值為1時(shí)，可以同時(shí)選擇多個(gè)項(xiàng)目；MultSelect屬性值為2時(shí)，可以用輔助鍵Shift或Ctrl選擇多個(gè)項(xiàng)目。 3、常用方法：AddItem方法表示添加的是一個(gè)項(xiàng)目，而Removeitem方法表示通過刪除索引的方式刪除項(xiàng)目。RemoveItem 索引 索引可以是數(shù)字0、

9、1,List1.listindex,變量i。（6）組合框（Combo1）： 1、Style屬性：Style屬性值為0時(shí)，表示下拉式組合框；Style屬性值為1時(shí)，表示下簡(jiǎn)單組合框；Style屬性值為2時(shí)，表示下拉式列表框。其他功能類似列表框(List1)。 （7）圖片框和圖像框(Picture1和Image1): 1、圖片框(Picture1)：Autosize屬性值為True時(shí)，表示圖片框大小隨圖片大小改變而改變；Autosize屬性值為False時(shí)，表示圖片框只能部分顯示大圖片。 2、圖像框(Image1)：Stretch屬性為True時(shí)，圖片大小隨圖像框的大小改變而改變；Stretch屬

10、性為True時(shí)，圖像框的大小隨圖片大小的改變而改變。3、兩種圖形類型都可以按照下面這個(gè)方法加載圖片： Picture1.picture=LoadPicture(App.Path & “圖片名稱.擴(kuò)展名”) Image1.picture=LoadPicture(App.Path & “圖片名稱.擴(kuò)展名”) 如果要清楚圖片： Picture1.picture=LoadPicture(“”) Image1.picture=LoadPicture(“”)注意:如果使用App.Path方法需要先保存好窗體文件和工程文件到考生文件夾中。（8）滾動(dòng)條(HScroll1)： 1、Max和Min

11、屬性是分別表示滾動(dòng)條的最大和最小刻度，刻度值用Value屬性值來(lái)表示：HScroll1.value。 2、LargeChange和SmallChange屬性是分別表示移動(dòng)滾動(dòng)條上的左右箭頭按鈕的移動(dòng)量和移動(dòng)滾動(dòng)條上滾動(dòng)框的移動(dòng)量。 3、Scroll和Change事件分別表示拖動(dòng)滾動(dòng)條上滾動(dòng)框的操作和單擊滾動(dòng)條上箭頭按鈕的操作。（9）計(jì)時(shí)器(Timer1)：1、Enabled屬性：Enabled屬性值為True時(shí)，表示計(jì)時(shí)器可以走動(dòng)；Enabled屬性值為False時(shí)，表示計(jì)時(shí)器停止走動(dòng)； 2、Interval屬性：是表示計(jì)時(shí)器運(yùn)動(dòng)的時(shí)間間隔，單位為毫秒。1秒時(shí)間：Timer1.Interval

12、=1000。 3、Enabled和Interval這兩個(gè)屬性一般情況下需要一起使用。知識(shí)點(diǎn)4：（1）Visual Basic常用函數(shù)的使用方法： 1、數(shù)學(xué)函數(shù)： 求平方根：Sqr(n) 求自然對(duì)數(shù)Log(n)àlnn log78=loge8/loge7(注意非e為底的對(duì)數(shù)需要如此轉(zhuǎn)換) 求以e為底的冪值，ex exàExp(x) 1 n>0 Sqn(n)= 0 n=0Rad()->X=Int(Rnd*(上界下界+1)+下界（產(chǎn)生隨機(jī)整數(shù)） 2、轉(zhuǎn)換函數(shù)：Str(x) 數(shù)值x轉(zhuǎn)換成字符串 str(12.75)=” 12.75” 這樣轉(zhuǎn)換12.75之前會(huì)多出一位。如

13、果使用Cstr(12.75)=”12.75” 這樣轉(zhuǎn)換12.75之前不會(huì)多出一位。Val(x) 字符x轉(zhuǎn)換成數(shù)值，但x要一定是數(shù)字字符才行，Val(“12.75”)=12.75,如果是含有其他字符Val(“12.7ab”)將無(wú)法轉(zhuǎn)換。 chr(x) 返回以x為Asccii代碼值的字符 chr(97)= ”a”;Asc(x) 給出字符x的Asccii代碼值 Asc(“A”)=65 三種類型ASCII代碼值轉(zhuǎn)換：Asc(“0”)Asc(“9”)-à4857 Asc(“A”)Asc(“Z”)-à6590Asc(“a”)Asc(“z”)-à97122特殊情況：Asc(“A

14、BC”)=65 只求第一個(gè)字符“A”的Ascii代碼值 Fix(x) 將數(shù)值型數(shù)據(jù)x的小數(shù)部分舍去 Fix(12.8)=12 Fix(-12.5)=-12;Int(x) 取小于等于x的最大整數(shù) 當(dāng)x>0時(shí)，用法和Fix一樣；當(dāng)x<0時(shí)，Int(-12.3)= -13;Cint(x) 將數(shù)值型數(shù)據(jù)x的小數(shù)部分四舍五入 Cint(12.7)=13 Cint(12.3)=12 但是有特殊情況： x 當(dāng)x是偶數(shù) Cint(x.5)= x+1 當(dāng)x是奇數(shù) 3、字符函數(shù) Left(x,n) 從x字符串左邊起取n個(gè)字符 Left("ABCDEFG",3)="ABC&

15、quot;Right(x,n) 從x字符串右邊起取n個(gè)字符 Right("ABCDEFG",3)="EFG"。 Mid(x,n1,n2) 從字符串x左邊第n1個(gè)位置開始向右起取n2個(gè)字符 Mid(x,n) 從字符串x左邊第n個(gè)位置開始向右全部取Mid("ABCDEFG",3,2)= "CD" Mid("ABCDEFG",3)= "CDEFG" Instr(n,s1,s2) 從字符串s1的第n個(gè)位置起查找s2在s1中位置，如果n省略，則默認(rèn)從字符串s1的第1個(gè)位置起查找s2在s

16、1中位置 Instr(2,"ABCDEFG","CD")=3知識(shí)點(diǎn)5： 1、運(yùn)算符： 算術(shù)運(yùn)算符 運(yùn)算符的優(yōu)先級(jí)： > - > (* /) > > Mod > (+ -) 關(guān)系運(yùn)算符 < <= > >= = <> Like Is 運(yùn)算符優(yōu)先級(jí)相同 邏輯運(yùn)算符 運(yùn)算符的優(yōu)先級(jí)：Not > And > Or > Xor > Eqv例題：（1） 表達(dá)式4 + 5 6 * 7 / 8 Mod 9 的值是 B A4 B. 5 C. 6 D. 7（2） a=3 b=2 c=1

17、求 Print a>b>c 的結(jié)果？ 首先a>b的結(jié)果是true,然后再Print True>c 此時(shí)True需要轉(zhuǎn)換成-1再比較，Print -1>1 結(jié)果是False，所以整個(gè)輸出結(jié)果是False。知識(shí)點(diǎn)6： 1、交互函數(shù)的使用： InputBox函數(shù)： A=InputBox("提示信息","標(biāo)題信息","默認(rèn)值或輸入框的值") 例題：(1) 執(zhí)行下列語(yǔ)句后，將顯示輸入對(duì)話框，此時(shí)如果單擊“確定”按鈕，則變量strInput的內(nèi)容是 C strInput=InputBox("請(qǐng)輸入字符串&q

18、uot;,"字符串對(duì)話框","字符串") A"請(qǐng)輸入字符串" B. "字符串對(duì)話框" C. "字符串" D. 空字符串 MsgBox函數(shù)： MsgBox “提示信息”,按鈕類型值+圖標(biāo)類型值+默認(rèn)焦點(diǎn)值, “標(biāo)題信息” A= MsgBox “提示信息”,按鈕類型值+圖標(biāo)類型值+默認(rèn)焦點(diǎn)值, “標(biāo)題信息”；A的值根據(jù)單擊什么按鈕有關(guān)，A的值在1,7之間取值。比如：?jiǎn)螕簟按_定”按鈕，A=1。例題：（1）以上圖形所表示的函數(shù)表達(dá)式為：MsgBox "請(qǐng)輸入查詢的學(xué)生學(xué)號(hào)：", 3

19、+ 32 + 256, "學(xué)生基本信息查詢"知識(shí)點(diǎn)7： 1、選擇結(jié)構(gòu)語(yǔ)句（If條件語(yǔ)句）： 單分支條件語(yǔ)句： 格式： If 條件 Then 語(yǔ)句塊 End If （稱If塊語(yǔ)句） If 條件 Then 只有一條語(yǔ)句 （稱If條語(yǔ)句） 雙分支條件語(yǔ)句： 格式：If 條件 Then 語(yǔ)句塊1 Else 語(yǔ)句塊2 End If 多分支條件語(yǔ)句 If 條件1 Then 語(yǔ)句塊1 Elseif 條件2 Then 語(yǔ)句塊2 Else 語(yǔ)句塊n End If 其中，條件可以是：關(guān)系表達(dá)式(a>5)、邏輯表達(dá)式(a>5 And c>4)、變量(i)或常數(shù)(0)。例題：（1

20、） 下列程序段的執(zhí)行結(jié)果為 A X=5Y=-20 If Not x>0 Then x=y-3 ElseY=x+3End IfPrint x-y;y-xA. -3 3 B. 5 -8 C. 3 -3 D. 25 -25以上題中的“條件”主要是邏輯表達(dá)式。（2） 下列程序段的執(zhí)行結(jié)果為 B X=2Y=1 If x*y<1 Then y=y-1 Else y=-1 Print y-x>0 A. True B. False C. -1 D.1以上題中的“條件”主要是關(guān)系表達(dá)式。（3） 下列程序段的執(zhí)行結(jié)果為 C Dim x As Integer If x Then Print x E

21、lse Print x-1 A. 1 B. 0 C. -1 D.不確定以上題中的“條件”主要是變量。2、選擇結(jié)構(gòu)語(yǔ)句（Select Case語(yǔ)句）：Select Case 測(cè)試表達(dá)式 Case 表達(dá)式列表1 語(yǔ)句塊1 Case 表達(dá)式列表2 語(yǔ)句塊2 Case Else 語(yǔ)句塊nEnd Select注意：測(cè)試表達(dá)式的類型只能是數(shù)值數(shù)據(jù)或字符型，表達(dá)式列表的值只要第一個(gè)符合測(cè)試表達(dá)式值的要求，就結(jié)束Select Case語(yǔ)句；表達(dá)式列表可以是三種結(jié)構(gòu)或三種混合結(jié)構(gòu)：、1 To 10 、1,3,5,6,7,8 、Is>10 、1,2,5,7,Is>10例題：（1） 在窗體上畫一個(gè)名稱為

22、Command1的命令按鈕和兩個(gè)名稱分別為Text1和Text2的文本框，然后編寫如下事件過程： Private Sub Command1_Click() n=Text1.text Select Case n Case 1 T 10X=10 Case 2,4,6X=20 Case Is<10X=30 Case 10X=10 End Select Text2.text=x End Sub 程序運(yùn)行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是 A A. 10 B. 20 C. 30 D.403、選擇結(jié)構(gòu)語(yǔ)句（IIF函數(shù)）： 變量=IIF(條件，參數(shù)1，

23、參數(shù)2) 其中，條件可以是：關(guān)系表達(dá)式(a>5)、邏輯表達(dá)式(a>5 And c>4)、變量(i)或常數(shù)(0)。執(zhí)行過程：條件成立，變量的值就是“參數(shù)1”，否則變量的值就是“參數(shù)2”。例題：（1） 設(shè)a=6,則執(zhí)行語(yǔ)句：x=IIF(a>5,-1,0)后，x的值為 D A. 5 B. 6 C. 0 D. -1知識(shí)點(diǎn)8： 1、循環(huán)結(jié)構(gòu) For 循環(huán)變量=初值 To 終值 Step 步長(zhǎng) 循環(huán)體 If 條件 Then 語(yǔ)句 Exit For End If Next 循環(huán)變量 Do 循環(huán)體Loop While 條件注意：循環(huán)如果正常退出時(shí)(沒有執(zhí)行Exit For語(yǔ)句)，那么循

24、環(huán)變量必須要大于終值或等于終值+步長(zhǎng)。 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)體。例題：（1） 下列程序段的執(zhí)行結(jié)果為 B s=0:t=0:u=0 For x=1 To 3 For y=1 To x For z=y To 3 s=s+1 Next zt=t+1 Next yu=u+1 Next x Print s;t;u A. 3 6 14 B. 14

25、 6 3 C. 14 3 6 D. 16 4 3 分析： A組語(yǔ)句和B語(yǔ)句都在X循環(huán)內(nèi)，并且是并列的，所以可以先計(jì)算B組語(yǔ)句，A組語(yǔ)句暫時(shí)不算，這樣很容易求出u=u+1語(yǔ)句循環(huán)了三次，則u=3；C組語(yǔ)句和D語(yǔ)句都在Y循環(huán)內(nèi)，并且是并列的，所以可以先計(jì)算D組語(yǔ)句，C組語(yǔ)句暫時(shí)不算，這樣也比較容易求出t=t+1語(yǔ)句循環(huán)了六次，則t=6；然后再結(jié)合答案很快就能得出答案是選B。知識(shí)點(diǎn)9： 1、數(shù)組： 數(shù)組的概念 等級(jí)考試主要考一維數(shù)組、二維數(shù)組和三維數(shù)組(三維的只需知道數(shù)組中可以存儲(chǔ)多少數(shù)據(jù)即可)。數(shù)組的格式：a(2,3 To 7,-1 To 2)，那它的存儲(chǔ)空間大小計(jì)算：每一維用上界-下界+1計(jì)算，

26、例如 (2-0+1)*(7-3+1)*(2-(-1)+1)=3*5*4=60。 數(shù)組的下標(biāo)下界是根據(jù)語(yǔ)句Option Base n來(lái)決定：當(dāng)n=0時(shí)，數(shù)組下標(biāo)下界是從0開始；當(dāng)n=1時(shí)，數(shù)組下標(biāo)下界是從1開始。 數(shù)組分為：固定大小數(shù)組: Dim a(10) As Integer動(dòng)態(tài)大小數(shù)組: Dim a() As Integer Redim a(10) Array函數(shù)用法：為一個(gè)變體型變量創(chuàng)建一個(gè)數(shù)組。 Dim a as Varianta=Array(1,2,3,4,5) 因此：a(0)=1 a(1)=2 a(2)=3 a(3)=4 a(4)=5 注意：如果數(shù)組被定義為一下三種類型，(1) 數(shù)

27、值型 (2) 字符型 (3)邏輯型 ，則它們初始化的數(shù)組元素?cái)?shù)值分別為：0 、空字符串和False 。例題：（1） 在窗體上畫一個(gè)命令按鈕（其Name屬性為Command1）,然后編寫如下代碼： Private Sub Command1_Click() Dim a(4,4) As Integer For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i) Next j Print Next i End Sub 程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為 D 。 A.

28、6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 13分析： 對(duì)循環(huán)和數(shù)組結(jié)合的問題，往往要先看B組語(yǔ)句輸出結(jié)果是什么，然后根據(jù)B組語(yǔ)句輸出結(jié)果代入到A組語(yǔ)句中求結(jié)果。a(3,3) a(4,3)a(3,4) a(4,4) B組語(yǔ)句輸出結(jié)果：9 1210 13 代入A組語(yǔ)句的結(jié)果：知識(shí)點(diǎn)10： 1、過程及函數(shù)： 過程及函數(shù)的參數(shù)類型有：實(shí)參和形參；傳遞方式有：值傳遞和地址傳遞。 以下程序中，x,y為實(shí)參；a,b為形參 注意：實(shí)參要及形參的類型、個(gè)數(shù)要相同。 在形參a,b之前如果加上關(guān)鍵字ByVal，那么就是值傳遞；如果加上關(guān)鍵字ByRef或不加關(guān)鍵字，那

29、么就是地址傳遞。 過程調(diào)用方式有兩種：Call S)或S (Swap是過程名)注意：只有地址傳遞方式才能實(shí)現(xiàn)交換功能，值傳遞方式x,y的值不變。當(dāng)有事件過程和通用過程一起運(yùn)行時(shí)，先執(zhí)行事件過程(Command_Click)。例題：（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

30、 S a,b Print a,b End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為_C_。 A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 程序分析： 首先形參x是地址傳遞方式，當(dāng)a傳遞給x時(shí)，因此a及x擁有一個(gè)共同存儲(chǔ)空間，圖形表示：；形參y是值傳遞方式，當(dāng)b傳遞給y時(shí)，因此b及y是兩個(gè)不同存儲(chǔ)空間，圖形表示：；那么在過程S中：運(yùn)算x=t/y后，x=1.25，圖形表示；因此a的值就是1.25；運(yùn)算y=t Mod y后，y=1，圖形表示:，因?yàn)榇藭r(shí)b和y存儲(chǔ)空間不同，則不影響b的值，則還是4,因此Print a,b的結(jié)果就是選擇C答案。知識(shí)點(diǎn)11： 1、菜單和鼠標(biāo)事件

31、菜單編輯器的使用： 注意：菜單中的標(biāo)題可以為空，但不論是第幾級(jí)菜單名稱必須唯一，且不能為空。 鼠標(biāo)事件（按下鼠標(biāo)鍵事件過程） 主要事件有：Form_MouseDown 、 Form_MouseUp 和 Form_MouseMove?，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)或文本框(

32、Text1_MouseDown)等。 以上鼠標(biāo)事件過程的參數(shù)，含義如下： （1）Button 有值1、2和4，分別表示按下左鍵、右鍵和中建； （2）Shift 表示Shift、Ctrl和Alt鍵的狀態(tài)，其值分別是1、2和4； （3）X，Y 表示鼠標(biāo)光標(biāo)的坐標(biāo)位置 彈出式菜單（菜單和鼠標(biāo)事件的結(jié)合使用） Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=1 Then 按下鼠標(biāo)左鍵 PopUpmenu File通過PopUpmenu方法彈出菜單 En

33、d If File是一級(jí)菜單的名稱 End Sub運(yùn)行效果： 2、公共對(duì)話框(又稱通用對(duì)話框) 通用對(duì)話框是我們考試中唯一一個(gè)控件箱中沒有的控件，需要我們自己添加的，添加的方法是在“工程”菜單的“部件”項(xiàng)中選擇“Microsoft Common Dialog Control 6.0”后，才會(huì)在控件箱中出現(xiàn)通用對(duì)話框圖標(biāo)。 通用對(duì)話框圖形根據(jù)以上圖形，相應(yīng)的程序代碼如下：注意：CommonDialog.FilterIndex = 索引 （索引是從1開始）知識(shí)點(diǎn)12：1、文件 文件包括三種：順序文件、隨機(jī)文件和二進(jìn)制文件 順序訪問：文件中數(shù)據(jù)是以ASCII碼存儲(chǔ)的。 隨機(jī)訪問：文件長(zhǎng)度記錄是固定不

34、變的，數(shù)據(jù)類型可以不同，數(shù)據(jù)以二進(jìn)制方式存儲(chǔ)在文件中，可以任意時(shí)候，任意地方訪問。 二進(jìn)制訪問：必須知道數(shù)據(jù)是如何寫入文件的。如果源文件是字符類型，那么讀寫文件如下所示：讀文件的格式： Open App.Path & "文件名(In.txt)" For Input As #文件號(hào)(#1) Do while Not Eof(文件號(hào)) Input #文件號(hào),變量 Loop Close #文件號(hào) 寫文件格式： Open App.Path & "文件名(Out.txt)" For Output(Append) As #文件號(hào)(#1) Print

35、#文件號(hào),變量 Close #文件號(hào) 注意：當(dāng)寫文件以O(shè)utput方式時(shí)，原來(lái)的文件內(nèi)容將被覆蓋；當(dāng)寫文件以Append方式時(shí)，新的文件內(nèi)容將被添加到文件尾部；如果源文件是數(shù)值類型，那么讀寫文件如下所示： Dim a(10) As Integer Open App.Path & "文件名(In.txt)" For Input As #文件號(hào)(#1) For i=1 To 10 Input #文件號(hào),a(i) Next i Close #文件號(hào) 寫文件格式： Open App.Path & "文件名(Out.txt)" For Output

36、(Append) As #文件號(hào)(#1) For i=1 To 10Print #文件號(hào),a(i) Next i Close #文件號(hào)例題：（1）在考生文件夾下有文件in5.txt，文件中有字符串“0&1%$s#2&3!45u6ydf7ff8|9er”。請(qǐng)?jiān)贔orml的窗體上畫一個(gè)文本框，名稱為Text1，能顯示多行；在畫一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“存盤”。編寫適當(dāng)?shù)氖录^程，使得在加載窗體時(shí)，把in5.txt文件的內(nèi)容中數(shù)字字符顯示在文本框里。然后單擊“存盤”按鈕，把文本框中的內(nèi)容存到文件out5.txt中。如圖所示： 根據(jù)題目要求，所編寫程序如下：（2） 在考生文件下

37、有文件in.txt，文件有10個(gè)數(shù)據(jù)：123 521 362 821 400 300 710 990 120 500. 請(qǐng)?jiān)贔orml的窗體上畫一個(gè)文本框，名稱為Text1，能顯示多行；在畫一個(gè)命令按鈕，名稱為Cl，標(biāo)題為“存盤”。編寫適當(dāng)?shù)氖录^程，使得在加載窗體時(shí)，把in5.txt文件的內(nèi)容顯示在文本框里，然后統(tǒng)計(jì)10 個(gè)數(shù)的最大數(shù)、最小數(shù)和它們的和，并把最大數(shù)、最小數(shù)和它們的和寫到“out.txt”文件中。如圖所示：根據(jù)題目要求，所編寫程序如下：Visual Basic程序設(shè)計(jì)基礎(chǔ)知識(shí)要點(diǎn)（程序設(shè)計(jì)篇）全國(guó)計(jì)算機(jī)等級(jí)考試中常用的程序編程部分：一、 求最大數(shù)、最小數(shù)、求和以及求平均數(shù)二、

38、求階層三、 求最大公約數(shù)四、 求素?cái)?shù)五、 求水仙花數(shù)（拆數(shù)法）六、 排序（選擇排序、直接插入排序和冒泡排序）七、 字符操作1、 字符串取反（反向輸出字符串）2、 判斷字符串中的某個(gè)字符是否為字母3、 統(tǒng)計(jì)每類字符的個(gè)數(shù)八、 矩陣求法（二維數(shù)組）九、 文件讀寫操作1、 字符型讀寫操作2、 數(shù)值型讀寫操作九大問題具體例子分析：一、求最大數(shù)、最小數(shù)、求和以及求平均數(shù) 例題：隨機(jī)產(chǎn)生10個(gè)兩位整數(shù)，并存入數(shù)據(jù)a中，然后分別求10個(gè)元素中的最大數(shù)、最小數(shù)、求10個(gè)元素之和以及它們的平均數(shù)。 Private Sub Command1_Click() Dim a(10) As Integer, i As I

39、nteger, Max As Integer, Min As Integer Dim Sum as Integer, Avg As SingleSum=0 For i= 1 To 10a(i)=Int(Rnd*90)+10 產(chǎn)生1099之間的隨機(jī)整數(shù) Next i Max=a(1):Min=a(1) 假設(shè)最大數(shù)和最小數(shù) For i= 1 To 10 If Max<a(i) Then 求最大數(shù) Max=a(i) End IfIf Min>a(i) Then 求最小數(shù) Min=a(i) Then End ifSum=Sum+a(i) 求和 Next iAvg=Sum/10 求平均數(shù) P

40、rint “最大數(shù)：”;Max;“最小數(shù)：”;Min;“和：”;Sum;“平均數(shù)：”;Avg End Sub二、求階層 例題：求10！. Private Sub Command1_Click() Dim Sum As Long,iAs Integer Sum=1For i= 1 To 10 Sum=Sum*i Next i Print “10!=”;Sum End Sub 三、求最大公約數(shù) 例題：求M和N兩個(gè)數(shù)的最大公約數(shù)。 Private Sub Command1_Click() Dim M As Integer, N As Integer, R As Integer M=36:N=24 D

41、o R=M Mod N M=N N=R Loop While R<>0 或 Loop Until R=0 Print “M和N的最大公約數(shù)為：”；M End Sub四、求素?cái)?shù) 例題：求100200之間的所有素?cái)?shù),并按每行5個(gè)元素格式輸入所有素?cái)?shù)。 Private Sub Command1_Click() Dim n As Integer ,i As Integer j As Integer For n = 100 To 200 For i = 2 To n-1 n-1可以是n/2,也可以是Sqr(n)形式 If n Mod i =0 Then Exit ForNext iIf i&

42、gt;n-1 Then j=j+1 統(tǒng)計(jì)素?cái)?shù)個(gè)數(shù) Print n; If j Mod 5 =0 Then Print 輸出5個(gè)數(shù)換行End If Next n End Sub五、求水仙花數(shù)（拆數(shù)法） 例題：求100999之間的所有水仙花數(shù)，并將所有水仙花數(shù)在文本框中顯示。所謂水仙花數(shù)：即153=13+53+33條件成立。方法1：（數(shù)值型：使用運(yùn)算符Mod 和 ） Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999a=i100取百位數(shù) b=i10 Mod 10 取十位數(shù)c=i Mod 10 取個(gè)位數(shù)If i=a3+b3+c3 Then Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub方法2：（字符型：使用函數(shù)Mid、Val和CStr） Private Sub Command1_Click() Dim i As Integer ,a As In