VB基礎(chǔ)知識(shí)要點(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í)行。(3) 以下敘述中錯(cuò)誤的是AA .在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件。B.以.bas為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件。C.窗體文件包含該窗體及其控件的屬性。D. 一個(gè)工程中可以有多個(gè)標(biāo)準(zhǔn)模塊文件。(2)以下敘述中錯(cuò)誤的是CA .打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件。B

2、.保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件。C. Visual 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)說(shuō)明的,是可有可無(wú)的。(2) 各種控件之間有部分相同的屬性，并不是擁有所有屬性?？丶行傩灾荒茉趯傩源翱谥性O(shè)置,但也有少數(shù)屬性只能在代碼狀態(tài)設(shè)置。(3) Form1.Hide方法和Unload Form1方法的區(qū)別：第一個(gè)方法窗體消失并不存在于內(nèi)存中；第二個(gè)方法窗體消失但仍存在于內(nèi)存中。例題：(1)以下敘述中正確的是A

3、A.窗體的Name屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體。B .窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本。C.可以在運(yùn)行期間改變對(duì)象的Name屬性的值。D.對(duì)象的Name屬性值可以為空。(2)以下敘述中錯(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)簽(Label1): Autosize的True屬性可以自動(dòng)調(diào)整標(biāo)簽的大小，而Fals

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

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

6、作的事件過(guò)程是 AA . Private Sub Text1_Change ()Label1.caption=Text1.Text End SubC. Private Sub Label1_Change ()Label1.caption=Text1.Text End Sub(3)命令按鈕(Command1):1、Default屬性：當(dāng)一個(gè)命令按鈕的 令按鈕的效果相同。2、Cancel屬性：當(dāng)一個(gè)命令按鈕的 按鈕的效果相同。B. Private Sub Text1_Click ()Label1.caption=Text1.TextEnd SubD. Private Sub Label1_Clic

7、k ()Label1.caption=Text1.TextDefault屬性為True時(shí)，按回車鍵和單擊該命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）列表框（

8、List1）:1、List屬性是一個(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屬性彳1為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方法表示通過(guò) 刪除索引的方式刪

9、除項(xiàng)目。RemoveItem索引 索引可以是數(shù)字 0、1,List1.listindex,變量i。（6）組合框（Combo。：1、Style屬性：Style屬性值為0時(shí)，表示下拉式組合框；Style屬性彳1為1時(shí),精品文檔表示下簡(jiǎn)單組合框；Style屬性值為2時(shí)，表示下拉式列表框。其他功能類似列表框(Listl)(7)圖片框和圖像框(Picturel 和Imagel):1 、圖片框(Picturel) : Autosize屬性值為True時(shí)，表示圖片框大小隨圖片大小改變而改變；Autosize屬性值為False時(shí)，表示圖片框只能部分顯示大圖片。2 、圖像框(Image1) : Stretch

10、屬性為True時(shí)，圖片大小隨圖像框的大小改變而改變；Stretch屬性為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)條(HScrol

11、l1):1 、Max和Min屬性是分別表示滾動(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)條上箭頭按鈕的操作。,潸攀饕臀蓄E(9)計(jì)時(shí)器(Time:1、Enabled屬性：Enabled屬性值為True時(shí)，表示計(jì)時(shí)器可以走動(dòng)；Enabled屬性值為False時(shí)，表示計(jì)時(shí)器停止走動(dòng)；4 、Interval 屬性：是表示計(jì)時(shí)器運(yùn)動(dòng)的時(shí)間間隔，單位為毫秒。

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

13、)= 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) 4857Asc( A)Asc( Z)- 6590Asc( a)Asc( Z) 97122特殊情況：Asc( ABC )=65只求第一個(gè)字符A”的Ascii代碼值 Fix(x)將數(shù)值型數(shù)據(jù) x的小數(shù)部

14、分舍去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. 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é)果是

15、False。精品文檔知識(shí)點(diǎn)6:1、交互函數(shù)的使用： InputBox 函數(shù)：A=InputBox（提示信息,標(biāo)題信息，默認(rèn)值或輸入框的值）例題：（1） 執(zhí)行下列語(yǔ)句后，將顯示輸入對(duì)話框，此時(shí)如果單擊“確定”按鈕,則變量strInput 的內(nèi)容是 CstrInput=InputBox（ 請(qǐng)輸入字符串,字符串對(duì)話框,字符串）A .請(qǐng)輸入字符串 B.字符串對(duì)話框C. 字符串D.空字符串語(yǔ)句塊2 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

