VB經(jīng)典必考資料知識點(diǎn)總結(jié)

VisualBasic程序設(shè)計根底知識要點(diǎn)(概念分析篇)知識點(diǎn)1：在工程資源管理器窗口中可以包含：工程文件、窗體模塊文件、標(biāo)準(zhǔn)模塊文件和類模塊文件(其中可以包含許多各種文件類型)。VisualBasic應(yīng)用程序可以以解釋方式執(zhí)行和編譯方式執(zhí)行。例題：(1)以下表達(dá)中錯誤的選項(xiàng)是AA．在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件。B．以.bas為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件。C．窗體文件包含該窗體及其控件的屬性。D．一個工程中可以有多個標(biāo)準(zhǔn)模塊文件。(2)以下表達(dá)中錯誤的選項(xiàng)是CA．翻開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件。B．保存VisualBasic程序時，應(yīng)分別保存窗體文件及工程文件。C．VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行。D．事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)。知識點(diǎn)2：窗體和各種控件的名稱(Name)是唯一的，用來標(biāo)識一個窗體或控件的。而窗體和控件的標(biāo)題是用來說明的，是可有可無的。各種控件之間有局部相同的屬性，并不是擁有所有屬性。控件有些屬性只能在屬性窗口中設(shè)置，但也有少數(shù)屬性只能在代碼狀態(tài)設(shè)置。Form1.Hide方法和UnloadForm1方法的區(qū)別：第一個方法窗體消失但仍存在于內(nèi)存中；第二個方法窗體消失并不存在于內(nèi)存中。例題：(1)以下表達(dá)中正確的選項(xiàng)是AA．窗體的Name屬性指定窗體的名稱，用來標(biāo)識一個窗體。B．窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本。C．可以在運(yùn)行期間改變對象的Name屬性的值。D．對象的Name屬性值可以為空。(2)以下表達(dá)中錯誤的選項(xiàng)是CA．VisualBasic是事件驅(qū)動型可視化編輯工具。B．VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語句。C．VisualBasic工具箱中的所有控件都具有Width和Height屬性。D．VisualBasic中控件的某些屬性只能在運(yùn)行時設(shè)置。知識點(diǎn)3：標(biāo)簽(Label1)：Autosize的True屬性可以自動調(diào)整標(biāo)簽的大小，而False屬性不能。文本框(Text1)：1、MaxLength屬性表示文本框所能容納的字符數(shù)。2、Passwordchar屬性表示口令輸入，可以是“*〞或“？〞等。設(shè)置文本框輸入字符為“*〞：Text1.Passwordchar="*",復(fù)原文本框字符：Text1.Passwordchar="",3、ScrollBars屬性是表示文本框有垂直或水平滾動條，但是需要和多行屬性MultiLine結(jié)合一起使用。4、SelLength屬性是表示文本框中被選中字符的個數(shù)：Text1.SelLength。SelStart屬性返回或設(shè)置文本框中所選擇的文本的起始點(diǎn)；如果沒有文本被選中，那么指出插入點(diǎn)的位置：Text1.SelStart。SelText屬性是表示文本框中被選中的字符：Text1.SelText。5、文本的主要事件是Change事件：(標(biāo)簽內(nèi)容隨文本框內(nèi)容變化而變化)PrivatesubText1_Change()Label1.caption=Text1.TextEndsub6、文本框的方法只有一個：Text1.SetFocus例題：(1)能夠獲得一個文本框中被選取文本的內(nèi)容的屬性是CA．TextB.SelLengthC.SelTextD.SelStrart(2)在窗體上畫一個文本框(其名稱為Text1)和標(biāo)簽(其名稱為Label1)。要求程序運(yùn)行后，如果在文本框中輸入字符，那么立即在標(biāo)簽中顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是AA．PrivateSubText1_Change()B.PrivateSubText1_Click()Label1.caption=Text1.TextLabel1.caption=Text1.TextEndSubEndSubC．PrivateSubLabel1_Change()D.PrivateSubLabel1_Click()Label1.caption=Text1.TextLabel1.caption=Text1.TextEndSub(3)命令按鈕(Command1):1、Default屬性：當(dāng)一個命令按鈕的Default屬性為True時，按回車鍵和單擊該命令按鈕的效果相同。2、Cancel屬性：當(dāng)一個命令按鈕的Cancel屬性為True時，按ESC鍵和單擊該命令按鈕的效果相同。(4)單項(xiàng)選擇按鈕和復(fù)選框(Option1和Check1)：1、單項(xiàng)選擇按鈕：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屬性是一個數(shù)組型屬性：List1.List(索引)，索引可以是數(shù)字0、1…,List1.listindex,變量i(List1.Text等同于List1.list(List1.listindex))。2、MultiSelect屬性：用來設(shè)置一次可以多項(xiàng)選擇的表項(xiàng)數(shù)。MultiSelect屬性值為0時，每次只能選擇一項(xiàng)；MultiSelect屬性值為1時，可以同時選擇多個工程；MultiSelect屬性值為2時，可以用輔助鍵Shift或Ctrl選擇多個工程。3、常用方法：a.AddItem方法表示添加的是一個工程，語法為：對象名.AddItem<添加內(nèi)容>b.RemoveItem方法表示通過刪除索引的方式刪除工程，語法為：對象名.RemoveItem<索引>索引可以是數(shù)字0、1…，List1.ListIndex，變量i。如果要刪除當(dāng)前被選中的工程，其代碼可寫成：對象名.RemoveItem對象名.List1.ListIndexc.Clear方法表示去除列表框中所有的內(nèi)容，語法為：對象名.Clear。(6)組合框(Combo1)：1、Style屬性：Style屬性值為0時，表示下拉式組合框；Style屬性值為1時，表示下簡單組合框；Style屬性值為2時，表示下拉式列表框。其他功能類似列表框(List1)。(7)圖片框和圖像框(Picture1和Image1):1、圖片框(Picture1)：Autosize屬性值為True時，表示圖片框大小隨圖片大小改變而改變；AutoSize屬性值為False時，表示圖片框只能局部顯示大圖片。2、圖像框(Image1)：Stretch屬性為True時，圖片大小隨圖像框的大小改變而改變；Stretch屬性為True時，圖像框的大小隨圖片大小的改變而改變。3、兩種圖形類型都可以按照下面這個方法加載圖片：Picture1.picture=LoadPicture(App.Path&"\圖片名稱.擴(kuò)展名")Image1.picture=LoadPicture(App.Path&"\圖片名稱.擴(kuò)展名")注：“圖片名稱〞前的“\〞不能省。如果要去除圖片：Picture1.Picture=LoadPicture("")Image1.Picture=LoadPicture("")注意:如果使用App.Path方法需要先保存好窗體文件和工程文件到考生文件夾中。(8)滾動條(HScroll1)：1、Max和Min屬性是分別表示滾動條的最大和最小刻度，刻度值用Value屬性值來表示：HScroll1.Value。2、LargeChange和SmallChange屬性是分別表示移動滾動條上的左右箭頭按鈕的移動量和移動滾動條上滾動框的移動量。3、Scroll和Change事件分別表示拖動滾動條上滾動框的操作和單擊滾動條上箭頭按鈕的操作。(9)計時器(Timer1)：1、Enabled屬性：Enabled屬性值為True時，表示計時器可以走動；Enabled屬性值為False時，表示計時器停止走動；2、Interval屬性：是表示計時器運(yùn)動的時間間隔，單位為毫秒。時間間隔假設(shè)為1秒，那么代碼為Timer1.Interval=1000。3、Enabled和Interval這兩個屬性一般情況下需要一起使用。4、計時器只有一個事件，即Timer，是指每經(jīng)過一個時間間隔(Interval)所觸發(fā)的事件。知識點(diǎn)4：(1)VisualBasic常用函數(shù)的使用方法：1、數(shù)學(xué)函數(shù)：★求平方根：Sqr(n)★求自然對數(shù)Log(n)lnnlog78=loge8/loge7(注意非e為底的對數(shù)需要如此轉(zhuǎn)換)★求以e為底的冪值，exexExp(x)1n>0★Sign(n)=0n=0★Rnd()-->X=Int(Rnd*(上界—下界+1))+下界(產(chǎn)生隨機(jī)整數(shù))，注意Rnd函數(shù)的取值范圍是[0，1)。如設(shè)取0~1000的隨機(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之前會多出一位。如果使用CStr(12.75)="12.75"這樣轉(zhuǎn)換12.75之前不會多出一位?！颲al(x)字符x轉(zhuǎn)換成數(shù)值，但x要一定是數(shù)字字符才行，Val(“12.75〞)=12.75,如果是含有其他字符Val("12.7ab")將無法轉(zhuǎn)換?！顲hr(x)返回以x為ASCII字符Chr(97)="a";Asc(x)給出字符x的ASCII代碼值A(chǔ)sc("A")=65三種類型ASCII代碼值轉(zhuǎn)換：Asc("0")~Asc("9")-48~57Asc("A")~Asc("Z")-65~90Asc("a")~Asc("z")-97~122特殊情況：Asc("ABC")=65只求第一個字符"A"的Ascii代碼值★注意Int(x)、Fix(x)與CInt(x)的區(qū)別Int(x)取小于等于x的最大整數(shù)當(dāng)x>0時，用法和Fix一樣；當(dāng)x<0時，Int(-12.3)=-13;Fix(x)將數(shù)值型數(shù)據(jù)x的小數(shù)局部舍去Fix(12.8)=12Fix(-12.5)=-12;CInt(x)將數(shù)值型數(shù)據(jù)x的小數(shù)局部四舍五入CInt(12.7)=13CInt(12.3)=12但是有特殊情況：x當(dāng)x是偶數(shù)，如CInt(-6.5)=-6CInt(x.5)=x+1當(dāng)x是奇數(shù)，如CInt(7.5)=7+1=83、字符函數(shù)★L(fēng)eft(x,n)從x字符串左邊起取n個字符Left("ABCDEFG",3)="ABC";Right(x,n)從x字符串右邊起取n個字符Right("ABCDEFG",3)="EFG"。Mid(x,n1,n2)從字符串x左邊第n1個位置開始向右起取n2個字符；Mid(x,n)從字符串x左邊第n個位置開始向右全部??；Mid("ABCDEFG",3,2)="CD"Mid("ABCDEFG",3)="CDEFG"。InStr(n,s1,s2)從字符串s1的第n個位置起查找s2在s1中位置，如果n省略，那么默認(rèn)從字符串s1的第1個位置起查找s2在s1中位置。InStr(2,"ABCDEFG","CD")=3知識點(diǎn)5：1、運(yùn)算符：★算術(shù)運(yùn)算符運(yùn)算符的優(yōu)先級：^>-->(*/)>\>Mod>(+--)★關(guān)系運(yùn)算符<<=>>==<>LikeIs運(yùn)算符優(yōu)先級相同★邏輯運(yùn)算符運(yùn)算符的優(yōu)先級：Not>And>Or>Xor〔異或〕>Eqv例題：(1)表達(dá)式4+5\6*7/8Mod9的值是BA．4B.5C.6D.7(2)a=3b=2c=1求Printa>b>c的結(jié)果？首先a>b的結(jié)果是True，然后再PrintTrue>c此時True需要轉(zhuǎn)換成-1再比擬，Print-1>1結(jié)果是False，所以整個輸出結(jié)果是False。知識點(diǎn)6：1、交互函數(shù)的使用：★InputBox函數(shù)：A=InputBox("提示信息","標(biāo)題信息","默認(rèn)值或輸入框的值")例題：(1)執(zhí)行以下語句后，將顯示輸入對話框，此時如果單擊“確定〞按鈕，那么變量StrInput的內(nèi)容是C。StrInput=InputBox("請輸入字符串","字符串對話框","字符串")A."請輸入字符串"B."字符串對話框"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]之間取值。比方：單擊“確定〞按鈕，A=1。例題：以上圖形所表示的函數(shù)表達(dá)式為：MsgBox"請輸入查詢的學(xué)生學(xué)號：",3+32+256,"學(xué)生根本信息查詢"知識點(diǎn)7：1、選擇結(jié)構(gòu)語句(If條件語句)：★單分支條件語句：格式：①If條件Then語句塊EndIf(稱If塊語句)②If條件Then只有一條語句(稱If條語句)★雙分支條件語句：格式：If條件Then語句塊1Else語句塊2EndIf★多分支條件語句If條件1Then語句塊1ElseIf條件2Then語句塊2。。。。。。Else語句塊nEndIf其中，條件可以是：關(guān)系表達(dá)式(a>5)、邏輯表達(dá)式(a>5Andc>4)、變量(i)或常數(shù)(0)。例題：(1)以下程序段的執(zhí)行結(jié)果為AX=5Y=-20IfNotx>0Thenx=y-3ElseY=x+3EndIfPrintx-y;y-xA.-33B.5-8C.3-3D.25-25以上題中的“條件〞主要是邏輯表達(dá)式。(2)以下程序段的執(zhí)行結(jié)果為BX=2Y=1Ifx*y<1Theny=y-1Elsey=-1Printy-x>0A.TrueB.FalseC.-1D.1以上題中的“條件〞主要是關(guān)系表達(dá)式。(3)以下程序段的執(zhí)行結(jié)果為CDimxAsIntegerIfxThenPrintxElsePrintx-1A.1B.0C.-1D.不確定以上題中的“條件〞主要是變量。2、選擇結(jié)構(gòu)語句(SelectCase語句)：SelectCase測試表達(dá)式Case表達(dá)式列表1語句塊1Case表達(dá)式列表2語句塊2。。。。。。CaseElse語句塊nEndSelect注意：測試表達(dá)式的類型只能是數(shù)值型數(shù)據(jù)或字符型數(shù)據(jù)，表達(dá)式列表的值只要第一個符合測試表達(dá)式值的要求，就結(jié)束SelectCase語句；表達(dá)式列表可以是三種結(jié)構(gòu)或三種混合結(jié)構(gòu)：①、1To10②、1,3,5,6,7,8③、Is>10④、1,2,5,7,Is>10例題：(1)在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1和Text2的文本框，然后編寫如下事件過程：PrivateSubCommand1_Click()n=Text1.TextSelectCasenCase1T10X=10Case2,4,6X=20CaseIs<10X=30Case10X=40EndSelectText2.Text=xEndSub程序運(yùn)行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，那么在Text2中顯示的內(nèi)容是AA.10B.20C.30D.403、選擇結(jié)構(gòu)語句(IIF函數(shù))：變量=IIF(條件，參數(shù)1，參數(shù)2)其中，條件可以是：關(guān)系表達(dá)式(a>5)、邏輯表達(dá)式(a>5Andc>4)、變量(i)或常數(shù)(0)。執(zhí)行過程：條件成立，變量的值就是“參數(shù)1〞，否那么變量的值就是“參數(shù)2〞。例題：(1)設(shè)a=6,那么執(zhí)行語句：x=IIF(a>5,-1,0)后，x的值為DA.5B.6C.0D.-1知識點(diǎn)8：1、循環(huán)結(jié)構(gòu)①For循環(huán)變量=初值To終值Step步長循環(huán)體If條件Then語句ExitForEndIfNext循環(huán)變量注意：循環(huán)如果正常退出時(沒有執(zhí)行ExitFor語句)，那么循環(huán)變量必須要大于終值或等于終值+步長。DoDo循環(huán)體LoopWhile條件②DoWhile條件循環(huán)體LoopDo循環(huán)體Do循環(huán)體LoopUntil條件DoUntil條件循環(huán)體Loop注意：左邊上下兩種循環(huán)是先判斷條件后執(zhí)行循環(huán)體，右邊上下兩種循環(huán)是不管條件成立與否都至少執(zhí)行一次；While循環(huán)是條件成立執(zhí)行循環(huán)體，Until循環(huán)是條件不成立執(zhí)行循環(huán)體。XyzstuXyzstu111122331121123231123233(1)以下程序段的執(zhí)行結(jié)果為Bs=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3s=s+1Nextzt=t+1Nextyu=u+1NextxPrints;t;uA.3614B.1463C.1436D.1643分析：A組語句和B語句都在X循環(huán)內(nèi)，并且是并列的，所以可以先計算B組語句，A組語句暫時不算，這樣很容易求出u=u+1語句循環(huán)了三次，那么u=3；C組語句和D語句都在Y循環(huán)內(nèi)，并且是并列的，所以可以先計算D組語句，C組語句暫時不算，這樣也比擬容易求出t=t+1語句循環(huán)了六次，那么t=6；然后再結(jié)合答案很快就能得出答案是選B。知識點(diǎn)9：1、數(shù)組：①數(shù)組的概念★等級考試主要考一維數(shù)組、二維數(shù)組和三維數(shù)組(三維的只需知道數(shù)組中可以存儲多少數(shù)據(jù)即可)。數(shù)組的格式：a(2,3To7,-1To2)，那它的存儲空間大小計算：每一維用上界-下界+1計算，例如(2-0+1)*(7-3+1)*(2-(-1)+1)=3*5*4=60。★數(shù)組的下標(biāo)下界是根據(jù)語句OptionBasen來決定：當(dāng)n=0時，數(shù)組下標(biāo)下界是從0開始；當(dāng)n=1時，數(shù)組下標(biāo)下界是從1開始?！飻?shù)組分為：固定大小數(shù)組:Dima(10)AsInteger動態(tài)大小數(shù)組:Dima()AsIntegerRedima(10)★Array函數(shù)用法：為一個變體型變量創(chuàng)立一個數(shù)組。DimaasVarianta=Array(1,2,3,4,5)因此：a(0)=1a(1)=2a(2)=3a(3)=4a(4)=5★注意：如果數(shù)組被定義為以下三種類型，(1)數(shù)值型(2)字符型(3)邏輯型，那么它們初始化的數(shù)組元素數(shù)值分別為：0、空字符串和False。例題：(1)在窗體上畫一個命令按鈕(其Name屬性為Command1),然后編寫如下代碼：PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4Forj=1To4a(i,j)=(i-1)*3+jNextjNextiFori=3To4Forj=3To4Printa(j,i)NextjPrintNextiEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為D。A.69B.710C.811D.9127108119121013分析：對循環(huán)和數(shù)組結(jié)合的問題，往往要先看B組語句輸出結(jié)果是什么，然后根據(jù)B組語句輸出結(jié)果代入到A組語句中求結(jié)果。a(3,3)a(4,3)a(3,4)a(4,4)a(3,3)a(4,3)a(3,4)a(4,4)91210139121013知識點(diǎn)10：1、過程與函數(shù)：★過程與函數(shù)的參數(shù)類型有：實(shí)參和形參；傳遞方式有：值傳遞和地址傳遞?！镆韵鲁绦蛑校瑇,y為實(shí)參；a,b為形參注意：實(shí)參要與形參的類型、個數(shù)要相同。★在形參a,b之前如果加上關(guān)鍵字ByVal，那么就是按值傳遞；如果加上關(guān)鍵字ByRef或不加關(guān)鍵字，那么就是按地址傳遞?！镞^程調(diào)用方式有兩種：CallSwap(x,y)或Swapx,y(Swap是過程名)注意：只有地址傳遞方式才能實(shí)現(xiàn)交換功能，值傳遞方式x,y的值不變。當(dāng)有事件過程和通用過程一起運(yùn)行時，先執(zhí)行事件過程(Command_Click)。例題：(1)假定有如下的Sub過程：SubS(xAsSingle,ByValyasSingle)t=xx=t/yy=tModyEndSub在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：PrivateSubCommand1_Click()DimaAsSingle,bAsSinglea=5:b=4Sa,bPrinta,bEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為_____C_____。A.54B.11C.1.254D.1.251程序分析：首先形參x是地址傳遞方式，當(dāng)a傳遞給x時，因此a與x擁有一個共同存儲空間，圖形表示：；形參y是值傳遞方式，當(dāng)b傳遞給y時，因此b與y是兩個不同存儲空間，圖形表示：；那么在過程S中：運(yùn)算x=t/y后，x=1.25，圖形表示；因此a的值就是1.25；運(yùn)算y=tMody后，y=1，圖形表示:，因?yàn)榇藭rb和y存儲空間不同，那么不影響b的值，那么還是4,因此Printa,b的結(jié)果就是選擇C答案。知識點(diǎn)11：1、菜單和鼠標(biāo)事件★菜單編輯器的使用：注意：菜單中的標(biāo)題可以為空，但不管是第幾級菜單名稱必須唯一，且不能為空?！锸髽?biāo)事件(按下鼠標(biāo)鍵事件過程)主要事件有：Form_MouseDown、Form_MouseUp和Form_MouseMove?，F(xiàn)在以某個為例說明：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)…EndSub上述事件過程不僅使用在窗體上(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é)合使用)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,_YAsSingle)IfButton=1Then‘按下鼠標(biāo)左鍵PopUpmenuFile‘通過PopUpmenu方法彈出菜單EndIf‘File是一級菜單的名稱EndSub運(yùn)行效果：2、公共對話框(又稱通用對話框)★通用對話框是我們考試中唯一一個控件箱中沒有的控件，需要我們自己添加的，添加的方法是在“工程〞菜單的“部件〞項(xiàng)中選擇“MicrosoftCommonDialogControl6.0〞后，才會在控件箱中出現(xiàn)通用對話框圖標(biāo)?！锿ㄓ脤υ捒驁D形根據(jù)以上圖形，相應(yīng)的程序代碼如下：注意：CommonDialog.FilterIndex=索引(索引是從1開始)知識點(diǎn)12：1、文件文件包括三種：順序文件、隨機(jī)文件和二進(jìn)制文件順序訪問：文件中數(shù)據(jù)是以ASCII碼存儲的。隨機(jī)訪問：文件長度記錄是固定不變的，數(shù)據(jù)類型可以不同，數(shù)據(jù)以二進(jìn)制方式存儲在文件中，可以任意時候，任意地方訪問。二進(jìn)制訪問：必須知道數(shù)據(jù)是如何寫入文件的?！锶绻次募亲址愋停敲醋x寫文件如下所示：a.讀文件的格式：OpenApp.Path&"\文件名(In.txt)"ForInputAs#文件號(#1)DowhileNotEOF(文件號)Input#文件號,變量…LoopClose#文件號或：OpenApp.Path&"\文件名(In.txt)"ForInputAs#文件號(#1)DowhileNotEOF(文件號)LineInput#文件號,變量…LoopClose#文件號b.寫文件格式：OpenApp.Path&"\文件名(Out.txt)"ForOutput/AppendAs#文件號(#1)Print#文件號,變量Close#文件號注意：當(dāng)寫文件以O(shè)utput方式時，原來的文件內(nèi)容將被覆蓋；當(dāng)寫文件以Append方式時，新的文件內(nèi)容將被添加到文件尾部；★如果源文件是數(shù)值類型，那么讀寫文件如下所示：a.讀文件格式：一維數(shù)組：Dima(10)AsIntegerOpenApp.Path&"\文件名(In.txt)"ForInputAs#文件號(#1)Fori=1To10Input#文件號,a(i)…NextiClose#文件號二維數(shù)組：Dima(10，5)AsIntegerOpenApp.Path&"\文件名(In.txt)"ForInputAs#文件號(#1)Fori=1To10Forj=1To5Input#文件號,a(i,j)…NextjNextiClose#文件號b.寫文件格式：一維數(shù)組：OpenApp.Path&"\文件名(Out.txt)"ForOutput/AppendAs#文件號(#1)Fori=1To10Print#文件號,a(i)NextiClose#文件號二維數(shù)組：OpenApp.Path&"\文件名(Out.txt)"ForOutput/AppendAs#文件號(#1)Fori=1To10Forj=1To5Print#文件號,a(i,j)NextjNextiClose#文件號例題：(1)在考生文件夾下有文件in5.txt，文件中有字符串"0&1%$s#2&3!45u6ydf7ff@8|{9er"。請?jiān)贔orml的窗體上畫一個文本框，名稱為Text1，能顯示多行；再畫一個命令按鈕，名稱為Cl，標(biāo)題為“存盤〞。編寫適當(dāng)?shù)氖录^程，使得在加載窗體時，把in5.txt文件的內(nèi)容中數(shù)字字符顯示在文本框里。然后單擊“存盤〞按鈕，把文本框中的內(nèi)容存到文件out5.txt中。如下圖：根據(jù)題目要求，所編寫程序如下：(2)在考生文件下有文件in.txt，文件有10個數(shù)據(jù)：123521362821400300710990120500.請?jiān)贔orml的窗體上畫一個文本框，名稱為Text1，能顯示多行；再畫一個命令按鈕，名稱為Cl，標(biāo)題為“存盤〞。編寫適當(dāng)?shù)氖录^程，使得在加載窗體時，把in5.txt文件的內(nèi)容顯示在文本框里，然后統(tǒng)計10個數(shù)的最大數(shù)、最小數(shù)和它們的和，并把最大數(shù)、最小數(shù)和它們的和寫到“out.txt〞文件中。如下圖：根據(jù)題目要求，所編寫程序如下：

