綜合復(fù)習(xí)VB程序設(shè)計(jì)

第一VisualBasic一、填空1、VisualBasic是一種面向 2、在VB中工程文件的擴(kuò)展名是 命令，可選擇并添加ActiveX控件4、VisualBasic6.0用于開 二、選擇1VB工作模式的是（ 2、可視化編程的最大優(yōu)點(diǎn)是（）3、下列不能打開屬性窗口的操作是（B．按F4鍵 C．按Ctrl+T4、下列可以打開立即窗口的操作是（ 5、VisualBasic的編程機(jī)制是（A．可視 三、簡答4、VB第二單的VB程序設(shè)一、填空 屬性 7、VB中的每個(gè)對象（控件）都有一組特征，這組特征稱為 8、通常情況下，VB中一個(gè)工程主要包括如下四個(gè)文件：窗體文件、工程文件、類模塊文 二、選擇1、以下能夠觸本框Change事件的操作是（） 3、VB應(yīng)用程序的運(yùn)行模式是（） 4、任何控件都具有的屬性是（） 就定位在COMMAND1控件上，應(yīng)將COMMAND1控件的（）設(shè)置為0 7TEXT屬性進(jìn)行賦值從而改變了文本框的TEXT屬性值時(shí)，將觸本框的（）事件 8、在運(yùn)行時(shí)，按TAB鍵跳過了一個(gè)可以獲得焦點(diǎn)的控件（如文本框，則可能是因?yàn)椋ǎ〢．該控件的TABSTOP屬性值為TRUE B．該控件的TABINDEX屬性值為FALSEC．該控件的ENABLED屬性值為TRUE D．該控件的ENABLED屬性值為FALSETABSTOP屬性設(shè)置為 （*入的字符仍然顯示出來，而不顯示星號，原因可能是（）DLOCKED12、在運(yùn)行階段，要在文本框TEXT1獲得焦點(diǎn)時(shí)選中文本框中所有內(nèi)容，對應(yīng)的事件過程是（）A．PrivateSubText1_GotFocus()EndB．PrivateSubText1_LostFocus()EndC．PrivateSubText1_Change()EndD．PrivateSubText1_SetFocus()End中構(gòu)成其控件（對象）的三要素是（） 14、決定（Label）顯示的屬性是（） 15、命令按鈕的標(biāo)題文字由（）屬性來設(shè)置。 16、若要設(shè)置文本的顯示顏色，則可用（）屬性來實(shí)現(xiàn)。 17Click事件過程，則可設(shè)置該命令鈕對象的（）屬性Ture來實(shí)現(xiàn)。 三、簡答12VisuaBasic后，只創(chuàng)建了一個(gè)窗體，若此時(shí)保存，需要保存幾個(gè)文件？各是什么第三VB一、填空 4、在VB中，用 語句設(shè)定數(shù)組的下界，用 5、在代碼模塊中加入OptionExplicit的目的 6、functionaa(a1asdate,optionala2asboolean)assingle，寫出optional命令的作用 7、在VB中，我們用一個(gè)簡單 9、通用框（commondialog）屬activex控件，它可以顯示多個(gè)標(biāo)準(zhǔn)框，包括打開/另存為、字體、打印等框，若要顯示所有文件，則應(yīng)設(shè)置其屬性filter= 11、語句Forj=3To20Step3使循環(huán)體執(zhí)行 次 14、表達(dá)式10Mod6\4的值 15、表達(dá)式chr(Asc("a")+5)的值 16、VB中使用注釋有2種方法， 語句補(bǔ)充完整：DimJuzhen(_ _)asInteger。 按值傳遞和 。21、為了保證程序中必須對變量的強(qiáng)制性定義，需要在代碼模塊的部分加 23、表達(dá)式Mid("UniversityOfPetroleum",8,4)的值 常量 命令，可選擇并添加ActiveX控件28 是程序中VB停止執(zhí)行的地方 32、自字符串N1位開始向右取N2個(gè)字符，要使 函數(shù) 36、函數(shù)Abs(x)的功能 37、表達(dá)式3/6*5的值 二、選擇 4、語句DIMAA(3,4,5)中定義的數(shù)組有 PRINTB$ PrintFormat$(32548.5, AStatic類型，則該過程中的局部變量都是StaticB．Sub過程中不能嵌套定義SubC．Sub過程中可以嵌套調(diào)用Sub8、VisualBasic提供的OnErrorResumenext錯(cuò)誤陷阱語句表示（ A．當(dāng)發(fā)生錯(cuò)誤時(shí)，使程序轉(zhuǎn)跳到語句標(biāo)號為0的程序塊 B．ExitDo C．ExitSub 10、在VisualBasic中語句的續(xù)行號采用（ Fori=1toForj=5to1Step–1Printi*jNext則語句Printi*j的執(zhí)行次數(shù)是 12、從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè) 13TRUE賦值給一個(gè)整型變量，則整型變量的值為（ 14、下列敘述不正確的是（A．INT(-13.2)=- B．INT(-13.2)=C．INT(-13.2)=- D．INT(-13.2)=- 17、變量未賦值時(shí)，數(shù)值型變量的值為（） 18、下列語句中正確的是（） 20、以下（）程序段可以實(shí)施X、Y變量值的變換（） C．Z=X：X=Y：Y=ZD．Z=X：W=Y：Y=Z：X=Y B．SGN(-26)=-C．SGN(-26)= D．SGN(-26)=-22Str2的取值是（DimStr1,Str2asString TypeStudent AsstringnameAsStringageAsIntegerEnd針對上述定義，如下幾項(xiàng)用法正確的是（ B．DimsAsStudentC．DimsAsTypeStudent D．DimsAsType Form1、Form2mdlFunc中分別建立了自定義過程，其定義格式為：Form1中定義的過程：PrivateSubfrmfunction1()EndSubForm2PublicSubEndPublicSubEndC．frmfunction1form1中調(diào)用，而frmfunction2則可以在所有模塊或窗體中被直接25、VBDo……Loop結(jié)構(gòu)既可以構(gòu)成當(dāng)型循環(huán)，也可以構(gòu)成直到型循環(huán)，根據(jù)下面的代Dimi,nasIntegern=20i=1Printi;i=i+LoopUntiliA．當(dāng)型循環(huán)，20 B．直到型循環(huán)，10C．當(dāng)型循環(huán)，10 D．直到型循環(huán)，2026InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)值型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是（） 組進(jìn)行重新定義，以下關(guān)于VB中動態(tài)數(shù)組的敘述中不正確的是（）28VBVB（A．控 C．ADO控 D．ActiveX控294+56*78Mod9的值是（ 三、簡答9DimA(-3To5AsInteger11、數(shù)學(xué)式(2xa)(3yb對應(yīng)的VB122>3And4<=5Or4>4192.75*23.45四、讀程序PrivateSubForm_Click()score=Int(Rnd*10)+80SelectCasescoreCaseIs<60A$=Case60To69A$="D"Case70To79A$="C"Case80To89A$="B"CaseA$=EndSelectPrintA$EndPrivateSubCommand1_Click()ForI=1To4ForJ=0ToIPrintChr$(65+I);NextJNextIEndSubinsert(aAsSingle,ByValxAsSingle)Dimmasinteger,nasintegerDoWhilen<20Andx>a(n)Form=20-1TonStep–1NextmEndSubsubP(b()AsInteger)Fori=1To4NextiEndPrivateSubDima(1To4)AsIntegera(1)=5aaaFori=1To4Printa(i)NextiEndSubsele()DimnasIntegerDoWhilei>nPrintEndSubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegerIf(a>=b)and(a>=c)or(b>c)ThenPrintaPrintPrinta;b;cEndSubswap()DimxasIntegerDimyasIntegerDimzasIntegerPrintx;y;zPrintx,y,zEndSubselectPrint()DimaasIntegerDimbasIntegerDimcasIntegerIf(a>=b)and(a>c)ThenPrintaPrinta,b,cEnd五、編程命令按鈕。提示400400100Lable2（Commad180＞成績≥7070＞成績≥6060＞成績≥0，輸出不error信息。4916371＝33+73+13371是水仙花數(shù)。第四用一、填空 2、在VB中，最主要的兩種對象 來實(shí)現(xiàn) 屬性設(shè)置 事件 事件 PrivateSubCommand1_Click() PrintList1. EndPrivateSubList1_Click() EndPrivateSubCommand1_Click()ForI=1To5 NextIEndSubPrivateSubCommand1_Click()ForI=1to10X=InputBox(“請輸入的第”&I&“項(xiàng)內(nèi)容 NextIEndPrivateSubHscroll1. ()Label1.Caption=Hscroll1. EndPrivateSubHscroll1. ()Label1.Caption=Hscroll1. End14、列表框（ListBox） 、 。、16、keydown與keypress事件各有其參數(shù)，若需獲得用戶按下"a"還是"A"需用 17控 二、選擇 2、窗體Form1的Name屬性是Frm1，它的單擊事件過程名是（ 6（）A．一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶不能改變B．一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶可以改變7、下列說法正確的是（）B．按下一次DELD．按住ALT9、下列關(guān)于設(shè)置控件屬性的敘述正確的是（10、不可以通過下列（） B．在代碼中用CALL語句調(diào)C．在代碼中用SETFOCUS方 A．設(shè)置窗體的VISIBLE屬性 B．設(shè)置窗體的CAPTIONC．調(diào)用窗體的SHOW方法 D．設(shè)置窗體ENABLED屬性12、下面（）對象無CAPTION屬性 濾，后者使用（）屬性進(jìn)行該項(xiàng)設(shè)置。 A．chkBoy.Checked=true C．chkBoy.Selected=true D．chkBoy.Value=115、計(jì)時(shí)器（Timer）Timer事件，可以有規(guī)律地重復(fù)執(zhí)行一段程序，它用于設(shè)置兩次事件時(shí)間間隔的屬性是（） 16VB中窗體（Form）的說法中，不正確的描述為（A．執(zhí)行UnloadForm語句后，窗體Form，但仍在內(nèi)存17、關(guān)于滾動條控件，下面說法錯(cuò)誤的是（A．點(diǎn)擊滾動條的箭頭，可以改變它的value值，從而Change事DChange事件，而且是連續(xù)觸發(fā)的PriVateSubCommand1_C1ick()a$="softwareandhardware"Msgboxa$,b$,c$,1EndSub則在彈出的信息框的標(biāo)題欄中顯示的信息是（ 等問題，以下關(guān)于窗體的相關(guān)語句和方法的敘述中，錯(cuò)誤的是（）C．Hide 哪個(gè)選項(xiàng)用于表示拖動事件（） 三、簡答2changescroll事件有什么不同？5、假定有一個(gè)菜單項(xiàng)，名為Item，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰，應(yīng)使用什10、在KeyPress四、讀程序OptionBasePrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,126,87,48,498)m1=a(1)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenm1=a(j)m2=iEndIfNextiEndIfPrintm1PrintEndPrivateSubForm_load()d=0Fora=1To2Forb=1ToaForc=bTo5d=d+1NextcNextbNextaPrintdEndSub五、編程2Text1Text2ASCII碼值。要求在文Text2ASCII碼值，如下圖所示。六、程序分析填時(shí)可進(jìn)行“剪切“”和“粘貼”操設(shè)在窗體部分定義了一個(gè)變量str1，用于保存和剪切的內(nèi)容，請把剪切按鈕(btnCut)的Click事件補(bǔ)充完整。PrivateSubbtnCut_Click()End2123100DoWhile……Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這PrivateSubDimsum,countasIntegerDowhilecount<=100EndSubPrivateSubCommand1_Click()DimiAsIntegerDimsAss=txtname.Text&"Fori0ToList1.ListCount1Label3.Caption=sEnd4Timer1Form11110的隨機(jī)整數(shù)，請PrivateSubEndPrivateSub‘End第五一、填空1、文件按存取方式及其組成結(jié)構(gòu)可分為 文件、 文件和 2為了使文件列表框List1和 列表框Dir1之間能產(chǎn)生同步效果必須在 和文件列表框。二、選擇 三、簡答#四、編程第六形操一、填空1、使用 方法可在窗體中進(jìn)行文本的輸出，用 方法可畫圓， 2、 3、為了使一個(gè)Picture控件能自動根據(jù)裝入的調(diào)整大小，應(yīng)設(shè)置該控件的 二、選擇1、下列關(guān)于控件畫法的敘述錯(cuò)誤的是（件 三、簡答四、編程 下的文件列表，并能夠預(yù)覽選定的第七向一、填空 2、語句DIMTEMPASObject的作用 二、簡答第八面設(shè)一、簡答第九VisualBasic一、簡答二、編程23、5、7123m×n的實(shí)型矩陣A(m,n)45710788、858、23324位第一VisualBasic一、填空 二、選擇1、 2、 3、 5、第二單的VB程序設(shè)一、填空1、6、name和caption二、選擇1、2、3、4、5、6、7、8、9、10、12、13、14、15、16、17、18、第三VB2、4、optionbase、ubound、lbound6、表示a27、10、12、redimpreservearraya(ubound(arraya())+1)14、15、18、1to4,1to521、OptionExplicit2729、30、OptionExplicit36x37、二、選擇1、2、3、4、5、6、7、8、9、10、12、13、14、15、16、17、18、19、20、21、22、23、24、25、26、27、28、28、30、四、讀程序B246832 五、編程

PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption是閏年"'IfIfyearMod40AndyearMod1000ThenLabel2.Caption="是閏年"Label2.Caption不是閏年EndIfEndIfEndPrivateSubDimm,n,rAsm=Val(Text1.Textn=Val(Text2.TextIfm<0Orn<0 ‘若判斷為數(shù)據(jù)，Then子句輸出相應(yīng)信Label2.Caption ‘Elser=mModDoWhiler<>m=n=r=mModn‘nnLabel2.Caption最大公約數(shù)為：&nEndIfEndPrivateSubDimxAsx=Ifx>100Orx<0Text2.Text="error"ElseIfx<60ThenText2.Text不及格ElseIfx<70Text2.Text及格"ElseIfx<80ThenText2.Text中等"ElseIfx<90ThenText2.Text良好Text2.Text優(yōu)秀EndIfEndPrivateSubDimiAsShow'使輸出可見Form1.Font新宋體"Fori=9To16Step1Form1.FontSizeiPrinti;"號字型"NextiEndSubPrivateSubDima(1To11)AsSinglea11Dimi,jAsIntegerDimnumAsSingle'a(1)=3:a(2)=5:a(3)=7:a(4)=8:a(5)=a(6)=13:a(7)=16:a(8)=19:a(9)=a(10)='Fori=1ToLabel2.Caption=Label2.Caption&a(i)&",NextnumVal(Text1.Text)'把輸入的數(shù)隊(duì)列中Fori=10To1Step-Ifnum<a(i)a(i+1a(i 'a(i+1)=Exit 'EndNext'Fori=1ToLabel3.Caption=Label3.Caption&a(i)&",NextiEndSubOptionBasePrivateSubConstN= '常量NDima(N,N)AsIntegerDimi,j,TempAsInteger'Fori=1ToN Fori1NForj=1ToNa(i,j)=i*10+jNextjNext'PrintFori1To Fori1Forj=1ToPrinta(i,j);NextjNexti'Fori=1ToN 'For循環(huán)i從1變化到NForj=1Toi '交換Temp=a(i,j)a(i,j)=a(j,i)a(j,i)=NextjNexti'PrintFori=1ToN Fori1NForj=1ToNPrinta(i,j);NextjNextiEndSubPrivateSubDima(10)AsInteger,iAsIntegerDimsumAsInteger,aveAsIntegersum=Fori=1Toa(i)=Int(Rnd*101)sum=sum+a(i)Nextave=sum/10Printsum,aveEndSubPrivateSubDimi,j,k,FlowerAsIntegerFori=1ToForj=0ToFork=0ToFlower=i*100+j*10+ Floweri^3j^3k^3ThenPrintFlower是水仙花數(shù)"NextkNextjNextiEndPrivateSubDimm,i,yAsIntegerm=Val(Text1.Text)Ifm<=2ThenLabel2.Caption輸入數(shù)據(jù)有錯(cuò)k=Sqr(m)+1Fori=2Toky=mModIfy=0ThenExitForNextiIfy=0Label2.Captionm&不是素?cái)?shù)Label2.Captionm&是素?cái)?shù)EndIfEndIfEndOptionBasePrivateSubConstN= 'NDima(N,N)AsDimi,j,row,line,minAsIntegerFori1To Fori1變化到Forj1To Forj1變化到a(ijInt(100*Rnd) '產(chǎn)生N*N1~100NextjNexti'Print數(shù)組內(nèi)容是："Fori=1ToNForj=1ToNPrinta(i,Next 'Next'mina(1,1row1:line1'尋找最小數(shù)Fori=1ToForj=1ToIfa(i,j)<minThenmin=a(i,j)row=iline=jEndIfNextjNexti'Print最小值是：Print在第row;行第line列"EndSubPrivateSubDima,b,c,delt,realpart,imagpartAsa=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text):delt=b*b-4*a*cIfa=0Label2.Caption="是一元一次方程:" b<>0thenText4.Text="x1="&-c/Ifc=0Text4.Text有無窮根"Text4.Text無根"EndifEnd'IfIfdelt=0Label2.Caption有兩個(gè)相等的實(shí)根:"Text4.Text="x1="&-b/2/aText5.Text="x2="&-b/2/bElseIfdelt>0Label2.Caption="有兩個(gè)不等的實(shí)根:"Text4.Text"x1&bSqr(delt2*a)Text5.Text="x2="&(-bSqr(delt2*a)Label2.Caption有兩個(gè)共軛復(fù)根realpart=-b/(2*a)imagpart=Sqr(-delt)/(2*a)Text4.Text="x1="&realpart&"+"&imagpart&"i"Text5.Text="x2="&realpart&"-"&imagpart&"i"End 'EndIfIfEnd 'EndIfIfEndPrivateSubDimn,i,tAsLongn=Val(Text1.Text)i=1:t=1Ifn<0Label2.Caption="error"ElseIfn=0ThenLabel2.Caption=DoWhilei<=nt=t*ii=i+1Label2.Caption=n&"!="&EndIfEndSubPrivateSubDimPrev, sumAsLongDimiAsIntegerPrev=0:Last=1:sum=Prev+LastFori=3To20NewOne=Prev+Lastsum=sum+NewOnePrev=LastLast=NewOneNextiLabel1.Caption20項(xiàng)為&Label2.Caption20項(xiàng)的和為&sumEndSub第四用一、填空1、8、9、10、scroll和change18、Form2.Show二、選擇1、2、3、4、5、6、7、8、9、10、12、13、14、15、16、17、18、19、20、21、22、三、簡答鍵盤命令，常用形式Alt+字母。4、Scroll6、Interval屬性8、為一個(gè)菜單項(xiàng)設(shè)置熱鍵時(shí)需要在相應(yīng)字符前面加&擇10、在KeyPress012、四、讀程序5五、編程PrivateSubForm_Load()Timer1.Interval=EndPrivateSubTimer1_Timer()Txttime.text=TimeEndPrivateSubCommand1_Click()DimCharAsString*1Char=Trim(Text1.Text)Text2.Text=Text2.Text&Spc(5)&Char&_Spc(10)&Str(Asc(Char))&chr(13)&chr(10)Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub六、程序分析填PrivateSubbtnCut_Click()Str1=text1.selTexttext1.selText=“”EndPrivateSubDimsum,countasIntegerSum=Count=Dowhilecount<=100Count=count+Sum=sum+countEndSubPrivateSubCommand1_Click()DimiAsIntegerDimsAss=txtname.Text&"Fori=0ToList1.ListCount-IfList1.Selected(i)ThenS=s&List1.List(i)EndLabel3.Caption=sEndPrivateSubTimer1.Interval=EndPrivateSubTimer1_Timer()Form1.PrintInt(Rnd*10)+End第五一、填空2、dir1的chang、list1.path=dir1.path 二、選擇1、2、三、簡答2ASCⅡ碼文件和二進(jìn)制文ANSI字符，這類文件的信息按照順序從頭到尾排列，只提供第一條記錄的位置，因45、Print#語句用來將一個(gè)或多個(gè)格式化的數(shù)據(jù)寫入順序文件，Write#Print#EOF函數(shù)檢測是否已經(jīng)達(dá)到文件末尾四、編程PrivateSubCommand1_Click()Dimif1AsInteger,if2AsIntegerDimsf1AsString,sf2AsStringDimbufferAs sf1InputBox("請輸入源文件名：源文件sf2InputBox("請輸入目標(biāo)文件名：目標(biāo)