VisualBasic程序設(shè)計(jì)課程學(xué)習(xí)指導(dǎo)書

鄭州大學(xué)現(xiàn)代遠(yuǎn)程教育《VisualBasic學(xué)習(xí)指導(dǎo)書柳宏川 編VisualBasic程序設(shè)計(jì)概述〔一〕本章學(xué)習(xí)目標(biāo)理解程序設(shè)計(jì)語言的概念，VB的功能和作用。嫻熟把握VisualBasic退出方法，學(xué)會(huì)使用IDE集成開發(fā)環(huán)境中標(biāo)題欄、菜單欄、工具欄和窗體窗口、屬性窗口、資源治理器窗口和代碼窗口，了解工具箱窗口的作用?！捕潮菊轮攸c(diǎn)、要點(diǎn)VB的啟動(dòng)和退出、工程的概念、VB集成開發(fā)環(huán)境的操作：窗口和工具欄的作用?！踩尘毩?xí)題退出VisualBasic的快捷鍵是 。Ctrl+Q B.Shift+QC.Alt+Q D.Ctrl+Alt+Q窗體設(shè)計(jì)器是用于設(shè)計(jì) 。A．應(yīng)用程序的界面 B.對(duì)象的屬性C．應(yīng)用程序的代碼 D.窗體的代碼啟動(dòng)VisualBasic后,VB為用戶建立的第一個(gè)窗體是 。A．Form1 B.FormC．窗體1 D.窗體啟動(dòng)VisualBasic后,VB為用戶建立的工程的名字是 。A．窗體1 B. 工程1C．窗體 D. 工程工程資源治理器窗口包含的文件類型有 種。B.2C．3 D.4假設(shè)VB環(huán)境中缺少某個(gè)窗口，一般應(yīng)從主菜單 的下拉菜單中找到相應(yīng)的激活命令。編輯 B.文件C．調(diào)試 D.視圖能夠通過標(biāo)準(zhǔn)工具欄翻開的窗口是 。A．代碼窗口 B.設(shè)計(jì)器窗口C．屬性窗口 D.窗體布局窗口-1-窗體文件的擴(kuò)展名 。A．.bas B. vbpC．.exe D. frm工程文件的擴(kuò)展名 。A． B. vbpC．.exe D. basVisualBasic的編程機(jī)制是 。面對(duì)過程 B.面對(duì)對(duì)象C．大事驅(qū)動(dòng) D.可視化VB可視化編程根底〔一〕本章學(xué)習(xí)目標(biāo)VBIDE用控件及對(duì)控件的大事編程，理解大事驅(qū)動(dòng)的思想。〔二〕本章重點(diǎn)、要點(diǎn)面對(duì)對(duì)象的有關(guān)名詞，使用VB創(chuàng)立一個(gè)應(yīng)用程序的全過程，各種窗口的使用，根本控件以及方法、屬性的使用。〔三〕練習(xí)題使用VB建立一個(gè)應(yīng)用軟件的全過程有哪些步驟？。保存VB文件，至少要保存幾個(gè)文件？應(yīng)先保存什么文件？工程文件，窗體文件，標(biāo)準(zhǔn)模塊文件，類模塊文件的文件名的擴(kuò)展名分別是什么？用代碼對(duì)窗體中的控件設(shè)置屬性值，這些代碼應(yīng)當(dāng)放在什么大事中？運(yùn)行程序有幾種方法？各是什么？從代碼窗口返回到設(shè)計(jì)窗體窗口〔VB集成開發(fā)環(huán)境〕有幾種方法？7．輸入代碼遺忘屬性值時(shí)怎么辦？8．在代碼窗口輸入代碼時(shí)，輸入控件的名稱及圓點(diǎn)后，消滅下拉列表后，如何輸入方法或?qū)傩?？窗體、標(biāo)簽、命令按鈕、文本框的默認(rèn)屬性分別是什么？在輸入代碼時(shí)，如何附屬性列表和方法列表中快速輸入屬性及方法？-2-VB語言根底〔一〕本章學(xué)習(xí)目標(biāo)本章是VB編程的根本要求，肯定要嫻熟把握根本數(shù)據(jù)類型、常量、變量、運(yùn)算符、表達(dá)式等根本概念和規(guī)章。學(xué)會(huì)并能運(yùn)用一些常用函數(shù)?！捕潮菊轮攸c(diǎn)、要點(diǎn)編寫VB程序的根本要求，記住并嫻熟把握根本數(shù)據(jù)類型及對(duì)應(yīng)的關(guān)鍵字，常量VB表達(dá)式的規(guī)章。一些常用的內(nèi)部函數(shù)要學(xué)會(huì)使用?！踩尘毩?xí)題VB假設(shè)期望使用變量x765432.123456，應(yīng)當(dāng)將變量x聲明為何種類型？VBVBVB算術(shù)表達(dá)式a/(b+c/(d+e/Sqr(f)))的數(shù)學(xué)表達(dá)式是什么？函數(shù)Int(Rnd(0)*10)屬于哪個(gè)范圍內(nèi)的整數(shù)？挨次構(gòu)造的特點(diǎn)是什么？RemTabSpace兩個(gè)函數(shù)的區(qū)分？IntFix兩個(gè)函數(shù)的區(qū)分？VB掌握構(gòu)造〔一〕本章學(xué)習(xí)目標(biāo)本章主要表達(dá)VB的三種根本語句構(gòu)造：挨次構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造。這是VB〔包括各種變化〕，能準(zhǔn)確寫出各種語句構(gòu)造執(zhí)行的步驟，能嫻熟運(yùn)用該語句進(jìn)展編程，不消滅語法錯(cuò)誤。同時(shí)，應(yīng)嫻熟把握一些常用的算法。常用算法：累加、連乘、-3-求素?cái)?shù)、窮舉法、遞推法和最大、小值的求法等?！捕潮菊轮攸c(diǎn)、要點(diǎn)VB的挨次構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造的語法和常用算法。在VB中，實(shí)現(xiàn)循環(huán)的語句有三種：For-Next循環(huán)〔計(jì)數(shù)循環(huán)、While-Wend循環(huán)〔當(dāng)循環(huán)〕和Do-Loop〔Do循環(huán)〔三〕練習(xí)題通過鍵盤輸入假設(shè)干數(shù)，當(dāng)輸入0時(shí)完畢輸入0不參與計(jì)算均值。10.0001。輸出如下圖的圖形。30個(gè)字符，統(tǒng)計(jì)其中字符A，B，C〔不分大小寫〕,連續(xù)輸入三個(gè)字符Q，則完畢程序。5．1！+2！+3！+……+n！6．求出Fibonacci〔斐波那契〕數(shù)列的前20Fibonacci〔斐波那契〕數(shù)列的規(guī)律7．打印九九乘法表。輸入兩個(gè)正整數(shù)，求其最小公倍數(shù)和最大公約數(shù)。10003對(duì)于下面所示的分?jǐn)?shù)序列：

