Visual+Basic程序設(shè)計(jì)基礎(chǔ)復(fù)習(xí)資料

1、全國(guó)計(jì)算機(jī)等級(jí)考試輔導(dǎo)材料Visual Basic程序設(shè)計(jì)基礎(chǔ)考試知識(shí)要點(diǎn)鹽城工學(xué)院計(jì)算中心Visual Basic程序設(shè)計(jì)基礎(chǔ)知識(shí)要點(diǎn)(概念分析篇) 知識(shí)點(diǎn)1：(1) 在工程資源管理器窗口中可以包含：工程文件、窗體模塊文件、標(biāo)準(zhǔn)模塊文件和類模塊文件(其中可以包含許多各種文件類型)。(2) Visual Basic應(yīng)用程序可以以解釋方式執(zhí)行和編譯方式執(zhí)行。例題：以下敘述中錯(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)分別保存窗體文件及工程文件。C. Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行。D. 事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)。知識(shí)點(diǎn)2:窗體和各種控件的名稱(Name)是唯一的，用來標(biāo)識(shí)一個(gè)窗體或控件的。而窗體和控 件的標(biāo)題是用來說明的，是可有可無的。(2) 各種控件之間有部分相同的屬性，并不是擁有所有屬性?？丶行傩灾荒茉趯傩?窗口中設(shè)置，但也有少數(shù)屬性只能在代碼狀態(tài)設(shè)置。(3) Form1.Hide方法和Unioad Forml方法的區(qū)別：第一個(gè)方法窗體消失但仍

3、存在于內(nèi) 存中；第二個(gè)方法窗體消失并不存在于內(nèi)存中。例題：以下敘述中正確的是AA 窗體的Name屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體。B. 窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本。C. 可以在運(yùn)行期間改變對(duì)象的Name屬性的值。D. 對(duì)象的Name屬性值可以為空。以下敘述中錯(cuò)誤的是CA. Visual Basic是事件驅(qū)動(dòng)型可視化編輯工具。B. Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句。C. Visual Basic工具箱中的所有控件都具有Width和Height屬性。D. Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置。知識(shí)點(diǎn)3：(1) 標(biāo)簽(Label

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

5、中字符或光標(biāo)之前的字符數(shù):Textl.SelStrart。SelText屬性是表示選中文本框中的字符：Textl. SelText。5、文本的主要事件是Cha nge事件：(標(biāo)簽內(nèi)容隨文本框內(nèi)容變化而變化)Private subText1_Change()Labell.capti on=Text1.TextEnd sub6、文本框的方法只有一個(gè)：Text1.SetFocus例題：(1)能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是CA . Text B. SelLength C. SelText D. SelStrart在窗體上畫一個(gè)文本框(其名稱為Text1)和標(biāo)簽(其名稱為L(zhǎng)abel1)。要

6、求程序運(yùn)行后，如果在文本框中輸入字符，則立即在標(biāo)簽中顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是AA . Private Sub Text1_Change() Label1.capti on=Text1.Text End SubC. Private Sub Label1_Change() Label1.capti on=Text1.Text End Sub(3)命令按鈕(Command1):1、Default屬性：當(dāng)一個(gè)命令按鈕的 按鈕的效果相同。B. Private SubText1_Click()Label1.capti on=Text1.TextEnd SubD. Private S

7、ub Label1_Click()Label1.capti on=Text1.TextDefault屬性為True時(shí)，按回車鍵和單擊該命令2、Can cel屬性：當(dāng)一個(gè)命令按鈕的Ca ncel屬性為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可以用，但 Ch

8、eck1.Value=True不可用(因?yàn)門rue只能轉(zhuǎn)化數(shù)值一1而 不是1)。(5) 列表框(List1):1、 List屬性是一個(gè)數(shù)組型屬性：List1丄ist(索引)，索引可以是數(shù)字0、1 丄ist1.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、 常用方

9、法：AddItem方法表示添加的是一個(gè)項(xiàng)目，而 Removeitem方法表示通過刪 除索引的方式刪除項(xiàng)目。RemoveItem 索引 索引可以是數(shù)字 0、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屬性值為