VisualBasic程序設(shè)計根底知識要點(diǎn)(程序設(shè)計篇)全國計算機(jī)等級考試中常用的程序編程局部：九大問題具體例子分析：一、求最大數(shù)、最小數(shù)、求和以及求平均數(shù)例題：隨機(jī)產(chǎn)生10個兩位整數(shù)，并存入數(shù)據(jù)a中，然后分別求10個元素中的最大數(shù)、最小數(shù)、求10個元素之和以及它們的平均數(shù)。PrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,MaxAsInteger,MinAsIntegerDimSumasInteger,AvgAsSingleSum=0Fori=1To10a(i)=Int(Rnd*90)+10’產(chǎn)生10—99之間的隨機(jī)整數(shù)NextiMax=a(1):Min=a(1)’假設(shè)最大數(shù)和最小數(shù)Fori=1To10IfMax<a(i)Then’求最大數(shù)Max=a(i)EndIfIfMin>a(i)Then’求最小數(shù)Min=a(i)EndifSum=Sum+a(i)’求和NextiAvg=Sum/10’求平均數(shù)Print“最大數(shù)：〞;Max;“最小數(shù)：〞;Min;“和：〞;Sum;“平均數(shù)：〞;AvgEndSub二、求階乘例題：求10！.PrivateSubCommand1_Click()DimSumAsLong,iAsIntegerSum=1Fori=1To10Sum=Sum*iNextiPrint“10!=〞;SumEndSub三、求最大公約數(shù)例題：求M和N兩個數(shù)的最大公約數(shù)。PrivateSubCommand1_Click()DimMAsInteger,NAsInteger,RAsIntegerM=36:N=24DoR=MModNM=NN=RLoopWhileR<>0’或LoopUntilR=0Print"M和N的最大公約數(shù)為："；MEndSub四、求素數(shù)例題：求100—200之間的所有素數(shù),并按每行5個元素格式輸入所有素數(shù)。PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerjAsIntegerForn=100To200Fori=2Ton-1’n-1可以是n/2,也可以是Sqr(n)形式IfnModi=0ThenExitForNextiIfi>n-1Thenj=j+1’統(tǒng)計素數(shù)個數(shù)Printn;IfjMod5=0ThenPrint’輸出5個數(shù)換行EndIfNextnEndSub判斷素數(shù)的函數(shù)過程：FunctionPrime(xAsInteger)AsBooleanDimIAsIntegerForI=2ToSqr(x)IfxModI=0ThenPrime=FalseEndIfNextIPrime=TrueEndFunction五、求水仙花數(shù)(拆數(shù)法)例題：求100—999之間的所有水仙花數(shù)，并將所有水仙花數(shù)在文本框中顯示。所謂水仙花數(shù)：即153=1^3+5^3+3^3條件成立。方法1：(數(shù)值型：使用運(yùn)算符Mod和\)PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerFori=100To999a=i\100’取百位數(shù)b=i\10Mod10’取十位數(shù)c=iMod10’取個位數(shù)Ifi=a^3+b^3+c^3ThenText1.Text=Text1.Text&i&Space(2)EndIfNextiEndSub方法2：(字符型：使用函數(shù)Mid、Val和CStr)PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsIntegerFori=100To999a=Val(Mid(CStr(i),1,1))’取百位數(shù)b=Val(Mid(CStr(i),2,1))’取十位數(shù)c=Val(Mid(CStr(i),3,1))’取個位數(shù)Ifi=a^3+b^3+c^3ThenText1.Text=Text1.Text&i&Space(2)EndIfNextiEndSub六、排序問題例題：隨機(jī)產(chǎn)生10個兩位整數(shù)，并存入數(shù)據(jù)a中，然后將這10個元素從小到大排序(或從大到小),并將排序號的數(shù)組顯示在文本框中。方法1：選擇排序PrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,jAsInteger,tempAsIntegerFori=1To10a(i)=Int(Rnd*90)+10’產(chǎn)生10—99之間的隨機(jī)整數(shù)NextiFori=1To9’比擬n-1輪Forj=i+1To10’每一輪比擬幾次Ifa(i)>a(j)Then’從大到?。篴(i)<a(j)temp=a(i)a(i)=a(j)a(j)=tempEndIfNextjNextiFori=1To10Text1.Text=Text1.Text&a(i)&space(2)NextiEndSub方法2：直接插入排序PrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,jAsInteger,tempAsIntegerDimPointerAsIntegerFori=1To10a(i)=Int(Rnd*90)+10’產(chǎn)生10—99之間的隨機(jī)整數(shù)NextiFori=1To9’比擬n-1輪Pointer=iForj=i+1To10’每一輪比擬幾次Ifa(Pointer)>a(j)ThenPointer=jNextjIfi<>PointerThentemp=a(i)a(i)=a(Pointer)a(Pointer)=tempEndIfNextiFori=1To10Text1.Text=Text1.Text&a(i)&space(2)NextiEndSub方法3：冒泡排序PrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,jAsInteger,tempAsIntegerFori=1To10a(i)=Int(Rnd*90)+10’產(chǎn)生10—99之間的隨機(jī)整數(shù)NextiFori=1To9’比擬n-1輪Forj=1To10-i’每一輪比擬幾次Ifa(j)>a(j+1)Then’從大到小：a(i)<a(j)temp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNextiFori=1To10Text1.Text=Text1.Text&a(i)&space(2)NextiEndSub七、字符操作1、字符串取反例題：在文本框中輸入一個字符串，比方：ABCDEFGH，然后反向輸出，結(jié)果為：HGFEDCBA。PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegern=Len(Text1.Text)Fori=nTo1Step-1'Fori=1Tons=s+Mid(Text1.Text,i,1)'s=Mid(Text1.Text,i,1)+sNextiPrintsEndSub2、判斷字符串中的某個字符是否為字母例題：在文本框中輸入一個字符串，比方：A$4Ch&*Fiy%41H，輸出字符串中的所有字母，結(jié)果為：AChFiyH。PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsInteger,cAsStringn=Len(Text1.Text)Fori=1Tonc=Mid(Text1.Text,i,1)Ifc>="A"Andc<="Z"Orc>="a"Andc<="z"Thens=s+cEndIfNextiPrintsEndSub3、統(tǒng)計每類字符的個數(shù)例題：在文本框中輸入一個字符串，比方：A$m4Ch&*F13iy%p41H，請分別統(tǒng)計出大寫字母、小寫字母、數(shù)字字符和其他字符的個數(shù)。PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,cAsStringDimn1AsInteger,n2AsInteger,n3AsInteger,n4AsIntegern=Len(Text1.Text)Fori=1Tonc=Mid(Text1.Text,i,1)SelectCasecCase"A"To"Z"n1=n1+1Case"a"To"z"n2=n2+1Case"0"To"9"n3=n3+1CaseElsen4=n4+1EndSelectNextiPrint"大寫字母個數(shù)："；n1；"小寫字母個數(shù)："；n2；"數(shù)字字符個數(shù)："；n3；"其他字符個數(shù)："；n4EndSub八、矩陣(二維數(shù)組)比照圖比照圖四種矩陣的算法：(圖形表示)圖①圖②圖③圖④例題：有一個4行4列二維數(shù)組，現(xiàn)隨機(jī)生成16個兩位整數(shù)，并將它們存入到二維數(shù)組中，現(xiàn)根據(jù)以上四種圖形分別求主對角線、副對角線、外圈數(shù)據(jù)以及內(nèi)圈數(shù)據(jù)之和。第一種矩陣算法：(主對角線)PrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimsumAsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*90)+10Nextj NextiFori=1To4Forj=1To4Ifi=jThen'行下標(biāo)和列下標(biāo)相同sum=sum+a(i,j)EndIfNextj NextiPrint"主對角線數(shù)據(jù)之和"；sumEndSub第二種矩陣算法：(副對角線)PrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimsumAsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*90)+10Nextj NextiFori=1To4Forj=1To4Ifi+j=5Then'行下標(biāo)和列下標(biāo)之和是一個定數(shù)sum=sum+a(i,j)EndIfNextj NextiPrint"副對角線數(shù)據(jù)之和"；sumEndSub第三種矩陣算法：(外圈數(shù)據(jù))PrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimsumAsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*90)+10Nextj NextiFori=1To4Forj=1To4Ifi=1Ori=4thensum1=sum1+a(i,j)Elseifj=1Orj=4Thensum1=sum1+a(i,j)EndifNextj NextiPrint"外圍數(shù)據(jù)之和"；sumEndSub第四種矩陣算法：(內(nèi)圈數(shù)據(jù))PrivateSubCommand1_Click()Dima(4,4)AsInteger,iAsInteger,jAsIntegerDimsum1AsInteger，sum2AsInteger,sumAsIntegerFori=1To4Forj=1To4a(i,j)=Int(Rnd*90)+10Nextj NextiFori=1To4Forj=1To4Ifi=1Ori=4thensum1=sum1+a(i,j)Elseifj=1Orj=4Thensum1=sum1+a(i,j)Endif'上句為求周邊元素和。sum=sum+a(i,j)'數(shù)組所有元素之和。Nextj NextiPrint"內(nèi)圍數(shù)據(jù)之和"；sum-sum1EndSub九、文件讀寫操作1、字符型讀寫數(shù)據(jù)見概念分析篇的知識點(diǎn)12有詳細(xì)說明。2、數(shù)值型讀寫數(shù)據(jù)見概念分析篇的知識點(diǎn)12有詳細(xì)說明。3、綜合例題：a.通用對話框和讀寫文件結(jié)合使用在考生文件夾下有一個工程文件sjt5.vbp，其窗體上有一個文本框，名稱為Textl，可以多行顯示；有一個名稱為CD1的通用對話框；還有三個命令按鈕，名稱分別為C1、C2、C3，標(biāo)題分別“翻開文件〞、“轉(zhuǎn)換〞、“存盤〞，如圖2-5所示。命令按鈕的功能是：“翻開文件〞——彈出翻開文件對話框，默認(rèn)翻開文件的類型“文本文件〞。選擇考生文件夾下的in5.txt文件后，該文件中的內(nèi)容顯示在Text1中；“轉(zhuǎn)換〞——把Text1中的所有小寫英文字母裝換成大寫；“存盤〞——把Text1中的內(nèi)容存入考生文件夾下的out5.dat文件中。在窗體中已經(jīng)給出了局部程序，要求：1)請去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。但不能修改程序中的其他局部，也不能修改控件的屬性。2)編寫“轉(zhuǎn)換〞按鈕的Click事件過程。最后把修改后的文件按原文件名存盤。注意：不得修改已有的程序和控件的屬性，必須對考生文件夾下的in5.txt文件進(jìn)行轉(zhuǎn)換，并把轉(zhuǎn)換結(jié)果通過“存盤〞按鈕存入考生文件夾下的out5.dat文件中。圖2-5運(yùn)行界面已有程序代碼如下：PrivateSubC1_Click()DimaAsStringCD1.Filter="所有文件|*.*|文本文件|*.txt|Word文件|*.doc"CD1.FilterIndex=2CD1.Action=1'翻開通用對話框，此句也可以為：CD1.ShowOpenOpenCD1.FileNameForInputAs#1'CD1.FileName是文件路徑Input#1,aClose#1Text1.Text=aEndSubPrivateSubC3_Click()CD1.FileName="out5.dat"CD1.Action=2'保存通用對話框，此句也可以為：CD1.ShowSaveOpenCD1.FileNameForOutputAs#1Print#1,Text1.TextClose#1EndSub考生需編寫的代碼：PrivateSubC2_Click()Text1.Text=Ucase(Text1.Text)'小寫字母轉(zhuǎn)換成大寫字母的過程EndSubb.輸入數(shù)據(jù)、計算與存盤在考生文件夾下有一個工程文件sjt5.vbp，請先裝入該工程文件，然后完成以下操作：在名稱為Form1的窗體上畫三個命令按鈕，其名稱分別為C1、C2和C3，標(biāo)題分別為“讀入數(shù)據(jù)〞、“計算〞和“存盤〞(如圖16-5)所示。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)〞按鈕，那么調(diào)用題目已提供的ReadData1和ReadData2過程讀入datain1.txt和datain2.txt文件中的各20個整數(shù)，分別放入Arr1和Arr2兩個數(shù)組中；如果單擊“計算〞按鈕，那么把兩個數(shù)組中對應(yīng)下標(biāo)的元素除以10并截尾取整后相乘，其結(jié)果放入第三個數(shù)組中(即：把第一個數(shù)組的第n個元素除以10并截尾取整，再把第二個數(shù)組的第n個元素除以10并截尾取整，兩者相乘后的結(jié)果作為第三個數(shù)組的第n個元素，這里的n為1、2、3……20)，最后計算第三個數(shù)組中各元素之和，并把所求得的和在窗體上顯示出來；如果單擊“存盤〞按鈕，那么調(diào)用題目中給出的WriteData過程將所求得的和存入考生文件夾的dataout.txt文件中。注意：考生不得修改窗體文件中已經(jīng)存在的程序，必須把求得的結(jié)果用“存盤〞按鈕存入考生文件夾下的dataout.txt文件中。最后把修改后的文件以原來的文件名存盤。圖16-5運(yùn)行界面已有程序代碼如下：OptionBase1DimArr1(20)AsIntegerDimArr2(20)AsIntegerSubReadData1()OpenApp.Path&"\"&"datain1.txt"ForInputAs#1Fori=1To20Input#1,Arr1(i)NextiClose#1EndSubSubReadData2()OpenApp.Path&"\"&"datain2.txt"ForInputAs#1Fori=1To20Input#1,Arr2(i)NextiClose#1EndSubSubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&"\"&FilenameForOutputAs#1Print#1,NumClose#1EndSub考生需編寫的程序代碼：DimsumAsIntegerPrivateSubC1_Click()ReadData1ReadData2EndSubPrivateSubC2_Click()DimiAsInteger,Arr3(20)AsIntegerFori=1To20Arr3(i)=Int(Arr1(i)/10)*Int(Arr2(i)/10)sum=sum+Arr3(i)NextiPrintsumEndSubPrivateSubC3_Click()WriteData"dataout.txt",sumEndSub注意：此題中的sum為模塊級變量。c.英文字母出現(xiàn)次數(shù)統(tǒng)計在考生文件夾下有一個工程文件sjt5.vbp，窗體上有二個標(biāo)題分別為“讀數(shù)據(jù)〞和“統(tǒng)計〞的命令按鈕和初始值為空、名稱分別為Text1和Text2的二個文本框，如圖12-5所示。程序功能如下：1)單擊“讀數(shù)據(jù)〞按鈕，那么將考生文件夾下in5.dat文件的內(nèi)容(該文件中僅含有字母和空格)顯示在Text1文本框中(此過程已給出)；2)在Text1文本框中選中內(nèi)容后，單擊“統(tǒng)計〞按鈕，那么統(tǒng)計選中文本中出現(xiàn)次數(shù)最多的字母(不區(qū)分大小寫)，以大寫形式在Text2文本框中顯示這些出現(xiàn)次數(shù)最多的字母。請將“統(tǒng)計〞按鈕Click事件過程中的注釋符去掉，把？改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：不得修改窗體文件中已經(jīng)存在的控件和程序，最后將程序按原文件名存盤。已有程序代碼如下：OptionBase1DimxAsString,max_nAsIntegerPrivateSubCommand1_Click()OpenApp.Path&"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1Text1.Text=sEndSubPrivateSubCommand2_Click()Dima(26)AsIntegersl=Text1.SelLengthst=Text1.SelTextText2=""Ifsl=0ThenMsgBox"請先選擇文本"ElseFori=1Toslc=Mid(st,i,1)Ifc<>""Thenn=Asc(UCase(c))-Asc("A")+1'出現(xiàn)某字母的編號a(n)=a(n)+1'出現(xiàn)某字母的次數(shù)EndIfNextimax_n=a(1):n=1'先設(shè)"A"與"a"字母的次數(shù)a(1)為最多Forj=2To26Ifmax_n<a(j)Thenmax_n=a(j)EndIfNextjFori=1To26Ifmax_n=a(i)ThenText2.Text=Text2.Text+""+Chr(Asc("A")+i-1)EndIfNextiEndIfEndSub注：本例中n=Asc(UCase(c))-Asc("A")+1是用來計算所取字母的編號，"A"與"a"均為1；"B"與"b"均為2；"C"與"c"均為3；其余類推。2023年3月全國計算機(jī)等級考試二級筆試試卷VisualBasic語言程序設(shè)計一、選擇題(1)以下表達(dá)中正確的選項(xiàng)是

