Visual+Basic+6.0中文版(項(xiàng)目教學(xué))模擬習(xí)題二(含答案)

PAGEPAGE5模擬題二一、填空題（120＝20）VisualBasic6.0機(jī)制。當(dāng)進(jìn)如VisualBasic集體環(huán)境發(fā)現(xiàn)沒有顯“工具箱窗口應(yīng)選擇 視圖菜單選項(xiàng)使“工具箱”窗口顯示。對象的方法是指對對象可以進(jìn)行地操作。VisualBasic6.0中文版的菜單欄共有 13 個(gè)菜單項(xiàng)。十進(jìn)制整型數(shù)的表示范圍為-32768～＋32767 。根據(jù)所給條件，引出邏輯表達(dá)式：閏年的條件是：年(year)能被4整,但不能被100整除；或者能被400整除邏輯表達(dá)式為： NOT(YearMOD4)AND(YearMOD100)ORNOT(YearMOD400)a不等于0且b-4ac>=0邏輯表達(dá)式為：a<>0b^2-4*a*c>=0以下語句的輸出結(jié)果是BeijingS$=＂China＂S$=＂Beijing＂PrintS$列表框中項(xiàng)目的序號(hào)是從 0 開始的，ListCount-1 表示列表框中最后項(xiàng)的序號(hào)?？丶?shù)組的名字由 Name 屬性指定，而數(shù)組中的每個(gè)元素由 Index 屬指定。為了在運(yùn)行時(shí)把圖形文件Pf.jpg 裝入圖片框Picture1，所使用的語句為_Pictuer1.Pictuer=LoadPictuer(Pf.jpg) 。制作菜單的分隔欄時(shí)，選用的符號(hào)- 。VisualBasic提供的對數(shù)據(jù)文件的三種訪問方式為隨機(jī)訪問方式_順序訪問方式 和進(jìn)制訪問方式。 Data 控件是VisualBasic6.0DataVisualBasic6.0二、選擇題（219=38）可以用來在啟動(dòng)程序時(shí)對屬性和變量進(jìn)行初始化的事(D A Click B UnloadC Activate D Load當(dāng)窗體上有多個(gè)控件時(shí)，最多只( A個(gè)控件是活動(dòng)的。A1B2C3D多當(dāng)對被選擇的控件進(jìn)行對齊、調(diào)整大小等操作時(shí)，將(C 為準(zhǔn)。A所有控件B某些控件C基準(zhǔn)控件D以上說法均不對VisualBasic在同一行中。在這種情況下，用來隔開各語句的符號(hào)(A )A冒號(hào)B分號(hào)C逗號(hào)D感嘆號(hào)一般來說，在用VisualBasic開發(fā)應(yīng)用程序時(shí)，其通常的步驟(A )A ①設(shè)置可視界面 ②編寫代碼 ③程序測試、運(yùn)B ①建立可視用戶界面 ②設(shè)置可視界面特性③編寫事件驅(qū)動(dòng)代C ①編寫事件驅(qū)動(dòng)代碼 ②程序測試 ③程序運(yùn)行和維護(hù)D 以上步驟均不對下面4個(gè)選項(xiàng)中屬于字符型數(shù)據(jù)的(A )A“Hello”B`Hello`CHelloD#Hello雙精度浮點(diǎn)數(shù)存儲(chǔ)時(shí)占的字節(jié)數(shù)( B )A 4 B 8C 16 D 32下面為正確的整型常量的( C )A &624 B 0347C &0127 D &0128把小寫字母轉(zhuǎn)換為大寫字母的函數(shù)(B )A Lcase$ B Ucase$C Instr D Len“x是小于100的非負(fù)數(shù)，用VisualBasic表達(dá)式表示正確的(C )A0<=x<100B0<=x<100C0<=xAndx<100D0<=xOrX<100假定Picture1和Text1分別為圖片框和文本框的名稱，下列語句不正確的(C A Print 100 B Picture1.Print100C Text1.Print100 D Debug.Print12.表達(dá)式4+5\6*7/8Mod9的值( B)A 4 B 5C 6 D 7在窗體上畫一個(gè)命令按然后編寫如下事件過程D PrivateSubCommand1_Click()a=InputBox(＂EntertheFirstInteger＂)b=InputBox(＂EntertheSecondinteger＂)Printb+aEndSub程序運(yùn)行后,單擊命令按鈕,先后在兩個(gè)輸入對話框中分別輸入456和123,則輸出結(jié)果是A579B123C456D123456若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對其設(shè)置的屬性是（D）ABackColorBBorderStyleCForeColorD.BackStyle下面程序x$=＂a＂y$=＂b＂z$=＂c＂ForI=1to2X$=y$：y$=z$：z$=x$NextIPrintx$+y$+z$運(yùn)行后的輸出結(jié)果是）A cab B bcaC bcb D cbc下面程序段ForI=1To3Step1PrintSpc(5-I);Forj=1ToPrintNextj;PrintNextI運(yùn)行結(jié)果為（B）A*****B*************C *D********************設(shè)有語句open"c：Test．Dat"ForOutPutAs#1則以下錯(cuò)誤的敘述是（A ）該語句打開C盤根目錄下一個(gè)己存在的文件該語句在C盤根目錄下建立一個(gè)名為的文件1執(zhí)行該語句后，就可以通過Print#語句向文件中寫入信息表的每一行就是一個(gè)（ A ；表中的每一列稱作一個(gè)（ ，描述了所含有的數(shù)據(jù)。記錄 字段索引 字段字段 記錄記錄 索引Data控件的很多方法，當(dāng)我們在運(yùn)行時(shí)修改了 Record-Source屬性后，需要調(diào)用（ A ）方法刷新記錄集。Refresh方法UpdateRecord方法UpdateControls方法Cancelupdate方法三、程序填空題（2 18＝34）本框中邊輸入邊統(tǒng)計(jì)大括號(hào)的個(gè)數(shù)，以+輸入回車作為結(jié)束標(biāo)志，然后顯示結(jié)果．請將程序補(bǔ)充完整．DimCount1%PrivateSubText1_KeyPress(KeyAsciiAsInteger)If KeyAscii =＂{＂ThenCount1=Count1+1ElseIf KeyAscii =＂}＂ThenCount1=Count1+1IfKeyAscii=13ThenIf Count1=0 ThenPrint＂左右大括號(hào)配對＂ElseIf Count1>0 ThenPrint＂左大括號(hào)數(shù)多＂；Count1；＂個(gè)＂ElsePrint＂右大括號(hào)數(shù)多＂；-Count1；＂個(gè)＂EndIfEndIfEnd閱讀程序：PrivateSubForm_Click()num=0Dowhilenum<=2num=num+1PrintnumLoopEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果是 123 。在窗體上畫一個(gè)命令按鈕（其Name屬性為CommandPrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsa=InputBox(＂Enterthefirstnumber＂)b=InputBox(＂Enterthesecondnumber＂)ReDimn(aTob)Fork=Lbound(n,1)ToUbound(n,1)n(k)=kPrint＂n(＂＂;k;＂)=＂;n(k)NextkEndSub程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入２和３，輸出結(jié)果為n(2)=2n(3)=3。在窗體上畫一個(gè)命令按鈕（其Name屬性為Command，然后編寫如下代碼PrivateSubCommand1_click( )Dima(5)ForI=0ToA(i)=I+1T=I+1Ift=3ThenPrinta(i);A(t-1)=a(I-2)ElseA(t)=a(i)EndIfIfI=3Thena(I+1)=a(t-4)A(4)=1Printa(i);NextIEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為123141 。在窗體中添加一個(gè)名稱為Text1Command1和Command2的Command1Command2PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) Text1.Tag =Text1.TextEndSubPrivateSubCommand1_Click()Text1.Text= UCase(Text1.Tag) EndSubPrivateSubCommand2__Click Text1.Text=LCase(Text1.Tag)EndSub在窗體上畫一個(gè)命令按鈕（其Name屬性為CommandPrivateSubCommand1_click()Dimm(10)AsIntegerFork=1To10M(k)=12-kNextkX=6Printm(2+m(x))EndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 4 。下面程序運(yùn)行后，輸出的結(jié)果0 PrivateSubCommand1_Click()A$=”Beijing”B$=”dalian”C$=”shanghai”C$=Instr(LeftA$,2)+Right$(B$,2),C$)PrintC$EndSub在窗體上畫兩個(gè)標(biāo)簽，其名稱分別為Label1Label2,Caption屬性分別為“數(shù)值”及空白；然后畫一個(gè)名稱為Hscoll1的水平滾動(dòng)條，其Min的值為0，Max100Lable2PrivateSubHScroll1_ Change Labl2.Caption=HScroll1.ValueEndSub在窗體上畫一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕；畫兩個(gè)文本框，名稱分別為Text1和4Label1Label2Label3標(biāo)題分別為“操作數(shù)24個(gè)單選按紐的控件數(shù)組，名稱為Option”和“在Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在Label4，程序運(yùn)行情況如圖所示。請?jiān)谔钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubCommand1_Click()Fori=0To36PAGEPAGE8If Option1(i).Value =Trueopt=Option1(i).CaptionEndIfNextSelectCaseCase”+”Result=Val(Text1.Text)+Val(Text2.Text)Case”-”Result=Val(Text1.Text)-Val(Text2.Text)Case”*”Result=Val(Text.Text)*Val(Text2.Text)Case”/”Result=Val(Text1.Text)/Val(Text2.Text)EndSelectLabel4.Caption =ResultEndSub四、程序改錯(cuò)題（1 8＝8）在數(shù)組b中查找其中一個(gè)數(shù)，并輸出該數(shù)在數(shù)組中的位置。其程序代碼如下：Privatesubsearch( ）AsvarianByValkeyAsVariat ByVal index%)DimI％For I＝UBound(a) To LBound(a)If key＝a(I) index＝IExit EndIfNextIIndex＝-1EndSubPrivateSubForm_Load()ShowDimnAsStringDimb(n)Asb＝Array(1，3，5，7，9，11，13，15)a=inputbox(“請輸入所要查詢的數(shù)字”,”查詢”,0)search(b，a，n)PrintnEndSub正確的程序：PrivateSubsearch(a()AsVariant,ByVal