10、False時(shí)，表示圖片框只能部分顯示大圖片。2、圖像框(Imagel): Stretch屬性為True時(shí)，圖片大小隨圖像框的大小改變而改變； Stretch屬性為false時(shí)，圖像框的大小隨圖片大小的改變而改變。3、兩種圖形類型都可以按照下面這個(gè)方法加載圖片：Picture1.picture=LoadPicture(App.Path & 圖片名稱.擴(kuò)展名) lmage1.picture=LoadPicture(App.Path & 圖片名稱擴(kuò)展名) 如果要清除圖片：Picture1 .P icture=LoadPicture()Image1 .P icture=LoadPicture()注意:

11、如果使用App.Path方法需要先保存好窗體文件和工程文件到考生文件夾中。(8) 滾動(dòng)條(HScrolH):1、 Max和Min屬性是分別表示滾動(dòng)條的最大和最小刻度，刻度值用Value屬性值來 表示：HScrolH.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)條上箭頭按 鈕的操作。：?jiǎn)螕艟弰?dòng)框兩轡：:白處產(chǎn)皐云咅謹(jǐn) ： ： (9) 計(jì)時(shí)器(Timer1):1、 Enabled屬性：Enabled屬性值為True時(shí)，表示計(jì)時(shí)

12、器可以走動(dòng)；Enabled屬性值為 False時(shí)，表示計(jì)時(shí)器停止走動(dòng)；2、Interval屬性：是表示計(jì)時(shí)器運(yùn)動(dòng)的時(shí)間間隔，單位為毫秒。 1秒時(shí)間：Timer1.Interval=1000。3、Enabled和Interval這兩個(gè)屬性一般情況下需要一起使用。知識(shí)點(diǎn)4：(Visual Basic常用函數(shù)的使用方法：1、數(shù)學(xué)函數(shù)：求平方根：Sqr(n)求自然對(duì)數(shù)Log(n)lnn log78=log e8/loge7(注意非e為底的對(duì)數(shù)需要如此轉(zhuǎn)換)求以e為底的幕值，exex Exp(x)* 1n0 Sqn(n )= Y 0n=0 THiO Rnd()-X=Int(Rnd*(上界一下界+1)+下

13、界(產(chǎn)生隨機(jī)整數(shù))2、轉(zhuǎn)換函數(shù)： Str(x)數(shù)值x轉(zhuǎn)換成字符串Str(12.75)= 12.75這樣轉(zhuǎn)換12.75之前會(huì)多出一位。 如果使用 CStr(12.75)=12.75這樣轉(zhuǎn)換12.75之前不會(huì)多出一位。 Val(x)字符x轉(zhuǎn)換成數(shù)值，但x要一定是數(shù)字字符才行，Val( “ 12.75 ”)=12如果是含有其他字符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)A

14、sc(z) -97122特殊情況：Asc(ABC)=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)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的值是 BA . 4B. 5C. 6D. 7(2) a=3 b=2c=1 求 Print abc 的結(jié)果？首先ab的結(jié)果是True,然后再Print T

15、ruec 此時(shí)True需要轉(zhuǎn)換成-1再比較，Print - 11結(jié)果是False，所以整個(gè)輸出結(jié)果是False。知識(shí)點(diǎn)6：1、交互函數(shù)的使用： InputBox 函數(shù)：A=lnputBox（提示信息，”標(biāo)題信息，”默認(rèn)值或輸入框的值”）例題： 執(zhí)行下列語(yǔ)句后，將顯示輸入對(duì)話框，此時(shí)如果單擊確定按鈕，則變量Strlnput的內(nèi)容是CStrlnput=lnputBox（請(qǐng)輸入字符串，”字符串對(duì)話框，”字符串）A.請(qǐng)輸入字符串”B.字符串對(duì)話框”C.字符串”D.空字符串 MsgBox 函數(shù)：MsgBox提示信息”，按鈕類型值+圖標(biāo)類型值+默認(rèn)焦點(diǎn)值，標(biāo)題信息”A= MsgBox提示信息”，按鈕類型值