16、的值在1,7之間取值。比如：?jiǎn)螕簟按_定”按鈕, A=1。（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 條件Then（稱If塊語(yǔ)句）（稱If條語(yǔ)句）語(yǔ)句塊End IfIf 條件Then 只有一條語(yǔ)句 雙分支條件語(yǔ)句：格式：If 條件ThenElse語(yǔ)句塊2End If 多分支條件語(yǔ)句If條件 1 Then語(yǔ)句塊1Elseif條件 2 Then語(yǔ)句塊2o O O O O OElse語(yǔ)句塊nEnd If其中，條件可以是：關(guān)系表達(dá)式 (a5)、邏輯

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

18、 C. -1 D.不確定以上題中的“條件”主要是變量。2、選擇結(jié)構(gòu)語(yǔ)句(Select Case 語(yǔ)句)：Select Case測(cè)試表達(dá)式Case表達(dá)式列表1語(yǔ)句塊1Case表達(dá)式列表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、Is10、1,2,5,7,Is10例題：(1) 在窗體上畫一個(gè)名稱為Commandl的命令按鈕和兩個(gè)名稱分別為Textl和Text2的文本框，然后編

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

20、如果正常退出時(shí)（沒有執(zhí)行Exit For語(yǔ)句），那么循環(huán)變量必須要大于終值或等于終 值+步長(zhǎng)。Do While條件Do循環(huán)體循環(huán)體LoopLoop While條件Do Until條件Do循環(huán)體循環(huán)體LoopLoop Until條件左邊上下兩種循環(huán)是先判斷條件后執(zhí)行循環(huán)體，右邊上下兩種循環(huán)是不管條件成立與否都至少執(zhí)行一次； While循環(huán)是條件成立執(zhí)行循環(huán)體，Until循環(huán)是條件不成立執(zhí)行循環(huán)體。當(dāng)循環(huán)While 條件循環(huán)體Wend當(dāng)條件為True（非0值），執(zhí)行循環(huán)體。這種情況適合需要由數(shù)據(jù)的某個(gè)條件是否出現(xiàn)來(lái) 控制循環(huán)例題：（1） 下列程序段的執(zhí)行結(jié)果為Bs=0:t=0:u=0For x=1

21、 To 3For yFc=1 To xr z=y To 3t=Next u=u+Next x -Print s;t;uA. 3 6 14 B. 14 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ǔ)句都在丫循環(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ù)組（三維

22、的只需知道數(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ù)語(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,

23、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 IntegerFor i=1 To 4For j=1 To 4A a a(i,j)=(i-1)*3+jNext jNext i IFor i=3 To 4For j=3 To 4PrintNext iEn

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

25、鍵 字ByRef或不加關(guān)鍵字，那么就是地址傳遞。 過(guò)程調(diào)用方式有兩種：Call Swap(x,y) 或Swap x,y(Swap是過(guò)程名)實(shí)現(xiàn)兩個(gè)數(shù)的交換功能Frivatiz： Sub CoremandlJC1 i ck 0Dim 工 As Integer, y As Integer k = 10: v = _20或使用Print y End Wub，一Private Sub Swap fa As Integer, As Integer)Dim t As IntegerEnd地址傳遞方式注意：只有地址傳遞方式才能實(shí)現(xiàn)交換功能，值傳遞方式x,y的值不變。當(dāng)有事件過(guò)程和通用過(guò)程一起運(yùn)行時(shí)，先執(zhí)行事

26、件過(guò)程(Command_Click)。例題：(1)假定有如下的Sub過(guò)程:Sub S(x As Single,ByVal y as Single)t=xx=t/y y=t Mod yEnd Sub在窗體上畫一個(gè)命令按鈕，其名稱為Command1然后編寫如下事件過(guò)程: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. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1程序分析：首先形參x是地址傳遞方式，當(dāng) a傳遞給x時(shí)，因

