VB考試題庫(kù),二級(jí)習(xí)題(含答案)

VB考試一1、能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是 ______。A：SelStart B：SelLength C：SelText D：Text參考答案：C2、在窗體上畫(huà)一個(gè)文本框， 其名稱為 Text1，為了在程序運(yùn)行后隱藏該文本框， 應(yīng)當(dāng)使用的語(yǔ)句為：______。A：Text1.Enabled=False B：Text1.HideC：Text1.Clear D：Text1.Visible=False參考答案：D3、對(duì)于語(yǔ)句 Ifx=1Theny=1, 下列說(shuō)法正確的是 ____。A： x=1和y=1均為賦值語(yǔ)句B： x=1和y=1 均為關(guān)系表達(dá)式C：x=1為賦值語(yǔ)句， y=1為關(guān)系表達(dá)式D：x=1為關(guān)系表達(dá)式， y=1為賦值語(yǔ)句參考答案：D4、以下變量名中， ______是不符合 VisualBasic的命名規(guī)X的。A：_mnu_Open_234 B：Abc901 C：price_ D：K參考答案：A5、MsgBox 函數(shù)返回值的類型是 __________。A：數(shù)值或字符串 B：字符串 C：變體 D：整型數(shù)值參考答案：D6、VB一共有設(shè)計(jì)、運(yùn)行和中斷三種模式，要使用調(diào)試工具應(yīng)該 ______。A：進(jìn)入中斷模式 B：進(jìn)入運(yùn)行模式C：進(jìn)入設(shè)計(jì)模式 D：不用進(jìn)入任何模式參考答案：A7、設(shè)a=6，則執(zhí)行x=IIF(a>5,-1,0) 后，x的值為_(kāi)_____。A：-1 B：6 C：0 D：5參考答案：A8、可以同時(shí)刪除字符前導(dǎo)和尾部空白的函數(shù)是 ______。A：Mid B：Rtrim C：Trim D：Ltrim參考答案：C9、以下語(yǔ)句的輸出結(jié)果是 ______。PrintFormat$("32548.5","000,000.00")1A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50參考答案：C10、設(shè)有如下聲明：DimXAsInteger如果Sgn(X)的值為-1，則X的值是______。A：等于0的整數(shù)B：大于0的整數(shù)C：整數(shù)D：小于0的整數(shù)參考答案：D11、在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 ______。參考答案： 15#15#15#1512、執(zhí)行下面的程序段后， S的值為_(kāi)_____。s=5Fori=2.6To4.9Step0.6s=s+1Nexti參考答案：913、下列表達(dá)式有錯(cuò)誤 ,正確的寫(xiě)法應(yīng)該是 ______。[(a+b)+c]/80-5 (d+e)÷參考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）14、表示x是5的倍數(shù)或是 9的倍數(shù)的邏輯表達(dá)式為 __________參考答案：xMod5=0OrxMod9=0#xMod9=0OrxMod5=015、以下程序的功能是:從鍵盤(pán)上輸入若干個(gè)數(shù)字，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，統(tǒng)計(jì)出若干數(shù)字的平均值，輸出結(jié)果。請(qǐng)?zhí)羁铡?PrivateSubForm_click()Dimx,yAsSingleDimzAsIntegerx=InputBox("Enterascore")Dowhilex>=0y=y+xz=z+1x=InputBox("Enterascore")LoopIfz=0Thenz=1EndIfy=______PrintyEndSub參考答案：y/zVB考試二1、列表框中的列表項(xiàng)的數(shù)目可以通過(guò)以下哪個(gè)屬性的值獲得 ______。A：ListIndex B：ListCount C：Count D：Index參考答案：B2、在窗體上畫(huà)一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確實(shí)現(xiàn)上述功能的程序是 ______。A：PrivateSubList1_Click()Label1.Caption=List1.TextEndSubB：PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSubC：PrivateSubList1_Click()Label1.Name=List1.TextEndSubD：PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSub參考答案：A3、在列表框中當(dāng)前被選中的列表項(xiàng)的序號(hào)是由下列哪個(gè)屬性表示 ______。A：Listindex B：Index C：List D：Tabindex參考答案：A34、為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是： ______。A：Clear B：Remove C：RemoveItem D：Cls參考答案：A5、在窗體上畫(huà)一個(gè)名稱為 List1的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語(yǔ)句為 ______。A：Fori=1ToList1.ListCount??NEXTB：Fori=0ToList1.Count-1??NEXTC：Fori=0ToList1.ListCount-1??NEXTD：Fori=1ToList1.Count??NEXT參考答案：C6、設(shè)有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub程序運(yùn)行后，單擊窗體，則在窗體上顯示的是______。A：6543B：5432C：4321D：7654參考答案：A7、設(shè)執(zhí)行以下程序段時(shí)依次輸入 1、3、5，執(zhí)行結(jié)果為 ______。Dima(4)AsInteger,b(4)AsIntegerForK=0To2a(K+1)=Val(InputBox("請(qǐng)輸入數(shù)據(jù)"))b(3-K)=a(K+1)NextKPrintb(K)A： 0 B： 3 C：5 D：1參考答案：D48、在窗體上畫(huà)一個(gè)名稱為 Command1的命令按鈕，然后編寫(xiě)如下程序：PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=1To3a(i,j)=(i-1)*3+jPrinta(i,j);NextjPrintNextiEndSub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 ______。A： 123456789B： 234345456C： 147258369D： 123246369參考答案：A9、用下面的語(yǔ)句所定義的數(shù)組的元素個(gè)數(shù)是： ______。Dimarr(3To5,-2to2)A：24 B：12 C：15 D：20參考答案：C10、下列______語(yǔ)句可以為動(dòng)態(tài)數(shù)組分配實(shí)際元素個(gè)數(shù)。A：static語(yǔ)句 B：Dim語(yǔ)句 C：public語(yǔ)句 D：ReDim語(yǔ)句參考答案：D11、假定程序中有以下語(yǔ)句：answer=MsgBox("String1",,"String2","String3",2)執(zhí)行該語(yǔ)句后，將顯示一個(gè)信息框，此時(shí)如果單擊 "確定"按鈕，則 answer的值為：______。A：String3 B：String2 C：String1 D：1參考答案：D512、設(shè)有語(yǔ)句x=InputBox("輸入數(shù)值","0","示例")程序運(yùn)行后，如果從鍵盤(pán)上輸入數(shù)值 10并按回車鍵，則下列敘述中正確的是 ______。A：0是默認(rèn)值B：變量X的值是字符串"10"C：在InputBox對(duì)話框標(biāo)題欄中顯示的是 "示例"D：變量X的值是數(shù)值 10參考答案：B13、以下程序段運(yùn)行的結(jié)果是： ______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerDoUntilflag=TrueFori=-1To5j=j+1Ifa(i)=FalseThena(i)=TrueExitForEndIfIfi=5Thenflag=TrueEndIfNextLoopPrintjA：20 B：7 C：8 D：35參考答案：D14、設(shè)a=5，b=6，c=7，d=8，則執(zhí)行下列語(yǔ)句后， x的值為：______。x=IIF((a>b)And(c<d),10,20)A：300 B：20 C：30 D：10參考答案：B15、要將一個(gè)組合框設(shè)置為簡(jiǎn)單組合框 （SimpleCombo），則應(yīng)將其 Style屬性設(shè)置為_(kāi)_____。A：0 B：1 C：3 D：2參考答案：BVB考試三1、設(shè)組合框 Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是 ______。6A：Combo1.RemoveItemCombo1.ListcountB：Combo1.RemoveItem2C：Combo1.RemoveItem3D：Combo1.RemoveItemText參考答案：B 題分：62、在窗體上畫(huà)一個(gè)命令按鈕，其名稱為 Command1，然后編寫(xiě)如下程序：FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0ThenFunc=xElseFunc=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=4c=Func(a,b)Print"a=";aPrint"b=";bPrint"c=";cEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為： ______。A：a=3b=4c=12B：a=13b=12c=12C：a=3b=4c=3D：a=3b=12c=3參考答案：D 題分：63、單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果為 ______。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/107EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=34CallProcl(x,y)Printx;yEndSubA： 12 3 B： 2 3 C：12 34 D：2 34參考答案：D 題分：64、以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是 ______。A：在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)B：函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系C：當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D：如果不指明函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)沒(méi)有數(shù)據(jù)類型參考答案：B 題分：65、以下說(shuō)法錯(cuò)誤的是 ______。A：函數(shù)過(guò)程可以帶參數(shù) B：子過(guò)程沒(méi)有返回值C：函數(shù)過(guò)程沒(méi)有返回值 D：子過(guò)程可以帶參數(shù)參考答案：C 題分：66、在窗體上畫(huà)一個(gè)命令按鈕（名稱為 Command1），然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()DimbAsIntegerb=b+1EndSub運(yùn)行程序，三次單擊命令按鈕后，變量 b的值是：______。A：2 B：1 C：0 D：3參考答案：B 題分：67、假定有以下函數(shù)過(guò)程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()DimStr1AsString,Str2AsString8Str1=InputBox("請(qǐng)輸入一個(gè)字符串 ")Str2=Fun(Str1)PrintStr2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串 "abcdefg"則單擊"確定"按鈕后在窗體上的輸出結(jié)果為 ______。A：GFEDCBAB：ABCEDFGC：gfedcbaD：abcdefg參考答案：A 題分：68、Sub過(guò)程與Function過(guò)程最根本的區(qū)別是 ______。A：兩種過(guò)程參數(shù)的傳遞方式不同B：Function過(guò)程可以有參數(shù)， Sub過(guò)程不可以C：Sub過(guò)程可以使用 Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而 Function過(guò)程不可以D：Sub過(guò)程的過(guò)程名不能返回值，而 Function過(guò)程能通過(guò)過(guò)程名返回值參考答案：D 題分：69、在代碼中定義了一個(gè)子過(guò)程：SubP(a,b)...EndSub下面______調(diào)用該過(guò)程的格式是正確的。A：CallPB：CallP10,20C：P(10,20)D：CallP(10,20)參考答案：D 題分：610、在窗體上畫(huà)一個(gè)名稱為 Command1的命令按鈕，然后編寫(xiě)如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序運(yùn)行時(shí)，三次單擊命令按鈕 Command1后，窗體上顯示的結(jié)果為 ______。A： 15 15B： 15 6C：15 169D：5 6參考答案：B 題分：611、設(shè)有以下循環(huán)結(jié)構(gòu)Do循環(huán)體LoopWhile<條件>則以下敘述中錯(cuò)誤的是 ______。A：循環(huán)體中可以使用 ExitDo語(yǔ)句B："條件"可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)C：若"條件"是一個(gè)為 0的常數(shù)，則一次也不執(zhí)行循環(huán)體D：如果"條件"總是為T(mén)rue，則不停地執(zhí)行循環(huán)體參考答案：C 題分：612、在窗體上畫(huà)一個(gè)名稱為 Command1的命令按鈕，然后編寫(xiě)如下通用過(guò)程和命令按鈕的事件過(guò)程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示是 ______。A：7 B：6 C：8 D：9參考答案：A 題分：6VB考試四1、某人編寫(xiě)了如下程序，用來(lái)求 10個(gè)整數(shù)（整數(shù)從鍵盤(pán)輸入）中的最大值：PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10a(k)=InputBox("輸入一個(gè)整數(shù)")Nextkmax=0Fork=1To1010Ifa(k)>maxThenmax=a(k)EndIfNextkPrintmaxEndSub運(yùn)行程序時(shí)發(fā)現(xiàn)， 當(dāng)輸入10個(gè)正數(shù)時(shí)，可以得到正確結(jié)果， 但輸入10個(gè)負(fù)數(shù)時(shí)結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改中可以得到正確運(yùn)行結(jié)果的是 ______。A：把max=a(k)改為a(k)=maxB：把Ifa(k)>maxThen改為Ifa(k)<maxThenC：把第2個(gè)循環(huán)語(yǔ)句 Fork=1To10改為Fork=2To10D：把max=0改為max=a(10)參考答案：D2、設(shè)有語(yǔ)句：Open"d:\Test.txt"ForOutputAs#1，以下敘述中錯(cuò)誤的是 ______。A：執(zhí)行該語(yǔ)句后，就可以通過(guò) Print#語(yǔ)句向文件 Test.txt中寫(xiě)入信息B：用該語(yǔ)句建立的文件的文件號(hào)為 1C：該語(yǔ)句打開(kāi) d盤(pán)根目錄下一個(gè)已存在的文件 Test.txt，之后就可以從文件中讀取信息D：若d盤(pán)根目錄下無(wú)Test.txt文件，則該語(yǔ)句創(chuàng)建此文件參考答案：C3、工程中有 2個(gè)窗體，名稱分別為 Form1、Form2，F(xiàn)orm1為啟動(dòng)窗體，該窗體上有命令按鈕Command1。要求程序運(yùn)行后單擊該命令按鈕時(shí)顯示 Form2，則按鈕 Click事件過(guò)程應(yīng)該______。A：PrivateSubCommand1_Click()Form2.LoadEndSubB：PrivateSubCommand1_Click()Form2.VisibleEndSubC：PrivateSubCommand1_Click()Load Form2EndSubD：PrivateSubCommand1_Click()Form2.ShowEndSub參考答案：D4、在窗體上畫(huà)一個(gè)名為 Command1的命令按鈕，然后編寫(xiě)如下代碼：OptionBase1PrivateSubCommand1_Click()Dima11a=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub運(yùn)行上面的程序，其輸出結(jié)果是 ______。A：12B：1234C：34D：4321參考答案：B5、設(shè)在窗體中有一個(gè)名稱為 List1的列表框，其中有若干個(gè)項(xiàng)目（如圖） 。要求選中某一項(xiàng)后單擊Command1按鈕，就刪除選中的項(xiàng)，則正確的事件過(guò)程是 ______。A：PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSubB：PrivateSubCommand1_Click()List1.ClearEndSubC：PrivateSubCommand1_Click()List1.RemoveItemList1.ListIndexEndSubD：PrivateSubCommand1_Click()List1.RemoveItemEndSub參考答案：C6、窗體上有一個(gè)名稱為 Frame1的框架（如圖），若要把框架上顯示的 "Frame1"改為漢字"框架"，下面正確的語(yǔ)句是 ______。A：Frame1.Caption="框架"B：Frame1.Name="框架"C：Frame1.Text="框架"D：Frame1.Value="框架"參考答案：A7、設(shè)窗體上有一個(gè)圖片框 Picture1，要在程序運(yùn)行期間裝入當(dāng)前文件夾下的圖形文件12File1.jpg，能實(shí)現(xiàn)此功能的語(yǔ)句是 ______。A：CallLoadPicture("File1.jpg")B：Picture1.Picture=LoadPicture("File1.jpg")C：LoadPicture("File1.jpg")D：Picture1.Picture="File1.jpg"參考答案：B8、在窗體上畫(huà)一個(gè)名稱為 Timer1的計(jì)時(shí)器控件，要求每隔 0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語(yǔ)句是 ______。A：Timer1.Interval=50B：Timer1.Interval=5C：Timer1.Interval=0.5D：Timer1.Interval=500參考答案：D9、在窗體上畫(huà)一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫(huà)一個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&_"(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"CommonDialog1.FilterIndex=3CommonDialog1.ShowOpenMsgBoxCommonDialog1.FileNameEndSub程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè) "打開(kāi)"對(duì)話框，此時(shí)在 "文件類型"框中顯示的是______。A：TextFiles(*.txt)B：AllFiles(*.*)C：ExecutableFiles(*.exe)D：不確定參考答案：C10、在窗體上畫(huà)一個(gè)名稱為 Command1命令按鈕，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()c="ABCD"Forn=1To4Print______NextEndSub程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容DCD13BCDABCD則在______處填入的內(nèi)容為。A：Left(c,n) B：Right(c,n) C：Mid(c,n,n) D：Mid(c,n,1)參考答案：B11、在窗體上畫(huà)一個(gè)名稱為 Label1、標(biāo)題為 "VisualBasic 考試"的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為"開(kāi)始"和"停止"的命令按鈕，然后畫(huà)一個(gè)名稱為 Timer1的計(jì)時(shí)器控件，并把其 Interval屬性設(shè)置為 500，如圖所示。編寫(xiě)如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left<WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序運(yùn)行后，單擊 "開(kāi)始"按鈕，標(biāo)簽在窗體中移動(dòng)。對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 ______。A：?jiǎn)螕?停止"按鈕后再單擊 "開(kāi)始"按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng)B：標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃驝：當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng)D：標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng)參考答案：B12、執(zhí)行下列語(yǔ)句strInput=InputBox("請(qǐng)輸入字符串 ","字符串對(duì)話框 ","字符串")將顯示輸入對(duì)話框。此時(shí)如果直接單擊 "確定"按鈕，則變量 strInput的內(nèi)容是______。A："請(qǐng)輸入字符串" B：空字符串 C："字符串" D："字符串對(duì)話框 "參考答案：C13、假定在圖片框 Picture1中裝入了一個(gè)圖形，為了清除該圖形（不刪除圖片框） ，應(yīng)采用的正確方法是______。A：執(zhí)行語(yǔ)句 Picture1.Picture=""14B：執(zhí)行語(yǔ)句 Picture1.Picture=LoadPicture("")C：選擇圖片框，然后按 Del鍵D：選擇圖片框，在屬性窗口中選擇 Picture屬性條，然后按回車鍵參考答案：B14、在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，名稱分別為 Command1和Text1，然后編寫(xiě)如下程序：PrivateSubCommand1_Click()a=InputBox("請(qǐng)輸入日期（1～31）")t="旅游景點(diǎn)："_IIf(a>0Anda<=10,"長(zhǎng)城","")_IIf(a>10Anda<=20,"故宮","")_IIf(a>20Anda<=31,"頤和園","")Text1.Text=tEndSub程序運(yùn)行后，如果從鍵盤(pán)上輸入 16，則在文本框顯示的內(nèi)容是 ______。A：旅游景點(diǎn)：長(zhǎng)城頤和園 B：旅游景點(diǎn)：長(zhǎng)城故宮C：旅游景點(diǎn)：頤和園 D： 旅游景點(diǎn)：故宮參考答案：D15、若變量 a未事先定義而直接使用（例如： a=0），則變量a的類型是______。A：Variant B：String C：Boolean D：Integer參考答案：A16、有如下程序：：PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為 ______。A：30 B：12 C：24 D：18參考答案：B17、以下能從字符串 "VisualBasic"中直接取出子字符串 "Basic"的函數(shù)是______。A：StringB：MidC：LeftD：Instr15參考答案：B18、設(shè)窗體上有一個(gè)列表框控件 List1，含有若干列表項(xiàng)。以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是______。A：List1.ListIndexB：List1.ListC：List1.TextD：List1.Index參考答案：C19、設(shè)a=5,b=10，則執(zhí)行 c=Int((b-a)*Rnd+a)+1 后，c值的X圍為_(kāi)_____。A：6~10B：6~9C：5~10D：5~9參考答案：A20、在窗體上有1個(gè)名為Cd1的通用對(duì)話框，為了在運(yùn)行程序時(shí)打開(kāi)保存文件對(duì)話框，則在程序中應(yīng)使用的語(yǔ)句是______。A：Cd1.Action=2B：Cd1.ShowSave=TrueC：Cd1.Action=1D：Cd1.ShowSave=0參考答案：A21、下面可以正確定義 2個(gè)整型變量和 1個(gè)字符串變量的語(yǔ)句是 ______。A：DimaAsInteger,b,cAsStringB：Dima%,b$,cAsStringC：Dimn,mAsInteger,sAsStringD：Dimx%,yAsInteger,zAsString參考答案：D22、在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為 Command1和Text1，把文本框的Text屬性設(shè)置為空白，然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()a=InputBox("Enteraninteger")b=InputBox("Enteraninteger")Text1.Text=b+aEndSub16程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入 8和10，則文本框中顯示的內(nèi)容是______。A：出錯(cuò)B：18C：810D：108參考答案：D23、在窗體上畫(huà)一個(gè)名稱為CommonDialog1的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕。然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()CommonDialog1.FileName=""CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1EndSub對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 ______。A：在該對(duì)話框中指定的默認(rèn)文件類型為文本文件 (*.Txt)B：在該對(duì)話框中指定的默認(rèn)文件名為空C：該對(duì)話框的標(biāo)題為 VBTestD：該對(duì)話框被設(shè)置為 "打開(kāi)"對(duì)話框參考答案：A24、設(shè)在窗體 Forml上有一個(gè)列表框 Listl，其中有若干個(gè)項(xiàng)目。 要求單擊列表框中某一項(xiàng)時(shí)，把該項(xiàng)顯示在窗體上，正確的事件過(guò)程是 ______。A：PrivateSubList1_Click()PrintForm1.TextEndSubB：PrivateSubForm1_Click()PrintList1.TextEndSubC：PrivateSubList1_Click()PrintList1.TextEndSubD：PrivateSubForm1_Click()List1.PrintList1.TextEndSub參考答案：C25、在窗體上從左到右有 Text1、Text2兩個(gè)文本框（見(jiàn)圖），要求運(yùn)行程序時(shí)在 Text1中輸入1個(gè)分?jǐn)?shù)后按回車鍵，則判斷分?jǐn)?shù)的合法性，若分?jǐn)?shù)為 0～100中的1個(gè)數(shù)，則光標(biāo)移到17Text2中；否則光標(biāo)不動(dòng)，并彈出對(duì)話框 "分?jǐn)?shù)錯(cuò)"。下面程序中正確的是 ______。A：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回車符的ASCII碼是13a=Val(Text1)Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)")EndIfEndIfEndSubB：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回車符的ASCII碼是13a=Val(Text1)Ifa>=0Ora<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)")EndIfEndIfEndSubC：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回車符的ASCII碼是13a=Val(Text1)Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)")EndIfEndIfEndSubD：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '回車符的ASCII碼是13a=Val(Text1)Ifa>=0Anda<=100ThenText1.SetFocusElseText2.SetFocus:MsgBox("分?jǐn)?shù)錯(cuò)")EndIfEndIfEndSub18參考答案：C26、假定通用對(duì)話框的名稱為 CommonDialog1，命令按鈕的名稱為 Command1，則單擊命令按鈕后，能使打開(kāi)的對(duì)話框的標(biāo)題為 "NewTitle"的事件過(guò)程是 ______。A：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowPrinterEndSubB：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowColorEndSubC：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowOpenEndSubD：PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontEndSub參考答案：C27、在窗體上畫(huà)一個(gè)通用對(duì)話框，程序運(yùn)行后，通過(guò) ShowOpen方法顯示"打開(kāi)"對(duì)話框，要求在該對(duì)話框的 "文件類型"欄中只顯示擴(kuò)展名為 DOC的文件，則對(duì)通用對(duì)話框的 Filter屬性的正確設(shè)置是： ______。A："(*.DOC)*.DOC" B："(*.DOC)|(.DOC)" C："(*.DOC)|*.DOC" D："(*.DOC)||*.DOC"參考答案：C28、以下說(shuō)法中正確的是 ______。A：只有當(dāng)某個(gè)窗體為當(dāng)前活動(dòng)窗體時(shí)，才能打開(kāi)菜單編輯器B：任何時(shí)候都可以通過(guò)執(zhí)行 "工具"菜單中的"菜單編輯器"命令打開(kāi)菜單編輯器C：任何時(shí)候都可以通過(guò)單擊標(biāo)準(zhǔn)工具欄上的 "菜單編輯器"按鈕打開(kāi)菜單編輯器D：只有當(dāng)代碼窗口為當(dāng)前活動(dòng)窗口時(shí)，才能打開(kāi)菜單編輯器參考答案：A29、為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把計(jì)時(shí)器的某個(gè)屬性設(shè)置為 False，這個(gè)屬性是 ______。A：Timer B：Visble C：Enabled D：Interval參考答案：C30、某人在窗體上畫(huà)了一個(gè)名稱為 Timer1的計(jì)時(shí)器和一個(gè)名稱為 Label1的標(biāo)簽，計(jì)時(shí)器的屬性設(shè)置為 Enabled=True，Interval=0，并編程如下。希望在程序運(yùn)行時(shí)，可以每 2秒在標(biāo)簽上顯示一次系統(tǒng)當(dāng)前時(shí)間。19PrivateSubTimer1_Timer()Label1.Caption=Time$EndSub在程序執(zhí)行時(shí)發(fā)現(xiàn)未能實(shí)現(xiàn)上述目的，那么，他應(yīng)做的修改是 ______。A：通過(guò)屬性窗口把計(jì)時(shí)器的 Enabled屬性設(shè)置為 FalseB：把事件過(guò)程中的 Label1.Caption=Time$語(yǔ)句改為 Label1.Caption=Timer1.TimeC：通過(guò)屬性窗口把計(jì)時(shí)器的 Interval屬性設(shè)置為 2000D：把事件過(guò)程中的 Label1.Caption=Time$語(yǔ)句改為 Timer1.Interval=Time$參考答案：C31、若設(shè)置了文本框的屬性 PasswordChar="$"，則運(yùn)行程序時(shí)向文本框中輸入 8個(gè)任意字符后，文本框中顯示的是 ______。A：無(wú)任何內(nèi)容 B：1個(gè)"$" C：8個(gè)"*" D：8個(gè)"$"參考答案：D32、在窗體上有如下圖所示的控件，各控件的名稱與其標(biāo)題相同，并有如下程序：PrivateSubForm_Load()Command2.Enabled=FalseCheck1.Value=1EndSub剛運(yùn)行程序時(shí)，看到的窗體外觀是 ______。A：B：C：D：參考答案：D33、要使兩個(gè)單選按鈕屬于同一個(gè)框架，正確的操作是 ______。A：先畫(huà)一個(gè)框架，再在框架外畫(huà)兩個(gè)單選按鈕，然后把單選按鈕拖到框架中B：其他選項(xiàng)方法都正確C：先畫(huà)一個(gè)框架，再在框架中畫(huà)兩個(gè)單選按鈕D：先畫(huà)兩個(gè)單選按鈕，再畫(huà)框架將單選按鈕框起來(lái)參考答案：C34、在窗體上畫(huà)一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為 List1和Command1，然后編寫(xiě)如下事件過(guò)程PrivateSubForm_Load()20List1.AddItem"Item1"List1.AddItem"Item2"List1.AddItem"Item3"EndSubPrivateSubCommand1_Click()List1.List(List1.ListCount)="AAAA"EndSub程序運(yùn)行后，單擊命令按鈕，其結(jié)果為 ______。A：把列表框中原有的最后一項(xiàng)改為 "AAAA"B：把字符串"AAAA"添加到列表框的最后（即 "Item3"的后面）C：把字符串"AAAA"添加到列表框中，但位置不能確定D：把字符串"AAAA"插入到列表框的最前面（即 "Item1"的前面）參考答案：B35、在窗體上畫(huà)1個(gè)命令按扭（名稱為Command1）和1個(gè)文本框（名稱為T(mén)ext1），然后編寫(xiě)如下事件過(guò)程：PrivateSubCommand1_Click()x=Val(Text1.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序運(yùn)行后，在文本框中輸入 3，然后單擊命令按扭，則以下敘述中正確的是 ______。A：先執(zhí)行 y=x*x，再執(zhí)行 y=-xB：執(zhí)行y=-xC：執(zhí)行y=x*xD：程序出錯(cuò)參考答案：C36、以下不能輸出 "Program"的語(yǔ)句是______。A：PrintLeft("VBProgram",7)B：PrintRight("VBProgram",7)C：PrintMid("VBProgram",3)D：PrintMid("VBProgram",3,7)參考答案：A2137、窗體上有 1個(gè)名稱為 Text1的文本框和 1個(gè)名稱為 Command1的命令按鈕。要求程序運(yùn)行時(shí)，單擊命令按鈕，就可把文本框中的內(nèi)容寫(xiě)到文件 out.txt 中，每次寫(xiě)入的內(nèi)容附加到文件原有內(nèi)容之后。下面能夠正確實(shí)現(xiàn)上述功能的程序是 ______。A：PrivateSubCommand1_Click()Open"out.txt"ForAppendAs#1Print#1,Text1.TextClose#1EndSubB：PrivateSubCommand1_Click()Open"out.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSubC：PrivateSubCommand1_Click()Open"out.txt"ForInputAs#1Print#1,Text1.TextClose#1EndSubD：PrivateSubCommand1_Click()Open"out.txt"ForRandomAs#1Print#1,Text1.TextClose#1EndSub參考答案：A38、設(shè)有如圖所示窗體和以下程序：PrivateSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubText1_LostFocus()IfText1.text<>"BASIC"ThenText1.Text=""Text1.SetFocusEndIfEndSub程序運(yùn)行時(shí)，在Text1文本框中輸入"Basic"（如圖所示），然后單擊Command1按鈕，則產(chǎn)生的結(jié)果是______。A：文本框中為 "Basic"，焦點(diǎn)在文本框中B：文本框中無(wú)內(nèi)容，焦點(diǎn)在文本框中C：文本框中為 "Basic"，焦點(diǎn)在按鈕上D：文本框中為 "VisualBasic"，焦點(diǎn)在按鈕上22參考答案：B39、為了使一個(gè)窗體從屏幕消失但仍在內(nèi)存中，所使用的方法或語(yǔ)句為 ______。A：UnloadB：LoadC：ShowD：Hide參考答案：D40、某人創(chuàng)建了 1個(gè)工程，其中的窗體名稱為 Form1；之后又添加了一個(gè)名為 Form2的窗體，并希望程序執(zhí)行時(shí)先顯示 Form2窗體，那么，他需要做的工作是 ______。A：把Form2的TabIndex屬性設(shè)置為1，把Form1的TabIndex屬性設(shè)置為2B：在Form1的Load事件過(guò)程中加入語(yǔ)句LoadForm2C：在Form2的Load事件過(guò)程中加入語(yǔ)句Form2.ShowD：在工程屬性對(duì)話框中把"啟動(dòng)對(duì)象"設(shè)置為Form2參考答案：D41、CommonDialog控件可以顯示 ______種對(duì)話框。A：4種B：5種C：7種D：6種參考答案：