16、+圖標(biāo)類型值+默認(rèn)焦點(diǎn)值，標(biāo)題信息”；A的值根 據(jù)單擊什么按鈕有關(guān)，A的值在1,7之間取值。比如：?jiǎn)螕舸_定”按鈕，A=1。例題：以上圖形所表示的函數(shù)表達(dá)式為：MsgBox 請(qǐng)輸入查詢的學(xué)生學(xué)號(hào)：,3+ 32 + 256,學(xué)生基本信息查詢”格式：知識(shí)點(diǎn)7：1、選擇結(jié)構(gòu)語(yǔ)句（If條件語(yǔ)句）:單分支條件語(yǔ)句格式：If 條件 The n語(yǔ)句塊End If（稱If塊語(yǔ)句）If 條件 The n 只有一條語(yǔ)句（稱If條語(yǔ)句）雙分支條件語(yǔ)句If 條件 The n語(yǔ)句塊1Else語(yǔ)句塊2End If多分支條件語(yǔ)句If 條件 1 Then語(yǔ)句塊1Elself 條件 2 Then語(yǔ)句塊2OO OO OOElse語(yǔ)

17、句塊nEnd If其中，條件可以是：關(guān)系表達(dá)式（a5）、邏輯表達(dá)式（a5And c4）、變量（i）或常數(shù)（0）。例題：下列程序段的執(zhí)行結(jié)果為 AX=5Y=-20If Not x0 Thenx=y-3ElseY=x+3End IfPrint x-y;y-xA. -33B. 5-8C. 3-3以上題中的 條件”主要是邏輯表達(dá)式。（2）下列程序段的執(zhí)行結(jié)果為 BX=2Y=1If x*y0A. TrueB. FalseC. -1以上題中的 條件”主要是關(guān)系表達(dá)式。（3）下列程序段的執(zhí)行結(jié)果為 CDim x As IntegerIf x Then Print x Else Print x-1A. 1B.

18、 0C. -1以上題中的 條件”主要是變量。2、選擇結(jié)構(gòu)語(yǔ)句（Select Case語(yǔ)句）:Select Case測(cè)試表達(dá)式Case表達(dá)式列表1語(yǔ)句塊1Case表達(dá)式列表2語(yǔ)句塊2D. 25-25D.1D.不確定O OO OO OCase 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、ls10、1,2,5,7,ls10例題： 在窗體上畫一個(gè)名稱為 Command1的命令按鈕和兩個(gè)名稱分別為Tex

19、tl和Text2的文本框，然后編寫如下事件過程：Private Sub Command1_Click()n=Text1.TextSelect Case nCase 1T 10X=10Case 2,4,6X=20Case Is5)、邏輯表達(dá)式(a5 A nd c4)、變量(i)或常數(shù)(0)。執(zhí)行過程：條件成立，變量的值就是參數(shù)1”，否則變量的值就是 參數(shù)2”。例題： 設(shè)a=6,則執(zhí)行語(yǔ)句：x=IIF(a5, -1,0)后，x的值為_D_A. 5B. 6C. 0D. -1知識(shí)點(diǎn)8：1、循環(huán)結(jié)構(gòu)For循環(huán)變量=初值 To 終值 Step步長(zhǎng) 循環(huán)體If條件Then語(yǔ)句Exit ForEnd IfNe

20、xt循環(huán)變量注意：循環(huán)如果正常退出時(shí)(沒有執(zhí)行Exit For語(yǔ)句)，那么循環(huán)變量必須要大于終值 或等于終值+步長(zhǎng)。Do While條件循環(huán)體LoopDo循環(huán)體Loop While 條件Do Un til 條件循環(huán)體LoopDo循環(huán)體Loop Un til 條件注意：左邊上下兩種循環(huán)是先判斷條件后執(zhí)行循環(huán)體，右邊上下兩種循環(huán)是不管條件成立與否都至少執(zhí)行一次；While循環(huán)是條件成立執(zhí)行循環(huán)體，Un til循環(huán)是條件不成立執(zhí)行循環(huán)體。例題:下列程序段的執(zhí)行結(jié)果為BFor x=1 To 3s=0:t=0:u=0.For y=1 To x廠 Forz=y To 3丿 CS=S+1L Next zD

21、t=t+1Next yB u=u+1- Next xPrint s;t;uA.3614B. 1463C. 14 3 6D. 16 43分析：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(

22、2,3To 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ù)語(yǔ)句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 asVariant a=Array(1,2,3,4,5)因此：a(0)=1a(1)=2a(2)=