27、此a與x擁有一個(gè)共第武同存儲(chǔ)空間，圖形表示：11;形參y是值傳遞方式，當(dāng) b傳遞給y時(shí)，因此bb 4.” I 4JI I與y是兩個(gè)不同存儲(chǔ)空間，圖形表示： 一 ;那么在過(guò)程S中:運(yùn)算x=t/y后，x=1.25 ,圖形表示;因此a的值就是1.25 ;運(yùn)算y=t Mod y后，y=1,圖形表示b和y存儲(chǔ)空間不同，則不影響b的值，則還是4,因此Print a,b的結(jié)果就是選擇 C答案。知識(shí)點(diǎn)11:1、菜單和鼠標(biāo)事件菜單編輯器的使用:注意：菜單中的標(biāo)題可以為空，但不論是第幾級(jí)菜單名稱必須唯一，且不能 為空。鼠標(biāo)事件(按下鼠標(biāo)鍵事件過(guò)程)主要事件有：Form_MouseDown、Form_MouseUp

28、 和 Form_MouseMove) 現(xiàn) 在以某個(gè)為例說(shuō)明：Private Sub Form_MouseDown(ButtonAs Integer, Shift As Integer, XAs Single, Y As Single)End Sub上述事件過(guò)程不僅使用在窗體上(Form_MouseDown),還可以使用于大多數(shù)控件上，包括命令按鈕(Command1_MouseDown)；文本框(Text1_MouseDown)等。以上鼠標(biāo)事件過(guò)程的參數(shù)，含義如下：(1) Button有值1、2和4,分別表示按下左鍵、右鍵和中建；(2) Shift 表示Shift、Ctrl和Alt鍵的狀態(tài)，其值

29、分別是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 ThenPopUpmenuEnd IfEnd Sub運(yùn)行效果：File按下鼠標(biāo)左鍵通過(guò)PopUpmenu法彈出菜單File是一級(jí)菜單的名稱2、公共對(duì)話框（又稱通用對(duì)話框）通用對(duì)話框是我們考試中唯一一個(gè)控件箱中沒有的控件，需要我們自己添加的，添加的方法是在“工程菜單的部件項(xiàng)中選擇Microsoft Com

30、mon DialogControl 6.0 ”后，才會(huì)在控件箱中出現(xiàn)通用對(duì)話框圖標(biāo)通用對(duì)話框圖形打開通用對(duì)話睚21區(qū)直為冠圉（L）.臬函我的文檔我的電腦g 11111 111111口D盤._j MacronetiaProgram Fi g f _jrav20070525 a等線考試 n電制 二連綾劇SN注動(dòng)器-InitDir文件美型【過(guò)造黑）一Filter默認(rèn)文件名一反14的電我最近的文檔打開 取消I| J本場(chǎng)磁盤Q二7p| J國(guó)咽，網(wǎng)上都居根據(jù)以上圖形，相應(yīng)的程序代碼如下:Private Sub Ccmn)aiidl_= 0 And c idsk Then max - a(i)End IfI

31、f a(i) ( min Then irin = a(i)End If .smn - sum + a(i)Meat iEnd SubVisual Basic 程序設(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ù)值型讀寫操作九大問(wèn)題具體例子分析：一、求最大數(shù)、最小數(shù)、求和

32、以及求平均數(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 IntegerDim Sum as Integer, Avg As Single Sum=0For i= 1 To 10a(i)=Int(Rnd*90)+10Next iMax=a:Min=a(1)For i= 1 To 10If Maxa(i) ThenMin=a(i)End ifSum

33、=Sum+a(i)Next iAvg=Sum/10Print“最大數(shù)：” ；Max; “最小數(shù):End Sub二、求階層例題：求10!.Private Sub Command1_Click()Dim Sum As Long, i As IntegerSum=1產(chǎn)生1099之間的隨機(jī)整數(shù)假設(shè)最大數(shù)和最小數(shù)求最大數(shù)求最小數(shù)求和求平均數(shù)”;Min;和：；Sum;平均數(shù)：；AvgFor i= 1 To 10Sum=Sum*i10!= ;SumNext iPrintEnd Sub三、求最大公約數(shù) 例題：求M和N兩個(gè)數(shù)的最大公約數(shù)。Private Sub Command1_Click()Dim M As

34、Integer, N As Integer, R As Integer M=36:N=24DoR=M Mod NM=NN=RLoop While R0或 Loop Until R=0Print“M和N的最大公約數(shù)為：” ； MEnd 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 IntegerFor n = 100 To 200For i = 2 To n-1 n-1可以是n/2,也可以是 Sqr(n)形式If n Mod i

35、=0 Then Exit For Next iIf in-1 Thenj=j+1統(tǒng)計(jì)素?cái)?shù)個(gè)數(shù)Print n; If j Mod 5 =0 Then Print輸出 5 個(gè)數(shù)換行End IfNext nEnd Sub五、求水仙花數(shù)(拆數(shù)法)例題：求100999之間的所有水仙花數(shù)，并將所有水仙花數(shù)在文本框中顯示。所謂水仙花數(shù)：即 153=1A3+5A3+3A3條件成立。方法1:(數(shù)值型：使用運(yùn)算符Mod和)Private Sub Command1_Click()Dim i As Integer ,a As Integer ,b As Integer ,c As IntegerFor i = 100

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

