全國(guó)計(jì)算機(jī)等級(jí)考試VB經(jīng)典必考資料_知識(shí)點(diǎn)總結(jié)

1、全國(guó)計(jì)算機(jī)等級(jí)考試輔導(dǎo)材料Visual Basic程序設(shè)計(jì)基礎(chǔ)沖刺階段要點(diǎn) （必考知識(shí)點(diǎn)梳理與總結(jié)）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ò)誤的是 AA在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件。B以.bas為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件。C窗體文件包含該窗體及其控件的屬性。D一個(gè)工程中可以有多個(gè)標(biāo)準(zhǔn)模塊文件。(2)以下敘述中錯(cuò)誤

2、的是 CA打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件。B保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件。CVisual Basic應(yīng)用程序只能以解釋方式執(zhí)行。D事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)。知識(shí)點(diǎn)2：(1) 窗體和各種控件的名稱(Name)是唯一的，用來標(biāo)識(shí)一個(gè)窗體或控件的。而窗體和控件的標(biāo)題是用來說明的，是可有可無的。(2) 各種控件之間有部分相同的屬性，并不是擁有所有屬性?？丶行傩灾荒茉趯傩源翱谥性O(shè)置，但也有少數(shù)屬性只能在代碼狀態(tài)設(shè)置。(3) Form1.Hide方法和Unload Form1方法的區(qū)別：第一個(gè)方法窗體消失但仍存在于內(nèi)存

3、中；第二個(gè)方法窗體消失并不存在于內(nèi)存中。例題：(1)以下敘述中正確的是 A A窗體的Name屬性指定窗體的名稱，用來標(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é)束語句。CVisual Basic工具箱中的所有控件都具有Width和Height屬性。DVisual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置。知識(shí)點(diǎn)3：(1) 標(biāo)簽(Label1)：Autosize

4、的True屬性可以自動(dòng)調(diào)整標(biāo)簽的大小，而False屬性不能。(2) 文本框(Text1)：1、MaxLength屬性表示文本框所能容納的字符數(shù)。2、Passwordchar屬性表示口令輸入，可以是“*”或“？”等。設(shè)置文本框輸入字符為“*”：Text1.Passwordchar=*,還原文本框字符：Text1.Passwordchar=,3、ScrollBars屬性是表示文本框有垂直或水平滾動(dòng)條，但是需要和多行屬性MultiLine結(jié)合一起使用。4、SelLength屬性是表示文本框中被選中字符的個(gè)數(shù)：Text1.SelLength。SelStart屬性返回或設(shè)置文本框中所選擇的文本的起始點(diǎn)；

5、如果沒有文本被選中，則指出插入點(diǎn)的位置：Text1.SelStart。SelText屬性是表示文本框中被選中的字符：Text1. SelText。5、文本的主要事件是Change事件：(標(biāo)簽內(nèi)容隨文本框內(nèi)容變化而變化)Private sub Text1_Change() Label1.caption=Text1.TextEnd sub6、文本框的方法只有一個(gè)：Text1.SetFocus例題：(1) 能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是 C AText B. SelLength C. SelText D. SelStrart(2) 在窗體上畫一個(gè)文本框(其名稱為Text1)和標(biāo)簽(其名

6、稱為L(zhǎng)abel1)。要求程序運(yùn)行后，如果在文本框中輸入字符，則立即在標(biāo)簽中顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是 A 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 E

7、nd Sub (3)命令按鈕(Command1):1、Default屬性：當(dāng)一個(gè)命令按鈕的Default屬性為True時(shí)，按回車鍵和單擊該命令按鈕的效果相同。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可以用，但

8、Check1.Value=True不可用(因?yàn)門rue只能轉(zhuǎn)化數(shù)值1而不是1)。(5)列表框(List1):1、List屬性是一個(gè)數(shù)組型屬性：List1.List(索引)，索引可以是數(shù)字0、1,List1.listindex,變量i(List1.Text等同于List1.list(List1.listindex)。2、MultiSelect屬性：用來設(shè)置一次可以多選的表項(xiàng)數(shù)。MultiSelect屬性值為0時(shí)，每次只能選擇一項(xiàng)；MultiSelect屬性值為1時(shí)，可以同時(shí)選擇多個(gè)項(xiàng)目；MultiSelect屬性值為2時(shí)，可以用輔助鍵Shift或Ctrl選擇多個(gè)項(xiàng)目。3、常用方法：a. AddI

9、tem方法表示添加的是一個(gè)項(xiàng)目，語法為：對(duì)象名. AddItem b.RemoveItem方法表示通過刪除索引的方式刪除項(xiàng)目，語法為：對(duì)象名.RemoveItem 索引可以是數(shù)字0、1，List1.ListIndex，變量i。如果要?jiǎng)h除當(dāng)前被選中的項(xiàng)目，其代碼可寫成：對(duì)象名.RemoveItem 對(duì)象名. List1.ListIndexc.Clear方法表示清除列表框中所有的內(nèi)容，語法為：對(duì)象名.Clear。(6)組合框(Combo1)：1、Style屬性：Style屬性值為0時(shí)，表示下拉式組合框；Style屬性值為1時(shí)，表示下簡(jiǎn)單組合框；Style屬性值為2時(shí)，表示下拉式列表框。其他功能類似