23、3a(3)=4a(4)=5注意：如果數(shù)組被定義為一下三種類型， (1)數(shù)值型(2)字符型(3)邏輯型，則它 們初始化的數(shù)組元素?cái)?shù)值分別為：0、空字符串和False。例題：(1)在窗體上畫一個(gè)命令按鈕 (其Name屬性為Commandl)，然后編寫如下代碼:Private Sub Command1_Click()Dim a(4,4) As Integer廠 For i=1 To 4For j=1 To 4 a(i,j)=(i -1)*3+jNext j:Next iFor i=3 To 4For j=3 To 4Print a(j,i)Next jPrintEnd Sub程序運(yùn)行后，單擊命令按鈕

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

25、么就是地址傳遞。 過程調(diào)用方式有兩種：Call Swap(x,y)或Swap x,y (Swap是過程名)J實(shí)現(xiàn)兩個(gè)數(shù)的交換功能Pri vat e： Sub CammandljCliek 0Dim 愛 As I nt eger, y As Integer 善二 LD:注 2_ 二1 S：map (T. aS-Cy1Prin K,_y Diin t As Integer地址傳謹(jǐn)方式End sufc注意：只有地址傳遞方式才能實(shí)現(xiàn)交換功能，值傳遞方式x,y的值不變。當(dāng)有事件過程和通用過程一起運(yùn)行時(shí)，先執(zhí)行事件過程(Command_Click)。例題：(1)假定有如下的Sub過程：Sub S(x As

26、 Single, ByVal y asSingle)t=xx=t/yy=t Mod yEnd Sub在窗體上畫一個(gè)命令按鈕，其名稱為Comma nd1，然后編寫如下事件過程:Private Sub Command1_Click()Dim a As Single, b As Single a=5:b=4S a,bPrint a,bEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為_C_。A. 54 B. 11 C. 1.254 D. 1.251程序分析：首先形參x是地址傳遞方式，當(dāng) a傳遞給x時(shí)，因此a與x擁有一個(gè)共同存儲(chǔ)空間,圖形表示:同存儲(chǔ)空間，圖形表示:一尹I4*-1: ;那么在過程S中：

27、運(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的值,;形參y是值傳遞方式，當(dāng)b傳遞給y時(shí)，因此b與y是兩個(gè)不則還是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。 現(xiàn)在以某個(gè)為例說明：Private Sub Form_MouseD

28、own(Button As Integer, Shift As Integer, X As Single, _ Y As Single)End Sub上述事件過程不僅使用在窗體上 (Form_MouseDown),還可以使用于大多數(shù)控件上，包 括命令按鈕(Command1_MouseDown)或文本框(Text1_MouseDown)等。以上鼠標(biāo)事件過程的參數(shù)，含義如下：Butt on有值1、2和4,分別表示按下左鍵、右鍵和中建；Shift 表示Shift、Ctrl和Alt鍵的狀態(tài)，其值分別是1、2和4 ；(3) X， Y表示鼠標(biāo)光標(biāo)的坐標(biāo)位置彈出式菜單(菜單和鼠標(biāo)事件的結(jié)合使用)Privat

29、e Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,按下鼠標(biāo)左鍵通過PopUpmenu方法彈出菜單 File是一級(jí)菜單的名稱Y As Single)If Button=1 ThenPopUpmenu FileEnd IfEnd Sub運(yùn)行效果：2、公共對(duì)話框（又稱通用對(duì)話框）通用對(duì)話框是我們考試中唯一一個(gè)控件箱中沒有的控件，需要我們自己添加的，添加的方法是在 工程菜單的 部件項(xiàng)中選擇“Microsoft Common Dialog Control 6.0 后,通用對(duì)話框圖形根據(jù)以上圖形，相應(yīng)的程序代碼如下：

30、Hrl ysie CoirrwindljCLlelcCojnicrUiol i. siDial e ” -打幵迴用對(duì)【舌框I uri I 1|； -| I ：丨.卩 1 I rpi-Tn- _11 |i . 1 .：r ii n 1淚用對(duì)話H圭套育禍和】寸口!文件對(duì)話框和第存文件對(duì)血甌 以止足打?京：件對(duì)柱箱 如果是區(qū)存文件對(duì)話祗，只更寧巴二尹mnJi宜丄S=hL&BjO“L咬KCjiHftaflD立二跆1_ IshtnutzaVi , f 我 把疋口豈1.口g_l -血uLiun=l.魄為gjicgriDi al 口且1 A.ct jon2HP,Eni Svb注意：CommonDialog.

31、Filterlndex =索引（索引是從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ù)是如何寫入文件的。如果源文件是字符類型，那么讀寫文件如下所示：讀文件的格式：Ope n App. Path & 文件名(In .txt) For In put As # 文件號(hào)(#1) Do while Not EOF(文件號(hào))In put #文件號(hào)，變量LoopClose #文件號(hào)寫文件格式：Op