37、,2,1)取十位數(shù)c= Val(Mid(Cstr(i),3,1)取個(gè)位數(shù)If i=aA3+bA3+cA3 ThenText1.Text=Text1.Text & i & Space(2)End IfNext iEnd Sub六、排序問(wèn)題例題：隨機(jī)產(chǎn)生10個(gè)兩位整數(shù)，并存入數(shù)據(jù)a中，然后將這10個(gè)元素從小到 大排序(或從大到小)，并將排序號(hào)的數(shù)組顯示在文本框中。方法1 ：選擇排序Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, j As Integer ,temp As IntegerFor i= 1 To 10a(i

38、)=Int(Rnd*90)+10產(chǎn)生1099之間的隨機(jī)整數(shù)Next iFor i= 1 To 9比較 n-1 輪For j = i+1 To 10每一輪比較幾次If a(i)a(j) Then從大到?。篴(i)a(j) Then Pointer=jNext jIf i Pointer Thentemp=a(i) a(i-a(j) a(j)=tempEnd IfNext i For i =1 To 10Text1.Text=Text1.Text & a(i) & space(2)Next iEnd Sub方法1:冒泡排序Private Sub Command1_Click()Dim a(10)

39、As Integer, i As Integer, j As Integer ,temp As IntegerFor i= 1 To 10 a(i)=Int(Rnd*90)+10產(chǎn)生1099之間的隨機(jī)整數(shù)Next iFor i= 1 To 9比較 n-1 輪For j = 1 To 10-i每一輪比較幾次If a(j)a(j+1) Then從大到?。篴(i)= A And c= a And c=s = s + c End If Next i Print s End Sub 3、統(tǒng)計(jì)每類字符的個(gè)數(shù) 例題：在文本框中輸入一個(gè)字符串，比如：A$m4Ch&*F13iy%p41H請(qǐng)分別統(tǒng)計(jì)出大寫字母、小

40、寫字母、數(shù)字字符和其他字符的個(gè)數(shù)。Private Sub Command1_Click()Dim n As Integer ,i As Integer ,c As StringDim n1 As Integer ,n2 As Integer ,n3 As Integer ,n4 As Integern=Len(Text1.Text )For i = 1 To nc=Mid(Text1.Text,i,1)Select Case cCase A To Zn1 = n1 + 1Case a To zn2 = n2 + 1Case 0 To 9n3 = n3 + 1Case Elsen4 = n4 +

41、 1End SelectNext iPrint大寫字母?jìng)€(gè)數(shù):”;n1;小寫字母?jìng)€(gè)數(shù)：；n2;數(shù)字字符個(gè)數(shù):”;n3;其他字符個(gè)數(shù):End Sub;n4八、矩陣（二維數(shù)組）45778010對(duì)比圖始,3)49553444,1)父4用四種矩陣的算法：（圖形表示）12 45 的乃56一岬 1057 / d gg16 28 55 34內(nèi)圈數(shù)據(jù)圖例題：有一個(gè)4行4列二維數(shù)組，現(xiàn)隨機(jī)生成16個(gè)兩位整數(shù)，并將它們存入到二維數(shù)組中，現(xiàn)根據(jù)以上四種圖形分別求主對(duì)角線、副對(duì)角線、外圈數(shù)據(jù)以及內(nèi)圈數(shù)據(jù)之和。第一種矩陣算法：(主對(duì)角線)Private Sub Command1_Click()Dim a(4,4) As Integer ,i As Integer ,j As IntegerDim sum As IntegerFor i = 1 To 4For j= 1 To 4a(i,j) = Int(Rnd*