07759Visual Basic程序設(shè)計201607真題及答案

2016720167VB182016720167VB8820167VisualBasic（課程代碼07759）一、單項選擇題（16116）合題目要求的，請將其選出并將“答題卡”的相應(yīng)代碼涂黑。錯涂、多涂或未涂均無分。1個名稱為Combo15A.Combo1.Removeltem4 B.Combo1.RemoveltemCombo1.ListCountC.Combo1.Removeltem5 D.Combo1.RemoveltemCombo1.Text執(zhí)行下列程序后輸出的是PrivateSubCommandl_Click()Ch$=″ABCDEFGHIJ″PrintMid(Right(cb$,5),Len(left(ch$,3)),3)EndSubA.FGH B.HIJ C.FGHIJ D.ABCDE為了把焦點移到某個指定的控件，所使用的方法是SetFocus B.Visible C.Refresh D.GetFocus決定LabelA.Text B.Name C.Caption D.Forecolor窗體上有一個控件CommandCommand_Click() B.Commandl_Dblclick()C.Cornmand_Dblclick() D.Commandl_Click()設(shè)a=5,b=4，c=3,d=2(3>2*bOra=cAndb<>cOr1 B.2 C.True D.False對于不同的對象有不同的屬性，但所有的對象都共同擁有的屬性是Picture B.Icon C.Caption D.Name下列循環(huán)語句中在任何情況下都至少執(zhí)行一次循環(huán)體的是DoWhile<條> B.條件循環(huán)體 循環(huán)體Loop WendC.Do D.Do循環(huán)體 循環(huán)體LoopUntil<條> Loop已知有下列過程序PrivateSubCompare(aAslnteger,bAsStnng,Optionalx)……EndSub正確調(diào)用此過程的語句是A.Compare5B.Compare(12,″abc″，True)C.CallCompare(5) D.Compareprocl5,″abc″，F(xiàn)alse為了將變量a，b，cData.txtPrinta,b,c,#文件號 B.Print文件,a,b,cC.Outputa,b,c,文件號 D.Output文件,a,b,c窗體文件存盤后，形成的磁盤文件擴展名為A..cls B..frm C..bas D..12.下列語句中正確的注釋語句是A.z=x+yRerndim求z的值 B.y=200給y賦值C.z=300Rem給z賦值 D.x=100′給x賦值數(shù)組Arr(2To5,-2ToA.Arr(3,3) B.Arr(5,1) C.Arr(4,O) D.Arr(3,2)為使該菜單項被標記，應(yīng)該設(shè)置為TrueA.Checked B.Visible C.Enabled D.15.指定文件對話框中所選擇的文件名（不包括路徑）的屬性是A.DialogTitle B.FileTitle C.FileName D.Filter啟動過程SubMainA.標準模塊（.bas) B.類模(.c1s)C.窗體模塊（.frm) D.工程文(.vbp)二、判斷改錯題（本大題共10小題，每小題2分，共20分）判斷下列每小題的正誤。正確的在題后括號內(nèi)打“√”；錯誤的打“×”，并改正劃線部分。Function使用InputBox函數(shù)可接受用戶輸入數(shù)據(jù)。19．標準模塊中的局部變量能被工程中的其它模塊引用。20．事21．窗體大小可以通過設(shè)置屬性Height和Top來改變。22．在聲明數(shù)組時，下標必須是變量。23.設(shè)置形狀控件的Shape屬性可以在窗體上畫出矩形、圓和橢圓。24．如果一個菜單項的visible屬性為False，它的子菜單也會顯示。25.VB26．用通用對話框能建立文件對話框和字體對話框。三、簡答題（281627.什么是閑置循環(huán)？DoEvents圖形控件中的圖片框和圖像框有什么異同？四、解讀程序題（26212）明，在程序中空格處填寫正確代碼。填錯、未填均無分。下列程序的功能是：把程序文件data.txt的內(nèi)容全部讀入內(nèi)存，并在文本框Text1中顯示出來。PrivateSubCommandl_Click()DimsDataAsStringText1.Text=″″Open″c:\data.For As DoWhileNotEOF(3)Input#3, Text1.Text=Textl.Text&sDataLoopClose#3EndSub如下是一個比賽評分程序。在窗體上建立一個名為Textl的文本框數(shù)組，然后畫一個名為Text2的文本框和名為Commandl610令按鈕，去掉一個最高分和一個最低分后的平均分即為最后得分，將最后得分顯示在Text2文本框中，如30PrivateSubCommandl_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSingleSum=0max=0min=10Fork=0To5IfTextl(k)>10ThenTextl(k)=10IfTextl(k)<0ThenTextl(k)=10Ifmax<Textl(k)ThenEndIfIfmin>Textl(k)ThenMin=Textl(k)EndIfsum= Nextksum= Text2.Text=EndSub五、程序閱讀題（本大題共4小題,每小題4分，共16分）閱讀程序，在題后的空格處填寫程序運行的結(jié)果。填錯、未填均無分。在窗體畫一個命令按(Command1)、一個文本(Text1)和一個標(Labell),然后編寫如下兩個事件過程程序運行后單擊命令按鈕將顯示一個輸入對話框如果在該對話框中輸入字符則在標簽中顯示的內(nèi)容。PrivateSubCommand1_Click()Dims$s$=InputBoxText1.Text=s$EndSubPrivateSubText_Change()Labell.Caption=UCase(Mid(Textl.Text,6))EndSub在窗體上有一個命令按(Command1)和一個文本(Text1)，編寫如下程序代碼，當運行程序后，擊命令按鈕，文本框Text1中顯示的值。PrivateSubCommandl_Click()DimArr(5,5)AsIntegerDimi,jAsIntegerFori=lTo4Forj=2ToArr(i,j)=NextjNextiText1.Text=Arr(2,2)+Arr(3,3)EndSub在窗體上有一個命令按(Command1)和兩個文本(Text1和Text2)，編寫如下程序代碼，當運行程后，單擊命令按鈕，文本框Text2中顯示的值。PrivateXAsIntegerDimyAsIntegerPrivateSubCommand1_Click()X=5r=1OCallProc(X,y)Text1.Text=XText2.TextXEndSubPrivateSubProc(aAsInteger,ByValbAsInteger)DimyAsIntegerX=a*aY=b+b+XEndSub在窗體上畫一個命令按(Command1)，然后編寫如下事件過程，程序運行后，單擊命令按鈕，輸出結(jié)果。PrivateSubCommand1_Click()DimA,B,CAsIntegerA=1B=2C=3A=A+BB=B+CC=B+AA=B-AB=C-AC=B+AEndIfPrintEndSub六、編程題（本大題共2小題，每小題10分，共20分)編寫程序?qū)崿F(xiàn)題目所給要求。請編寫程序求函數(shù)的根x3x44x210在區(qū)間[10.0001f(x)=0f(a)×f(b)>0，則令a=c，否則令b=c；當|b-c|<給定誤差，則c編寫一個Funciton過程Cala，用來計算下列的數(shù)量Command1調(diào)用，并計算n=99n=199MsgBoxS11

2...

n1n 2 3 n20167VisualBasic―、單項選擇題（本大題共16小題，每小題1分，共16分）1——5：ABACD 6——10：CDCAB 二、判斷改錯題（本大題共10小題，每小題2分，共20分)題號判斷更正17×Sub18√19×全局變量20√21×Width22×常量23√24×True25√26√三、簡答題（本大題共2小題，每小題8分，共16分）27.(l）當執(zhí)行閑置循環(huán)時，將占用全部CPU時間，不允許執(zhí)行其他事件過程，使系統(tǒng)處于無限循環(huán)中，沒有任何反應(yīng)。(2)VisualBasic提供DoEvents應(yīng)其他的事件任務(wù)，處理完畢后然后回到原來的程序繼續(xù)執(zhí)行。VisualBasic(2）兩者的區(qū)別是圖像框比圖片框占用內(nèi)存小，顯示速度快。圖片框比圖像框靈活，且適用于動態(tài)環(huán)能作為父控件，而且不能通過Print方法接收文本；圖像框具有Stretch屬性，可以自動調(diào)整圖像大小來適應(yīng)圖像框的尺寸。四、解讀程序題（本大題共2小題，每小題6分，每空2分，共12分）Input #3 sDatamax=Text1(k) sum+Text1(k) sum-max-min五、程序閱讀題（本大題共4小題，每小題4分，共16分）31.SOFT 32.10 33.25 34.16六、編程題（本大題共2小題，每小題10分，共20分）PrivateSubCommandl_Click()DimxAsSingle,aAsSingle,bAsSingle,cAsDimfaAsSingle,fbAsSingle,fcAsSinglea=0b=1c=(a+b)/2fa=a^3-a^4+4*a^2-1fb=b^3-b^4+4*b^2-1If(fa*fb<O)ThenDofa=a^3-a^4+4*a^2-1fc=c^3-c^4+4*c^2-1If(fa*fc>O)Thena=cElseb=cEndIfC=(a+b)/2LoopUntilAbs(b-c)<O.0001EndIfPrint″實根為：″&c；EndSubPrivateSubCommandl_Click()DimnlAsSingle