10、列表框(List1)。(7)圖片框和圖像框(Picture1和Image1):1、圖片框(Picture1)：Autosize屬性值為True時(shí)，表示圖片框大小隨圖片大小改變而改變；AutoSize屬性值為False時(shí)，表示圖片框只能部分顯示大圖片。2、圖像框(Image1)：Stretch屬性為True時(shí)，圖片大小隨圖像框的大小改變而改變；Stretch屬性為True時(shí)，圖像框的大小隨圖片大小的改變而改變。3、兩種圖形類型都可以按照下面這個(gè)方法加載圖片：Picture1.picture=LoadPicture(App.Path & 圖片名稱.擴(kuò)展名)Image1.picture=LoadPi

11、cture(App.Path & 圖片名稱.擴(kuò)展名)注：“圖片名稱”前的“”不能省。如果要清除圖片：Picture1.Picture=LoadPicture()Image1.Picture=LoadPicture()注意:如果使用App.Path方法需要先保存好窗體文件和工程文件到考生文件夾中。(8)滾動(dòng)條(HScroll1)：1、Max和Min屬性是分別表示滾動(dòng)條的最大和最小刻度，刻度值用Value屬性值來表示：HScroll1.Value。2、LargeChange和SmallChange屬性是分別表示移動(dòng)滾動(dòng)條上的左右箭頭按鈕的移動(dòng)量和移動(dòng)滾動(dòng)條上滾動(dòng)框的移動(dòng)量。3、Scroll和Cha

12、nge事件分別表示拖動(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í)間間隔，單位為毫秒。時(shí)間間隔若為1秒，則代碼為Timer1.Interval=1000。3、Enabled和Interval這兩個(gè)屬性一般情況下需要一起使用。4、計(jì)時(shí)器只有一個(gè)事件，即Timer，是指每經(jīng)過一個(gè)時(shí)間間隔(Interval)所觸發(fā)的事件。知識(shí)點(diǎn)4：(1)Visual Basic常用函數(shù)的使用方法：1、數(shù)

13、學(xué)函數(shù)： 求平方根：Sqr(n) 求自然對(duì)數(shù)Log(n)lnn log78=loge8/loge7(注意非e為底的對(duì)數(shù)需要如此轉(zhuǎn)換) 求以e為底的冪值，ex exExp(x) 1 n0 Sqn(n)= 0 n=0 Rnd()-X=Int(Rnd*(上界下界+1)+下界(產(chǎn)生隨機(jī)整數(shù))，注意Rnd函數(shù)的取值范圍是0，0)。如設(shè)取01000的隨機(jī)整數(shù)，包括0和1000，則代碼為Int(Rnd*1001)；不包括0和1000，則代碼為Int(Rnd*999+1)。2、轉(zhuǎn)換函數(shù)： Str(x) 數(shù)值x轉(zhuǎn)換成字符串 Str(12.75)= 12.75 這樣轉(zhuǎn)換12.75之前會(huì)多出一位。如果使用CStr(

14、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)將無法轉(zhuǎn)換。 Chr(x) 返回以x為ASCII字符 Chr(97)= a;Asc(x) 給出字符x的ASCII代碼值 Asc(A)=65三種類型ASCII代碼值轉(zhuǎn)換：Asc(0)Asc(9)-4857Asc(A)Asc(Z)-6590Asc(a)Asc(z)-97122特殊情況：Asc(ABC)=65 只求第一個(gè)字符A的Ascii代碼值 注意Int(x) 、Fix(x)與CInt(x)的區(qū)別In