32、enApp.Path & 文件名(Out.txt) For Output/Append As #文件號(hào)(#1) Print #文件號(hào)，變量Close #文件號(hào)注意：當(dāng)寫文件以 Output方式時(shí)，原來的文件內(nèi)容將被覆蓋；當(dāng)寫文件以Append方式時(shí)，新的文件內(nèi)容將被添加到文件尾部；如果源文件是數(shù)值類型，那么讀寫文件如下所示：Dim a(10) As IntegerOpe nApp .P ath & 文件名(In .txt) For In put As #文件號(hào)(#1)For i=1 To 10 In put #文件號(hào),a(i)Next iClose #文件號(hào) 寫文件格式：OpenApp.Pat

33、h & 文件名(Out.txt) ForOutput/Append As #文件號(hào)(#1)For i=1 To 10Print #文件號(hào),a(i)Next i Close #文件號(hào)例題：在考生文件夾下有文件in 5.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ù)題目要求，所編寫程序

34、如下：Private Sub Comandl.Click ()Open App, Path &For Out pul As #2Print #N Textl. TextClose #2.End SubPrivate Sub Form_Lo3dODim s As StringDim n As I口teger, i As Integer, As String Open App= P And c max Then iTiax = a(i)End II a(i) min Then liiin 二 a(i)End If.sum - sum + a(i)Nest iEnd SubVisual Basic程

35、序設(shè)計(jì)基礎(chǔ)知識(shí)要點(diǎn)（程序設(shè)計(jì)篇）全國(guó)計(jì)算機(jī)等級(jí)考試中常用的程序編程部分：、求最大數(shù)、最小數(shù)、求和以及求平均數(shù)、求階層、求最大公約數(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 Command

36、1_Click()Dim a(10) As Integer, i As Integer. Max As Integer, Min As IntegerDim Sum as Integer, Avg As SingleSum=0For i= 1 To 10a(i)=In t(R nd*90)+10Next iMax=a(1):Mi n=a(1)For i= 1 To 10If Maxa(i) ThenMin=a(i)End ifSum=Sum+a(i)Next iAvg=Sum/10Print最大數(shù)：” ;Max;最小數(shù):產(chǎn)生10 99之間的隨機(jī)整數(shù)假設(shè)最大數(shù)和最小數(shù)求最大數(shù)求最小數(shù)求和求平均數(shù)

37、;Min;和:” ；Sum;平均數(shù)：” ；AvgEnd Sub、求階層例題：求10 ！.Private Sub Command1_Click()Dim Sum As Long, i As IntegerSum=1For i= 1 To 10Sum=Sum*iNext iPrint 10!= ” ;SumEnd Sub三、求最大公約數(shù)例題：求M和N兩個(gè)數(shù)的最大公約數(shù)。Private Sub Command1_Click()Dim M As Integer, N As Integer, R As IntegerM=36:N=24DoR=M Mod NM=NN=RLoop While R0或 Loo

38、p Un til R=0Print “M和N的最大公約數(shù)為：”；MEnd Sub四、求素?cái)?shù)例題：求100 200之間的所有素?cái)?shù)，并按每行5個(gè)元素格式輸入所有素?cái)?shù)。Private Sub Command1_Click()Dim n As Integer ,i As Integer j As IntegerFor n = 100 To 200For i = 2 T on-1 n可以是n/2,也可以是 Sqr( n)形式If n Mod i =0 Then Exit ForNext iIf in-1 Thenj=j+1統(tǒng)計(jì)素?cái)?shù)個(gè)數(shù)Print n;If j Mod 5 =0 Then Print輸出