A)棧是“先進(jìn)先出〞的線性表

B)隊(duì)列是“先進(jìn)先出〞的線性表

C)循環(huán)隊(duì)列是非線性結(jié)構(gòu)

D)有序性表既可以采用順序存儲結(jié)構(gòu)，也可以采用鏈?zhǔn)酱鎯Y(jié)構(gòu)

(2)支持子程序調(diào)用的數(shù)據(jù)結(jié)構(gòu)是

A)棧B)樹C)隊(duì)列D)二叉樹

(3)某二叉樹有5個度為2的結(jié)點(diǎn)，那么該二叉樹中的葉子結(jié)點(diǎn)數(shù)是

A)10B)8C)6D)4

(4)以下排序方法中，最壞情況下比擬次數(shù)最少的是

A)冒泡排序B)簡單項(xiàng)選擇擇排序C)直接插入排序D)堆排序

(5)軟件按功能可以分為：應(yīng)用軟件、系統(tǒng)軟件和支撐軟件(或工具軟件)。下面屬于應(yīng)用軟件的是

A)編譯軟件B)操作系統(tǒng)C)教務(wù)管理系統(tǒng)D)匯編程序

(6)下面表達(dá)中錯誤的選項(xiàng)是

A)軟件測試的目的是發(fā)現(xiàn)錯誤并改正錯誤