15、t(x) 取小于等于x的最大整數(shù) 當(dāng)x0時(shí)，用法和Fix一樣；當(dāng)x - (* /) 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 求 Print abc 的結(jié)果？ 首先ab的結(jié)果是True，然后再Print Truec 此時(shí)True需要轉(zhuǎn)換成-1再比較，Print -11 結(jié)果是False，所以整個(gè)輸出結(jié)果是False。知識(shí)點(diǎn)6：1、交互函數(shù)的使用： InputBo

16、x函數(shù)：A=InputBox(提示信息,標(biāo)題信息,默認(rèn)值或輸入框的值)例題：(1) 執(zhí)行下列語句后，將顯示輸入對(duì)話框，此時(shí)如果單擊“確定”按鈕，則變量StrInput的內(nèi)容是 C 。StrInput=InputBox(請(qǐng)輸入字符串,字符串對(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。例題：

17、以上圖形所表示的函數(shù)表達(dá)式為：MsgBox 請(qǐng)輸入查詢的學(xué)生學(xué)號(hào)：, 3 + 32 + 256, 學(xué)生基本信息查詢知識(shí)點(diǎn)7：1、選擇結(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 。 Else 語句塊n End If其中，條件可以是：關(guān)系表達(dá)式(a5)、邏輯表達(dá)式(a5 And c4)、變量(i

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

19、1 D.不確定 以上題中的“條件”主要是變量。2、選擇結(jié)構(gòu)語句(Select Case語句)：Select Case 測(cè)試表達(dá)式 Case 表達(dá)式列表1 語句塊1 Case 表達(dá)式列表2 語句塊2 。 Case Else 語句塊nEnd Select注意：測(cè)試表達(dá)式的類型只能是數(shù)值型數(shù)據(jù)或字符型數(shù)據(jù)，表達(dá)式列表的值只要第一個(gè)符合測(cè)試表達(dá)式值的要求，就結(jié)束Select Case語句；表達(dá)式列表可以是三種結(jié)構(gòu)或三種混合結(jié)構(gòu)：、1 To 10 、1,3,5,6,7,8 、Is10 、1,2,5,7,Is10例題：(1) 在窗體上畫一個(gè)名稱為Command1的命令按鈕和兩個(gè)名稱分別為Text1和Tex

20、t2的文本框，然后編寫如下事件過程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 T 10 X=10 Case 2,4,6 X=20 Case Is5)、邏輯表達(dá)式(a5 And c4)、變量(i)或常數(shù)(0)。執(zhí)行過程：條件成立，變量的值就是“參數(shù)1”，否則變量的值就是“參數(shù)2”。例題：(1) 設(shè)a=6,則執(zhí)行語句：x=IIF(a5,-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 語句

21、Exit For End If Next 循環(huán)變量 注意：循環(huán)如果正常退出時(shí)(沒有執(zhí)行Exit For語句)，那么循環(huán)變量必須要大于終值或等于終值+步長(zhǎng)。Do 循環(huán)體Loop While 條件 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

22、x For z=y To 3 s=s+1 Next z t=t+1 Next y u=u+1 Next x Print s;t;uA. 3 6 14 B. 14 6 3 C. 14 3 6 D. 16 4 3分析：A組語句和B語句都在X循環(huán)內(nèi)，并且是并列的，所以可以先計(jì)算B組語句，A組語句暫時(shí)不算，這樣很容易求出u=u+1語句循環(huán)了三次，則u=3；C組語句和D語句都在Y循環(huán)內(nèi)，并且是并列的，所以可以先計(jì)算D組語句，C組語句暫時(shí)不算，這樣也比較容易求出t=t+1語句循環(huán)了六次，則t=6；然后再結(jié)合答案很快就能得出答案是選B。知識(shí)點(diǎn)9：1、數(shù)組： 數(shù)組的概念 等級(jí)考試主要考一維數(shù)組、二維數(shù)組和三維

23、數(shù)組(三維的只需知道數(shù)組中可以存儲(chǔ)多少數(shù)據(jù)即可)。數(shù)組的格式：a(2,3 To 7,-1 To 2)，那它的存儲(chǔ)空間大小計(jì)算：每一維用上界-下界+1計(jì)算，例如 (2-0+1)*(7-3+1)*(2-(-1)+1)=3*5*4=60。 數(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開始。 數(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 Variant a=

24、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 。例題：(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

25、 j=3 To 4 Print a(j,i) Next j Print Next i End Sub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為 D 。A. 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組語句輸出結(jié)果是什么，然后根據(jù)B組語句輸出結(jié)果代入到A組語句中求結(jié)果。a(3,3) a(4,3)a(3,4) a(4,4)B組語句輸出結(jié)果：9 1210 13代入A組語句的結(jié)果： 知識(shí)點(diǎn)10：1、過程與函數(shù)： 過程與函數(shù)的參數(shù)類型有：實(shí)參和形參；傳遞方式有：值傳遞和地址傳遞。 以下程序中，x,y為實(shí)參；a,b

26、為形參注意：實(shí)參要與形參的類型、個(gè)數(shù)要相同。 在形參a,b之前如果加上關(guān)鍵字ByVal，那么就是按值傳遞；如果加上關(guān)鍵字ByRef或不加關(guān)鍵字，那么就是按地址傳遞。 過程調(diào)用方式有兩種：Call Swap(x,y)或Swap x,y (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è)命令按鈕，其

27、名稱為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_。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=

28、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)事件 菜單編輯器的使用： 注意：菜單中的標(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)E

29、nd Sub上述事件過程不僅使用在窗體上(Form_MouseDown),還可以使用于大多數(shù)控件上，包括命令按鈕(Command1_MouseDown)或文本框(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 Sin

30、gle, _Y As Single) If Button=1 Then 按下鼠標(biāo)左鍵 PopUpmenu File 通過PopUpmenu方法彈出菜單 End 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 = 索引 (索引是

31、從1開始)知識(shí)點(diǎn)12：1、文件 文件包括三種：順序文件、隨機(jī)文件和二進(jìn)制文件 順序訪問：文件中數(shù)據(jù)是以ASCII碼存儲(chǔ)的。 隨機(jī)訪問：文件長(zhǎng)度記錄是固定不變的，數(shù)據(jù)類型可以不同，數(shù)據(jù)以二進(jìn)制方式存儲(chǔ)在文件中，可以任意時(shí)候，任意地方訪問。 二進(jìn)制訪問：必須知道數(shù)據(jù)是如何寫入文件的。 如果源文件是字符類型，那么讀寫文件如下所示：a.讀文件的格式： 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 & 文件名(In.

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

33、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)二維數(shù)組：Dim a(10，5) As Integer Open App.Path & 文件名(In.txt) For Input As #文件號(hào)(#1)For i=1 To 10For j=1 To 5 Input #文件號(hào),a(i,j) Next jNext iClose #文件號(hào) b.寫文件格式： 一維數(shù)組：Open App.Path & 文件名(Out.txt) For Output/Append As #

34、文件號(hào)(#1) For i=1 To 10Print #文件號(hào),a(i) Next i Close #文件號(hào) 二維數(shù)組：Open App.Path & 文件名(Out.txt) For Output/Append As #文件號(hào)(#1) For i=1 To 10 For j=1 To 5Print #文件號(hào),a(i,j) Next jNext 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)題為“存盤”。

35、編寫適當(dāng)?shù)氖录^程，使得在加載窗體時(shí)，把in5.txt文件的內(nèi)容中數(shù)字字符顯示在文本框里。然后單擊“存盤”按鈕，把文本框中的內(nèi)容存到文件out5.txt中。如圖所示：根據(jù)題目要求，所編寫程序如下： (2) 在考生文件下有文件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ù)和它們

36、的和寫到“out.txt”文件中。如圖所示：根據(jù)題目要求，所編寫程序如下：Visual Basic程序設(shè)計(jì)基礎(chǔ)知識(shí)要點(diǎn)(程序設(shè)計(jì)篇)全國(guó)計(jì)算機(jī)等級(jí)考試中常用的程序編程部分：九大問題具體例子分析：一、求最大數(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 Integer, Max As Integer, Min As Integer Dim Sum as Integer, Avg As

37、Single Sum=0 For i= 1 To 10 a(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 Maxa(i) Then 求最小數(shù) Min=a(i) End if Sum=Sum+a(i) 求和 Next i Avg=Sum/10 求平均數(shù) Print “最大數(shù)：”;Max;“最小數(shù)：”;Min;“和：”;Sum;“平均數(shù)：”;Avg End Sub二、求階乘例題：求10！. Private Sub Command1_Click() Dim Sum As Lon

38、g, i As 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 Do R=M Mod N M=N N=R Loop While R0 或 Loop Until R=0 Print M和N的最大公約數(shù)為：；M End Sub四、求素?cái)?shù)例題：求100200之間的所有素?cái)?shù),并按每行5個(gè)元素格式輸

39、入所有素?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 For Next i If in-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判斷素?cái)?shù)的函數(shù)過程：Function Prime (x As Integer)As Boolean Dim I As Integer For I = 2 To Sqr(x) If x Mod I= 0 Then Prime=False E