39、5 個(gè)數(shù)換行End IfNext nEnd Sub五、求水仙花數(shù)(拆數(shù)法)例題：求100 999之間的所有水仙花數(shù)，并將所有水仙花數(shù)在文本框中顯示。所謂水仙花數(shù)：即153=1A3+5A3+3A3條件成立。方法1 :(數(shù)值型：使用運(yùn)算符 Mod和)Private Sub Command1_Click()Dim i As Integer ,aAs Integer ,b As Integer ,cAs IntegerFori = 100 To 999a=i100取百位數(shù)b=i10 Mod 10取十位數(shù)c=i Mod 10取個(gè)位數(shù)If i=aA3+bA3+cA3 ThenText1.Text=Text

40、1.Text & i & Space(2)End IfNext iEnd Sub方法2：(字符型：使用函數(shù) Mid、Val和CStr)Private Sub Command1_Click()Dim i As Integer ,aAs Integer ,b As Integer ,cAs IntegerFori = 100 To 999a= Val(Mid(CStr(i),1,1)取百位數(shù)b= Val(Mid(CStr(i),2,1)取十位數(shù)c= Val(Mid(CStr(i),3,1)取個(gè)位數(shù)If i=aA3+bA3+cA3 ThenText1.Text=Text1.Text & i & Sp

41、ace(2)End IfNext iEnd Sub六、排序問題例題：隨機(jī)產(chǎn)生10個(gè)兩位整數(shù)，并存入數(shù)據(jù)a中，然后將這10個(gè)元素從小到大排序 (或從大到小),并將排序號(hào)的數(shù)組顯示在文本框中。方法1 :選擇排序Private Sub Command1_Click()Dim a(1O)As Integer, i As Integer, jAs Integer,tempAs IntegerFori= 1 To 10a(i)=I nt(R nd*90)+10Next iFori= 1 To 9For j = i+1 To 10If a(i)a(j) Thentemp=a(i)a(i)=a(j)a(j)=

42、tempEnd If產(chǎn)生10 99之間的隨機(jī)整數(shù)比較n-1輪每一輪比較幾次從大到小:a(i)a(j) Then Pointer=jNext jIf i Pointer Thentemp=a(i) a(i)=a(j) a(j)=tempEnd IfNext iFor i =1 To 10Text1.Text=Text1.Text & a(i) & space(2)Next iEnd Sub方法3 :冒泡排序Private Sub Command1_Click()Dim a(1O)As Integer, i As Integer, jAs Integer,tempAs IntegerFori= 1

43、 To 10a(i)=I nt(R nd*90)+10Next iFori= 1 To 9For j = 1 To 10-iIf a(j)a(j+1) Then temp=a(j) a(j)=a(j+1) a(j+1)=tempEnd If產(chǎn)生10 99之間的隨機(jī)整數(shù)比較n-1輪每一輪比較幾次從大到小:a(i)= A And c= a And c= z Thens=s+cEnd IfNext iPrint sEnd Sub3、統(tǒng)計(jì)每類字符的個(gè)數(shù)例題：在文本框中輸入一個(gè)字符串，比如：A$m4Ch &*F13iy%p41H，請(qǐng)分別統(tǒng)計(jì)出大寫字母、小寫字母、數(shù)字字符和其他字符的個(gè)數(shù)。Private

44、Sub Command1_Click()Dim n As Integer ,i As Integer ,cAs StringDim n1 As Integer ,n2 As Integer,n3 As Integer ,n4 As Integer n=Len(Text1.Text )For i = 1 Tonc=Mid(Text1.Text,i,1)Select Case cCaseA To Zn1 = n1 +Casea To zn2 = n2 +Case0 To 9n3 = n3 +CaseElsen4 =n4 +NextPrint；n3;其他字符個(gè)數(shù)：End Sub八、矩陣（二維數(shù)組）124577End Selecti大寫字母?jìng)€(gè)數(shù):；n4010對(duì)比圖n1 ；小寫字母?jìng)€(gè)數(shù)：”；n2;數(shù)字字符個(gè)數(shù):XU)5799口）心）1612164行4列二維數(shù)組，現(xiàn)隨機(jī)生成45 892S 55內(nèi)圈數(shù)庭25IQ9934圖16個(gè)兩位整數(shù)，并將它們存入到二維數(shù)例題：有一個(gè)組中，現(xiàn)根據(jù)以上四