程序設計語言VB習地的題目集含詳解

實用標準文案《程序設計語言 VB》課程習題集一、單選題VisualBasic是一種面向（）的程序設計語言。用戶事件程序對象2.在VisualBasic6.0 中規(guī)定工程文件的擴展名是（ ）。vbpforfrmbas3.VisualBasic6.0 中規(guī)定窗體文件的擴展名是（ ）。forfrmvbpbas4.如何使一個標簽或按鈕控件在運行時不可用（ ）。A.把它的Visible 屬性設置成 False精彩文檔實用標準文案B.把它的Visible 屬性設置成 TrueC.把它的Enabled 屬性設置成 FalseD.把它的Enabled 屬性設置成 True控件的字體可在屬性窗口的（）屬性中調整？FontColorTextCaption6.若要將某命令按鈕設置為默認命令按鈕。則應設置為 True的屬性是（ ）。ValueCancelDefaultEnabled在VB中，記錄對象數(shù)據(jù)的是（）。方法事件屬性語句在文本框上顯示文本的屬性是（）。A.Value精彩文檔實用標準文案TextPrintEnabledInputBox函數(shù)返回值的類型為（）。字符串數(shù)值變體數(shù)值或字符串（視輸入的數(shù)據(jù)而定）10.設有語句：a=InputBox(" 請輸入數(shù)值:","輸入示例","100") 程序執(zhí)行后,若從鍵盤上輸入數(shù)值20并按回車鍵,則變量a的值是（）。字符串"20"字符串"120"默認值100數(shù)值12011.下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是（） 。A.Label 控件B.TextBox 控件C.Timer 控件D.CommandButton 控件12.語句PRINT "25*4" 的輸出結果是（）。精彩文檔實用標準文案25*4"100"100出現(xiàn)錯誤信息只能用來顯示字符信息的控件是（）。文本框標簽框圖片框圖像框下列可作為VisualBasic變量名的是（）。A%A4A?xyStemp15.下列哪個符號不能作為 VB中的變量名（）。timeflypass4min4maxR[8]在窗體內聲明的變量是（）。精彩文檔實用標準文案局部變量模塊變量公共變量任意變量語句DimxAsInteger作用是:將x定義為（）變量。單精度型整型布爾型字符型在VB中,用Boolean來表示的數(shù)據(jù)類型是（）。長整型字符型布爾型單精度型定義常量需要用到的關鍵字是（）。ConstDimPrivatePublic20.如果要處理 3.1415類數(shù)據(jù)，使用的變量類型應該是（） 。精彩文檔實用標準文案SingleLongIntegerString21.表達式2*3^2+2*8/2+3^2 的值為（）。27313542數(shù)學表達式X^2+3XY對應的VB算術表達式是（）。X*2+3X*YX*X+3XYX*X+3*X*YX*X+3*XY在VB語言中，求余運算符是（）。％MOD*/24.判斷兩個邏輯關系任一滿足的邏輯運算是（） 。精彩文檔實用標準文案OrAndNotOk25.表達式4+5\6*7/8Mod9 的值是（）。A.4B.5C.6D.726.選拔身高T超過1.7米且體重W小于60公斤的人，表示該條件的布爾表達式為 （）。A.T>=1.7AndW<=60B.T<=1.7OrW>=60C.T>1.7AndW<60D.T>=1.7OrW<6027.VB中下列邏輯表達式書寫正確的是（） 。A.a>banda>cB.a>b>cC.a≤bD.a≠12228.設x=4,y=8,z=7 ，表達式 x<yAnd(Noty>z)Orz<x 的值是（ ）。精彩文檔實用標準文案1-1TRUEFALSESqr(81)+Fix(3.6)的值是（）。12789把字符串“123”轉換為數(shù)值123時應該使用的函數(shù)是（）。StrValLenLog31.表達式Abs（-3）+int(3.14) 的值為（）。560.146.14Int(Rnd*100)表示的是（）范圍內的一個整數(shù)。精彩文檔實用標準文案[0,100][1,99][0,99][1,100]Len(“Friend”)的值是（）。A.6B.7C.8D.9Int(-3.14)的值是（）。-3-3.14-43.14Right（“banana”,4）的值是（）。babananananaban36.表達式 Mid( “Hello”,2,3)的值是（）。精彩文檔實用標準文案“l(fā)l”“l(fā)lo”“ell”“ello”37.語句if3*4>=10thena=1elsea=2 執(zhí)行后，a的值為（ ）。12101238.語句Ifx=1Theny=1, 下列說法正確的是（ ）。A.x=1 和y=1 均為賦值語句B.x=1 和y=1均為關系表達式C.x=1為關系表達式， y=1 為賦值語句D.x=1 為賦值語句，y=1 為關系表達39.下面程序段中，（）不是把兩個數(shù)中的大值賦給變量Ｍ ax。Max=IIf(x>y,x,y)Ifx>yThenMax=xElseMax=yMax=x：Ify>=xThenMax=yD.Ify>=xThenMax=y Max=x40.在Select判斷結構中，下面的表述中不正確的是（） 。精彩文檔實用標準文案A.Case1B.Casea>5C.Case3To6D.Caseis<1041.由"Fori=1To16Step3" 決定的循環(huán)結構被執(zhí)行（ ）次。A.4B.5C.6D.742.Dima(5,5)AsLong 定義的數(shù)組元素的個數(shù)是（ ）。A.10B.11C.25D.36用于清空數(shù)組數(shù)據(jù)的關鍵字是（）。EraseLboundUboundRedim44.下列關于dowhile ?loop 和do?loopwhile 循環(huán)執(zhí)行循環(huán)體次數(shù)的描述正確的是精彩文檔實用標準文案（）。A.dowhile?loop循環(huán)和do?loopwhile循環(huán)至少都執(zhí)行一次B.dowhile?loop循環(huán)可能不執(zhí)行，do?loopwhile循環(huán)至少執(zhí)行一次C.dowhile?loop循環(huán)至少執(zhí)行一次，do?loopwhile循環(huán)可能不執(zhí)行D.dowhile?loop循環(huán)和do?loopwhile循環(huán)可能都不執(zhí)行45.For-Next語句屬于程序基本結構中的（）。順序結構循環(huán)結構分支結構選擇結構下列關于ExitFor的說法，正確的是（）。它可以退出任何類型的循環(huán)B.一個循環(huán)只能有一個 ExitForC.每個循環(huán)必須有 ExitForD.ExitFor 本身是無條件退出循環(huán)47.在VisualBasic 代碼窗口中,將某一條語句加以注釋和說明時 ,應在語句前加（）。,:'?精彩文檔實用標準文案48.為了將一個語句寫在多行上所使用的行續(xù)接符是： （）。&_'：在一個語句內寫多條語句時,每個語句之間分隔符號是（）。,；:'50.Function 過程的定義，不必須有的是（ ）。過程的名稱虛參EndFunction給過程賦值51.下列過程調用語句中，被調用的過程一定是 Sub子過程的語句是（ ）。Pro1(x)PrintPro2(x)x=Pro3(x)CallPro4(x)精彩文檔實用標準文案Sub過程與Function過程最根本的區(qū)別是（）。A.Sub過程可以用 Call語句直接使用過程名調用，而 Function 過程不可以B.Function 過程可以有形參， Sub過程不可以C.Sub過程不能返回值，而 Function 過程能返回值D.兩種過程參數(shù)的傳遞方式不同53.當拖動滾動條中的滾動塊時，將觸發(fā)滾動條的事件是（） 。MoveSetFocusScrollChange54.列表項選擇后得到的選中索引是指（） 。ValueListValueIndexListIndex定時器定時工作所觸發(fā)的事件是（）。Click()Change()Timer()Load()精彩文檔實用標準文案在圖片框中加載圖形(c:\666.jpg)的方法是（）。Loadpicture("c:\666.jpg")Loadpicture()print("c:\666.jpg")cls以下關于VB列表框的敘述中（）是錯誤的。A.可通過屬性“ Item”，返回列表框中的項目B.可通過屬性“ Text”，得到當前列表項中的內容C.可通過屬性“ListIndex ”返回當前選中的列表項的索引D.可通過屬性“ ListCount ”返回列表框中項目的數(shù)目58.為了把焦點移到某個指定控件，所使用的方法是 （）。GetFocusVisibleRefreshSetFocus59.為了隱藏一個窗體，所使用的方法為（） 。LoadShowHideUnLoad精彩文檔實用標準文案如果窗體被遮擋，通過調用（）方法，可以將其顯示。HideShowUnloadloadVB窗體設計器的主要功能是（）。建立用戶界面畫圖編輯文字編寫程序代碼窗體的（）方法可以清除窗體上的圖形與文本。printclsloadcircle窗體沒有（）屬性。CaptionTextPictureTop精彩文檔實用標準文案64.當一個工程有多個窗體時，其中的啟動窗體是（ ）。第一個添加的窗體最后一個添加的窗體啟動VB時建立的窗體在工程屬性對話框中指定的窗體65.在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是（） 。工程資源管理器窗口工具箱窗口代碼窗口屬性窗口66.以下哪種屬性或者方法可以重新定義 VB坐標系？（ ）A.ScaleMode 屬性B.Scale方法C.DrawWidth 和DrawStyle 屬性D.BorderWidth 和BorderStyle 屬性指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14將繪制以下哪種圖形？（）圓橢圓扇形精彩文檔實用標準文案圓弧68.使用Line方法時，參數(shù) B和F可以組合使用，下列組合中（ ）是不允許的。不使用B和FBB和FF69.執(zhí)行命令Line（200，200）－step（500，500）后，CurrentX＝（ ）。200500700300在VisualBasic中,以下選項中表示單擊事件的是（）。KeyUpClickActivateLoad71.下面不屬于鍵盤事件的是（ ）。KeyUpKeyDownKeyPress精彩文檔實用標準文案D.Click72.每當窗體失去焦點時會觸發(fā)的事件是（） 。ActiveDeactiveLostFocusInitialize73.設在窗體上有一通用對話框控件 Commonialog1 ，通過調用（）語句可以建立“顏色”對話框。Commonialog1.ShowOpenCommonialog1.Action=2Commonialog1.ShowColorCommonialog1.Action=574.用語句Commonialog1.ShowOpen 建立了“打開”對話框以后，要得到用戶所選擇文件的路徑及文件名，應使用 Commonialog1 的（ ）。A.DialogTitle 屬性B.FileTitles 屬性C.FileName 屬性D.InitDir 屬性用于顯示彈出式菜單的方法名是()。A.ShowOpen精彩文檔實用標準文案ShowMenuShowPopupPopupMenu打開菜單編輯器的快捷鍵是（）。CTRL+FAlt+FCTRL+EAlt+E77.下列敘述中，錯誤的是（ ）。順序文件打開后，既可以讀又可以寫隨機文件打開后，既可以讀又可以寫順序文件打開后，只能讀或者只能寫順序文件和隨機文件的打開都使用Open語句VB編程中順序文件的處理將用到關鍵字是（）。FileSaveOpenDisk二、填空題1精彩文檔實用標準文案PrivateSubCommand1_Click()a=3b=1Fori=1To3f=a+ba=bb=fNextiPrintfEndSub以上程序段運行后， f的結果為 。設有如下通用過程：PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗體上畫一個名稱為 Text1的文本框和一個名稱為 Command1 的命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()精彩文檔實用標準文案Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=2*iNextfunarr,nText1.Text=Str(n)EndSub程序運行后,單擊命令按鈕 ,則在文本框中顯示的內容是 。閱讀下列程序段OptionExplicitPrivateSubCommand1_Click()Dimstr1AsStringDimstr2AsStringstr1="ABCDEFG"MySubstr1,str2Printstr2EndSubPrivateSubMySub(ByVal a AsString,b AsString)DimcAsString精彩文檔實用標準文案DimiAsIntegerFori=Len(a) To 1Step-1c=c+Mid(a,i,1)Nextb=cEndSub程序運行后，“print”語句的輸出結果是 ____。在窗體上畫一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()x=Int(Rnd)+6Ifx^2>25Theny=x^2+5x=Int(Rnd)+4Ifx^2<25Theny=x^2x=Int(Rnd)+5Ifx^2=25Theny=x^2-5PrintyEndSub程序運行后，單擊命令按鈕，其輸出結果為 ___。閱讀下列程序段PrivateSubCommand3_Click()精彩文檔實用標準文案Printpl(3,6)EndSubPublicFunctionpl(xAsSingle,nAsInteger)AsSingleIfn=0Thenpl=1ElseIfnMod2=1Thenpl=x*x+nElsepl=x*x-nEndIfEndIfEndFunction程序運行后，單擊該命令按鈕，屏幕上顯示的結果是 ______。閱讀下列程序段PrivateSubCommand2_Click()Fori=1To3x=1Forj=1To3x=3+j精彩文檔實用標準文案Fork=1To3x=x+3NextkNextjNextiPrintxEndSub運行程序后，單擊命令按鈕，輸出結果是 。閱讀下列程序段PrivateSubCommand1_Click()DimiAsIntegerDimkAsIntegerk=0Fori=0To10k=k+1i=i+kNextPrintk;iEndSub請問其循環(huán)體共執(zhí)行了 次，i的值是 。精彩文檔實用標準文案PrivateSubCommand1_Click()DimiAsIntegerDimxAsIntegeri=1x=2Doi=i+1x=x+iLoopUntili>=7Printi,xEndSub單擊命令按鈕后， i和x的值分別是 、 。87.下面程序運行后， a、b、c、d的結果分別 。PrivateSubCommand1_Click()Dima,b,c,dAsIntegerDoFora=1To2b=b+1Ifa=1Thenb=0c=5精彩文檔實用標準文案d=d+2NextaLoopUntild>10Printa,b,c,dEndSub假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)t=xx=t+xy=t-yEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSinglea=6b=4CallS(a,b)Printa,bEndSub程序運行后，單擊命令按鈕輸出結果為 。精彩文檔實用標準文案閱讀下列程序段Dima(3,3)AsIntegerForm=1To3Forn=1To3a(m,n)=(m-1)*3+nNextnNextmForm=2To3Forn=1To2Printa(m,n);NextnNextm程序運行后，顯示結果為： 。三、綜合設計題90.編制程序實現(xiàn)：在窗體上，單擊按鈕 1，在文本框中動態(tài)顯示當前時間；單擊按鈕 2，則停止動態(tài)顯示；單擊按鈕 3，清除文本框內容。提示：可用定時器控制時間，用系統(tǒng)函數(shù)Now 顯示時間（如 Text1.Text=Now ）。編制程序：求出100-200之間所有可以被3整除的數(shù)的總和，將結果用消息框顯示輸出。精彩文檔實用標準文案編制程序：利用輸入框輸入10個不同的整數(shù)，將它們從小到大排序，并打印輸出。93.編制程序實現(xiàn)：設計在一框架中包含三個復選框，只有當其 1,3選中而2未選中時，才在Text1中顯示"Hello"字符。94.編一程序能實現(xiàn)在窗體上打印出如下圖所示的圖形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB編一程序用于判斷一正整數(shù)是否為素數(shù)。（提示：只能被1和本身整除的正整數(shù)稱為素數(shù)。為了判斷一個數(shù)n是不是素數(shù)，可以將n被2到sqr(n)之間的所有整數(shù)除，如果都除不盡，則n就是素數(shù)，否則n是非素數(shù)。）選用If和Select判斷結構中任意一種編寫滿足下列條件的計稅要求的程序：少于1600元，免稅；1601-5000元，征2%的稅；多于5000元，超過部分征5%的稅。97.有a、b、c三個數(shù)，編一程序實現(xiàn)通過文本框給a、b賦值；再調用能完成a、b比較大小的子過程，用c將大數(shù)回傳。要求按值傳送a、b。98.編一程序用于求所有的"水仙花數(shù)"。所謂"水仙花數(shù)"是指一個3位數(shù)，其各位數(shù)字精彩文檔實用標準文案立方和等于該數(shù)本身。例如： 153就是一水仙花數(shù)，因為 153=13+53+33 。設計一彈出式菜單，用于設置窗體的背景色，背景色包含白色、黃色、紅色三種顏色。編寫程序實現(xiàn)：輸入三角形的三條邊a,b,c的值，根據(jù)其數(shù)值判斷能否構成三角形。如果能，則判斷三角形是否是直角三角形，若是則計算該直角三角形的面積。提示：判斷能否構成三角形的方法是，求最長的一邊，判斷它的邊長是否小于另外兩邊邊長之和；或求最短的一邊，判斷它的邊長是否大于另外兩邊之差。101.編寫程序：通過四個命令按鈕 Command1-Command4 ，在圖片框 Picture1 內分別實現(xiàn)畫點、畫線、畫圓、擦除等功能。編寫程序實現(xiàn)：在窗體上單擊按鈕1，可通過輸入對話框輸入兩個字符串；單擊按鈕2，將輸入的兩個字符串連接為一個字符串，并計算該字符串長度，然后在消息框中顯示出來。103.編一程序：用三個文本框分別輸入 a、b、c，求一元二次方程 ax2+bx+c=0 的解x1和x2，只包括實根。編一程序：利用輸入對話框輸入兩個正整數(shù)，求最大公約數(shù)。四、簡答題（略）??答案精彩文檔實用標準文案一、單選題DABCACCBAABABDDBBCA精彩文檔實用標準文案ACCBABCADABBCACCCCCD精彩文檔實用標準文案BCDABBDCBCBDCDDCAADC精彩文檔實用標準文案BABBDCBCDCBDCCCDCAC精彩文檔實用標準文案二、填空題1930GFEDCBA203154、147、293、1、5、1212、24、5、7、8三、綜合設計題PrivateSubCommand1_Click()Timer1.Interval=5Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=False精彩文檔實用標準文案EndSubPrivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=""EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSub91.PrivateSubCommand1_Click()Dimi,sAsIntegerFori=100To200IfiMod3=0Thens=s+iNextiMsgBox("100-200 之間所有可以被 3整除的數(shù)的總和為： "&Str(s))EndSub92.PrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)=Val(InputBox(" 第"&i+1&" 個數(shù)："))Nexti精彩文檔實用標準文案Fori=0To9Forj=i+1To9Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNextiFori=0To9Printa(i);NextiEndSubPrivateSubCommand1_Click()IfCheck1.Value=1And Check2.Value=1AndCheck3.Value=0ThenText1.Text="Hello"EndIfEndSubPrivateSubCommand1_Click()Dimi,jAsInteger精彩文檔實用標準文案Fori=1To4Forj=1To(2*i-1)Print"A";NextjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1Step-1Print"B";NextjPrintNextiEndSubPrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox(" 請輸入一個正整數(shù) ")k=Int(Sqr(n))i=2temp=0DoWhilei<=kAndtemp=0精彩文檔實用標準文案IfnModi=0Thentemp=1Elsei=i+1EndIfLoopIftemp=0ThenPrintn;" 是一個素數(shù)"ElsePrintn;" 不是素數(shù)"EndIfEndSubPrivateSubCommand1_Click()Dimn,pAsSinglen=Val(Text1.Text)SelectCasenCaseIs<=1600p=0Case1600To5000p=(n-1600)*0.02精彩文檔實用標準文案CaseElsep=5000*0.02+(n-5000)*0.05EndSelectEndSubPrivateSubc1(ByValaAsSingle,ByValbAsSingle,c)Ifa>bThenc=aElsec=bEndSubPrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.T ext)b=Val(Text2.T ext)Callc1(a,b,c)PrintcEndSubPrivateSubCommand1_Click()Dima,b,c,nAsIntegerForn=100To999a=Int(n/100)b=Int((n-a*100)/10)精彩文檔實用標準文案c=n-(a*100+b*10)Ifn=a^3+b^3+c^3ThenPrintn;NextEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMenuAEndIfEndSubPrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase1Form1.BackColor=vbWhiteCase2Form1.BackColor=vbYellowCaseElseForm1.BackColor=vbRedEndSelect精彩文檔實用標準文案EndSubPrivateSubCommand1_Click()Dima(2),i,j,mAsIntegerFori=0To2a(i)=Val(InputBox(" 第"&i+1&" 條邊為："))NextiFori=0To2Forj=i+1To2Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j