，3，5，8

，……2 3 5 8 13 211010-4-〔一〕本章學(xué)習(xí)目標(biāo)VBVB根本操作、能運(yùn)用數(shù)組進(jìn)展編程，把握一些常用算法的編程思想，學(xué)會(huì)選擇法和起泡排序法?！捕潮菊轮攸c(diǎn)、要點(diǎn)VBVBVBVB選擇法排序和起泡法排序，利用數(shù)組進(jìn)展編程的一些常用算法。〔三〕練習(xí)題將一個(gè)一維數(shù)組a(9)中各元素值按行的挨次放入二維數(shù)組b(3×3)。1040內(nèi)的整數(shù)，使用選擇排序法從小到大排序生成以下二維數(shù)組，且按以下格式輸出。34567891011121314151617184．a(chǎn)=(67,89,76,98,66),反序放置后，a=(66,98,76,89,67)有一個(gè)m×n矩陣，找出最大元素值及其最大元素值所在的行、列位置。將矩陣m(n,n)主對(duì)角線和次對(duì)角線上的元素置為1，其余元素置為0。將一個(gè)二維數(shù)組a〔m,n〕按行挨次將每個(gè)元素放入一個(gè)一維數(shù)組b(m×n)。將用inputbox有序。9．有一個(gè)無序數(shù)組，刪去與第一個(gè)元素值一樣的其他元素值，刪除后其他元素的值前移。第六章過程〔一〕本章學(xué)習(xí)目標(biāo)本章嫻熟把握函數(shù)過程的定義與調(diào)用，嫻熟把握子過程的定義與調(diào)用，學(xué)會(huì)參數(shù)傳遞方式：傳值和傳址，理解變量、過程的作用域，理解遞歸定義和思想，能運(yùn)用遞-5-歸進(jìn)展編程?！捕潮菊轮攸c(diǎn)、要點(diǎn)函數(shù)過程和子過程的定義與調(diào)用，參數(shù)的傳遞方式：傳值和傳址，變量、過程的作用域，遞歸等概念?！踩尘毩?xí)題函數(shù)過程有什么缺乏？子過程與函數(shù)過程區(qū)分有哪些？函數(shù)的參數(shù)傳遞時(shí)，什么是傳址方式？函數(shù)的參數(shù)傳遞時(shí)，什么是傳值方式什么是變量、過程的作用域？過程的作用域有哪幾個(gè)級(jí)別？其對(duì)應(yīng)的關(guān)鍵字是什么？在VB什么是遞歸？請(qǐng)舉例說明。設(shè)計(jì)遞歸時(shí)應(yīng)遵循哪些原則？〔一〕本章學(xué)習(xí)目標(biāo)理解控件的作用。能運(yùn)用常用控件進(jìn)展編程?！捕潮菊轮攸c(diǎn)、要點(diǎn)VBActiveX標(biāo)準(zhǔn)控件(也稱內(nèi)部控件)，VB20個(gè)，既不能添加，也不能刪除。這些控件由VB.exeAcitveXOLEAcitveXAcitveX部件是可以重復(fù)使用的編程代碼和數(shù)據(jù)，是由用AcitveX對(duì)象所組成。AcitveXAcitveXAcitveXDLL、AcitveXEXE和AcitveX文檔。AcitveX.OCXWindowssystem中。使用AcitveX控件之前必需加載。大多數(shù)AcitveX控件的屬性可以簡潔地在其屬性頁中設(shè)置?？刹迦雽?duì)象是指Windows應(yīng)用程序的對(duì)象，也可以添加到工具箱中，具有與標(biāo)準(zhǔn)控件-6-類似的屬性，可以同標(biāo)準(zhǔn)控件一樣使用。SlideProgressBar控件、UpDownAnimationSSTab〔三〕練習(xí)題VB框架有什么作用？列表框的作用是什么？組合框有哪幾種類型？時(shí)鐘控件的作用如何？鼠標(biāo)大事有哪些？鍵盤大事有哪些？各自的作用如何？Animation怎樣設(shè)置鼠標(biāo)光標(biāo)的外形?SSTab控件的Click〔一〕本章學(xué)習(xí)目標(biāo)學(xué)會(huì)文件的概念，學(xué)會(huì)文件的作用，學(xué)會(huì)文件的分類，嫻熟把握文件的讀寫操作方法、了解并能運(yùn)用常用的文件操作語句和函數(shù)。嫻熟把握用文件進(jìn)展數(shù)據(jù)存儲(chǔ)的方法?！捕潮菊轮攸c(diǎn)、要點(diǎn)文件的概念，文件的作用，文件的分類，文件的讀寫操作方法、常用的文件操作語句和函數(shù)?！踩尘毩?xí)題什么是文件？依據(jù)訪問模式，文件可分為哪些種類？請(qǐng)說出其特點(diǎn)。假設(shè)要對(duì)文件進(jìn)展訪問，需要經(jīng)過哪幾個(gè)步驟？翻開一個(gè)挨次文件時(shí)，有哪幾種翻開的模式？都有什么作用？讀挨次文件時(shí)，有哪幾種命令可以使用？命令的格式和作用各是什么？LOFEOF都有什么作用？-7-．有一個(gè)數(shù)據(jù)文件 data.dat，請(qǐng)編寫程序?qū)ata.dat中的數(shù)據(jù)復(fù)制到文件student.dat中去。一個(gè)學(xué)生信息的文本文件為student.dat，學(xué)生信息包括：姓名〔字符型，專業(yè)〔字符型，年齡〔整型，分?jǐn)?shù)〔整型編寫程序，找出其中分?jǐn)?shù)最高的和分?jǐn)?shù)最低的學(xué)生并輸出其記錄到文件HL.TXT中去。9．一個(gè)學(xué)生信息的文本文件為student.dat，學(xué)生信息包括：姓名〔字符型，專業(yè)〔字符型，年齡〔整型，分?jǐn)?shù)〔整型編寫程序，統(tǒng)計(jì)出其中不及格的學(xué)生人數(shù)并輸出。10．一個(gè)學(xué)生信息的文本文件為student.dat，學(xué)生信息包括：姓名〔字符型，專業(yè)〔字符型，年齡〔整型，分?jǐn)?shù)〔整型〕編寫程序，查找姓名為“王軍”的學(xué)生并輸出其記錄。-8-參考答案VisualBasic程序設(shè)計(jì)概述1.C 2.A 3.A 4.B 5.D 6.D 7.C 8.D 9.B 10.CVB可視化編程根底具體過程如下在窗體上建立用戶窗口〔界面〕對(duì)象。分別對(duì)對(duì)象設(shè)置屬性。分別對(duì)對(duì)象大事的過程編程且完成代碼輸入。運(yùn)行程序和調(diào)試程序。保存程序。2個(gè)文件，先保存窗體文件，后保存工程文件。3．.vbp,.frm,..bas,.應(yīng)當(dāng)放在窗體裝入〔Form_Load〕大事中/方法三是直接按F5鍵。至少5種方法：點(diǎn)擊窗體窗口；選擇菜單欄的view\object;shift+F7;點(diǎn)擊資源治理器中的窗體按鈕；單擊工程資源治理器中的窗體名稱〔form。7．在代碼窗口輸入代碼時(shí)，控件的名稱及圓點(diǎn)輸入后，系統(tǒng)自動(dòng)消滅屬性及方法的下拉列表，可以幫助使用者快速輸入。8．輸入方法或者屬性關(guān)鍵字的首字母進(jìn)展初選，再用鼠標(biāo)或者光標(biāo)鍵細(xì)選，然后雙擊鼠標(biāo)左鍵或者單擊空格鍵。9caption、caption、text和picture。10．可以先輸入屬性或方法的首字母，然后找到需要的屬性及方法并選擇，用鼠標(biāo)雙擊或擊空格鍵即可完成輸入。-9-VB語言根底VB6.013〔數(shù)值、可變類型〔字符。變量的數(shù)據(jù)類型有：數(shù)值型〔整型、長整型、單精度浮點(diǎn)型、雙精度浮點(diǎn)型、貨幣型和字節(jié)型、字符串〔變長字符串和定長字符串、布爾型、日期型、對(duì)象型、可變數(shù)據(jù)類型〔數(shù)值和字符。常量的數(shù)據(jù)類型有：字符串常量、數(shù)值常量〔整型、長整型、單精度浮點(diǎn)型、雙精度浮點(diǎn)型、貨幣型和字節(jié)型、布爾常量、日期常量。應(yīng)當(dāng)使用雙精度數(shù)Double類型。VB5達(dá)式和日期表達(dá)式，VB在VB中，當(dāng)使用聲明語句建立一個(gè)變量后，系統(tǒng)自動(dòng)將數(shù)值類型的變量賦初值0，變〔“變量被初始化為Empty。將布爾型的變量初始化為False。a寫成的數(shù)學(xué)表達(dá)式為b cfd ef6.(0,10)挨次構(gòu)造是一種線性構(gòu)造，在這種構(gòu)造中，各操作塊依據(jù)各自某種挨次依次執(zhí)行。RemRem非要使用Rem命令將注釋語句寫在某條語句后，則需在Rem前使用英文“:”號(hào)；而單撇號(hào)沒有上述限制。Tab函數(shù)是確定定位函數(shù)，總是從左邊界開頭；Space函數(shù)能從當(dāng)前輸出位置起輸出假設(shè)干空格〔形成一段空距。Fix(x)〔符號(hào)不變〕，如：Fix(9.1)=Fix(9.9)=9，F(xiàn)ix(-9.1)=Fix(-9.9)=-9；而Int(x)函數(shù)返回的是不超過x的最大整數(shù)，如：Int(9.1)=Int(9.9)=9，Int(-9.1)=Int(-9.9)=-10。VB掌握構(gòu)造1．