B)對被調(diào)試的程序進(jìn)行“錯誤定位〞是程序調(diào)試的必要步驟

C)程序調(diào)試通常也稱為Debug

D)軟件測試應(yīng)嚴(yán)格執(zhí)行測試方案，排除測試的隨意性

(7)耦合性和內(nèi)聚性是對模塊獨(dú)立性度量的兩個標(biāo)準(zhǔn)。以下表達(dá)中正確的選項(xiàng)是

A)提高耦合性降低內(nèi)聚性有利于提高模塊的獨(dú)立性

B)降低耦合性提高內(nèi)聚性有利于提高模塊的獨(dú)立性

C)耦合性是指一個模塊內(nèi)部各個元素間彼此結(jié)合的緊密程度

D)內(nèi)聚性是指模塊間互相連接的緊密程度

(8)數(shù)據(jù)庫應(yīng)用系統(tǒng)中的核心問題是

A)數(shù)據(jù)庫設(shè)計B)數(shù)據(jù)庫系統(tǒng)設(shè)計

C)數(shù)據(jù)庫維護(hù)D)數(shù)據(jù)庫管理員培訓(xùn)

(9)有兩個關(guān)系R，S如下：

RSABCa32b01c21ABa3b0c2由關(guān)系R通過運(yùn)算得到關(guān)系S，那么所使用的運(yùn)算為

A)選擇B)投影C)插入D)