PrivateSubCommand2_ClickDimSumAsSingle,CountAsInteger,ValAsSingleSum=0Count=-1Val=1WhileVal<>0Val=InputBox(“請(qǐng)輸入一個(gè)數(shù):“&Chr(13)&Chr(10)&0Sum=Sum+ValCount=Count+1WendIfCount<>0ThenPrint“While-Wend循環(huán):“,“共輸入了“;Count;Sum/CountEndIfEndSub2．PrivateSubForm_ClickDimNasInteger,SumasSingle,TermasSingleN=1Sum=0DoTerm=1/(N*N)Sum=Sum+TermN=N+2LoopUntilTerm<0.0001Print“運(yùn)算結(jié)果為:“;SumPrint“最終一項(xiàng)的值為:“;TermEndSub3．PrivateSubCommand1_ClickPrintTab(18);“雙循環(huán)的結(jié)果“Fori=1To10PrintTab(25-i);Forj=1To2*i-1Print“*“;NextjPrintNextiEndSub思考：①代碼段中倒數(shù)第三行的語句Print②語句PrintTab(25-i)25PrivateSubCommand2_ClickPrintTab(18);“單循環(huán)的結(jié)果“Fori=1To10PrintTab(25-i);String(2*i-1,“*“)-11-NextiEndSub雙循環(huán)方式中的內(nèi)循環(huán)被字符串函數(shù)String(2*i-1,“*“串函數(shù)，假設(shè)能嫻熟把握，對(duì)程序設(shè)計(jì)具有很大的幫助。4．PrivateSubCommand1_ClickDimACountAsInteger,BCountAsInteger,DimCCountAsInteger,QCountAsIntegerDimCHAsString*1ACount=0BCount=0CCount=0QCount=0ForI=1To30CH=InputBox(“請(qǐng)輸入一個(gè)字符!“&Chr(13)&Chr(10)+“連續(xù)輸入三個(gè)字Q,可完畢程序“,“字符統(tǒng)計(jì)“)CH=UCase(CH)IfCH=“Q“ThenQCount=QCount+1ElseQCount=0IfQCount=3ThenMsgBox“連續(xù)輸入了三個(gè)字符Q,完畢輸入“,,“留意“ExitForEndIfSelectCaseCHCase“A“ACount=ACount+1Case“B“BCount=BCount+1Case“C“CCount=CCount+1EndSelectNextIText1.Text=ACount:Text2.Text=BCount:Text3.Text=CCountEndSub5．PrivateSubForm_ClickDimNAsInteger,IAsIntegerN=InputBox(“請(qǐng)輸入一個(gè)數(shù)正整數(shù)N：“)factorial=1Sum=0ForI=1ToNfactorial=factorial*I-12-Sum=Sum+factorialNextIPrint“小于自然數(shù)“;N;“的自然數(shù)階乘之和為：“,SumEndSub6．PrivateSubForm_Clicka=0b=1Printa,b,Fori=1To9a=a+bb=a+bPrinta,b,IfiMod2=1ThenPrintNextiEndSub運(yùn)行結(jié)果見圖：7．PrivateSubForm_ClickFori=1To9Forj=1ToiPrintTab(11*(j-1));j;“*“;i;“=“;Str(i*j);NextjPrintNextiEndSub運(yùn)行結(jié)果如以下圖所示：-13-8．編寫了兩個(gè)按扭的大事程序?！扒笞畲蠊s數(shù)”按扭的過程為：DimAAsInteger,BAsInteger,NAsInteger,MAsInteger,RAsIntegerPrivateSubCommand1_ClickM=Val(Text1.Text)N=Val(Text2.Text)A=MB=NIfN=0ThenExitSubR=MModNDoWhileR<>0M=NN=RR=MModNLoopLabel3.Caption=NEndSub“求最小公倍數(shù)”按扭的過程為：PrivateSubCommand2_ClickIfN<>0ThenLabel4.Caption=A*B/NEndSub運(yùn)行界面可參閱圖。-14-求出最大公約數(shù)前方可按“求最小公倍數(shù)”的按扭。9．窗體的ClickPrivateSubForm_Clickn=0Fori=3To1000Step2prime=1x=2m=Int(Sqr(i))Whilex<=mAndprime=1IfiModx=0Thenprime=0Elsex=x+1EndIfWendIfprime=1AndiMod10=3Thenn=n+1IfnMod5=0ThenPrintiElsePrinti,EndIfEndIfNextiPrintPrint“10003n;“個(gè)“EndSub運(yùn)行結(jié)果見圖窗體的Click-15-PrivateSubForm_ClickSum=1/2x=1y=2Fori=2To10temp=xx=yy=x+tempSum=Sum+x/yNextiPrint10SumPrint10x;“/“;yEndSub說明：該數(shù)列的規(guī)律是：數(shù)列項(xiàng)的分子為其前一項(xiàng)的分母，分母為其前一項(xiàng)的分子與分母tem1．程序如下：OptionBase1PrivateSubForm_LoadDima,b(3,3)n=1a=Array(2,3,5,7,9,15,17,19,22)Fork=1To3Forj=1To3b(k,j)=a(n)Printb(k,j),n=n+1NextjPrintNextkEndSub2．OptionBase1PrivateSubForm_LoadDima%(10),k%,j%,i%RandomizeFork=1To10a(k)=Int(Rnd*40+1)NextFork=1To9-16-i=kForj=k+1To10Ifa(i)>a(j)Then i=j ‘保存位置，先不交換數(shù)據(jù)Nextjd=a(k):a(k)=a(i):a(i)=d ‘j循環(huán)完畢依據(jù)登記的位置交換數(shù)據(jù)Printa(k);NextkPrinta(10)EndSub3．方法一：OptionBase1PrivateSubForm_LoadDimm&(4,4),i%，j%Fori=1To4Forj=1To4m(i,j)=(i-1)*4+j+2PrintSpc(5-Len(Str(m(i,j))));m(i,j);Next jPrintNextiEndSub方法二：OptionBase1PrivateSubForm_LoadDimm&(4,4),i%，j％，n%n=3Fori=1To4Forj=1To4m(i,j)=nPrintSpc(5-Len(Str(m(i,j))));m(i,j);n=n+1Next PrintNextiEndSub4．程序如下：OptionBase1PrivateSubForm_LoadDima,ba=Array(2,3,5,7,9,15,17,19,22)n=UBound(a)Fork=1Ton/2b=a(k)a(k)=a(n+1–k)a(n-k+1)=b-17-NextkFork=1TonPrinta(k);NextkEndSub5．程序如下：OptionBase1PrivateSubForm_LoadDima,m%,n%,i%,j%m=InputBox(“inputm“)n=InputBox(“inputn“)ReDima(m,n)RandomizeFori=1TomForj=1Tona(i,j)=Int(Rnd*100)Printa(i,j);NextjPrintNextiMax=a(1,1)h=1:l=1Fori=1TomForj=1TonIf Max<a(i,j)ThenH=i:l=jEndIfNextjNextiPrinta(h,l);h,lEndSub6．程序如下：OptionBase1PrivateSubForm_LoadDima%,m%,i%,j%m=InputBox(“inputm“)ReDima(m,m)Fori=1Toma(i,i)=1a(i,m-i+1)=1NextiFori=1TomForj=1TomPrinta(i,j);-18-NextjPrintNextiEndSub7．程序如下：OptionBase1PrivateSubForm_LoadDima%(2,4),b%(8),i%,j%,n%n=1Fori=1To2Forj=1To4a(i,j)=InputBox(“inputnumber“)b(n)=a(i,j)n=n+1NextjNextiFori=1To8Printb(i);NextiEndSub8．程序如下：ptionBase1PrivateSubForm_LoadDima,i%,j%,k%,n%a=Array(53,59,67,89,90,95)n=(UBound(a)+1)ReDimPreservea(n)k=InputBox(“iuputx“)Fori=1Ton-1Ifk<a(i)ThenExitForNextiForj=nToi+1Step-1a(j)=a(j-1)Nextja(i)=kFori=1TonPrinta(i);NextiEndSub9．程序如下：OptionBase1PrivateSubForm_LoadDima,i%,j%,k%,n%,kk%a=Array(66,66,67,90,87,66,90,67,66)-19-n=UBound(a)i=2DoWhilei<nFork=iTonIfa(1)=a(k)Thenn=n-1 ”遇到一樣的數(shù)，總數(shù)則要削減一個(gè)ExitForEndIfNextkForj=kTon ”遇到一樣的數(shù)則刪除a(j)=a(j+1)Nextji=i+1LoopReDimPreservea(n) ”重定義數(shù)組Fori=1Ton ”輸出結(jié)果Printa(i);NextiEndSub第六章過程1．當(dāng)有以下二點(diǎn)時(shí)，用函數(shù)不便利：不是為了獲得某個(gè)函數(shù)值，而是為了某種功能的處理。要獲得多個(gè)結(jié)果。2．函數(shù)過程名有值，有類型，在函數(shù)體內(nèi)至少賦值一次；子過程名無值，無類型，在子過程體內(nèi)不能對(duì)子過程名賦值；調(diào)用時(shí)，子過程調(diào)用是一句獨(dú)立的語句。函數(shù)過程不能作為單獨(dú)的語句加以調(diào)用，必需參與表達(dá)式運(yùn)算。一般當(dāng)過程有一個(gè)函數(shù)值，使用函數(shù)過程較直觀；反之假設(shè)過程無返回值，或有多個(gè)返回值，使用子過程較直觀。3．傳址：形參得到的是實(shí)參的地址，當(dāng)形參值的轉(zhuǎn)變同時(shí)也轉(zhuǎn)變實(shí)參的值。4．傳值：形參得到的是實(shí)參的值，形參值的轉(zhuǎn)變不會(huì)影響實(shí)參的值。5．作用域：變量、過程隨所處的位置不同，可以被訪問的范圍。6．窗體/模塊級(jí)：加Private關(guān)鍵字的過程，只能被定義的窗體或模塊中的過程調(diào)用。-20-全局級(jí)：加Public關(guān)鍵字〔缺省〕的過程，可供該應(yīng)用程序的全部窗體和全部標(biāo)準(zhǔn)模塊中的過程調(diào)用。7．局部變量：在過程內(nèi)聲明的變量，只能在本過程中使用。窗體/DimPrivate語句聲明的變量,可被本窗體/模塊的任何過程訪問。全局變量：在“通用聲明”段中用Public語句聲明的變量，可被本應(yīng)用程序的任何過程或函數(shù)訪問。用自身的構(gòu)造來描述自身就稱為“遞歸n?。絥－1－1！＝n－〕〔20！19．遞歸過程中有終止的條件和終止時(shí)的值或某種操作；每遞歸調(diào)用一次，其中的參數(shù)要向終止方向收斂。VBActiveX每個(gè)窗體中可能會(huì)存在很多控件，為了將控件適當(dāng)?shù)匕垂δ芊纸M，可以使用框架將某些控件組合在一起，對(duì)一個(gè)窗體中的各種功能進(jìn)展分類，以便于用戶識(shí)別。當(dāng)用框架將同一個(gè)窗體上的單項(xiàng)選擇按鈕分組后，每一組單項(xiàng)選擇按鈕都是獨(dú)立的。列表框以列表形式顯示一系列工程，用戶可以從中選擇一個(gè)或者多個(gè)列表項(xiàng)。組合框的類型有：下拉式組合框〔Style屬性值為0、簡潔組合框〔屬性值為〕和下拉式列表框Style屬性值為。時(shí)鐘控件是一種可按肯定時(shí)間間隔觸發(fā)大事的控件，通常用于檢查系統(tǒng)時(shí)鐘，確定是否執(zhí)行某項(xiàng)任務(wù)。運(yùn)行時(shí)，時(shí)鐘控件不行見。鼠標(biāo)大事有Click、Dblclick、MouseDown、MouseUp和MouseMove。鍵盤大事有KeyPressKeyUpKeyDownKeyUp和KeyDownKeyPressKeyUpKeyDownKeyPress能鍵、編輯鍵和箭頭鍵。KeyPressASCIIAnimationAVIAVI鼠標(biāo)光標(biāo)的外形通過MousePointer屬性來設(shè)置，該屬性可以在屬性窗口中設(shè)置，也可以在程序代碼中設(shè)置。MousePointer0～15。SSTabSSTabClick其參數(shù)previoustab標(biāo)識(shí)從前為活動(dòng)的選項(xiàng)卡。另外，在當(dāng)前活動(dòng)的選項(xiàng)卡上單擊不會(huì)觸Click1．文件是存儲(chǔ)在外部介質(zhì)上數(shù)據(jù)的集合。-21-2．文件是記錄的集合?？煞譃橐韵氯N：挨次訪問模式：挨次文件，記錄可長可短；按挨次依次把記錄寫入文件；按挨次依次把記錄讀出來。隨機(jī)訪問模式：隨機(jī)文件，記錄的長度一樣；隨機(jī)文件可以直接訪問文件中的任意一個(gè)記錄，依據(jù)記錄號(hào)訪問。二進(jìn)制訪問模式：二進(jìn)制文件〔可認(rèn)為記錄長度為1。直接把二進(jìn)制碼存放在文件中。3．需要進(jìn)展三個(gè)步驟：翻開文件、對(duì)文件進(jìn)展操作和關(guān)閉文件。4．有三種翻開的模式可以選擇：OUTPUT：對(duì)文件進(jìn)展寫操作；INPUT：對(duì)文件進(jìn)展讀操作；APPEND：把數(shù)據(jù)追加到文件末尾。5．有三種命令語句可以使用：INPUT#文件號(hào),變量列表把讀出的每個(gè)數(shù)據(jù)項(xiàng)分別存放到所對(duì)應(yīng)的變量。LINEINPUT#文件號(hào),字符串變量讀一行到變量中，主要用來讀取文本文件。INPUT$(讀取字符數(shù),#文件號(hào))隨便讀取字符6．LOF(文件號(hào))：返回文件的長度(總字節(jié)數(shù))。EOF(文件號(hào))：返回讀寫位置。指針在文件尾時(shí)，EOF函數(shù)為True，否則為False。7．PrivateSubForm_LoadDimcharAsByteDimFileNum1,FileNum2asIntegerFileNum1=FreeFile ”翻開源文件Open“C:\DATA.DAT“ForBinaryAs#FileNum1FileNum2=FreeFile ”翻開目標(biāo)文件Open“C:\STUDENT.DAT“ForBinaryAs#FileNum2DoWhileNotEOF(FileNum1)Get#FileNum1,,char ”從源文件讀出一個(gè)字節(jié)Put#FileNum2,,char ”將一個(gè)字