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

1、WORD格式VB考試一1、能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是 A： SelStartB ： SelLengthC ： SelTextD ： Text 參考答案： C2、在窗體上畫一個(gè)文本框，其名稱為Text1 ，為了在程序運(yùn)行后隱藏該文本框，應(yīng)當(dāng)使用的語(yǔ)句為： 。A： Text1.Enabled=FalseB ： Text1.HideC： Text1.ClearD ： 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ǔ)句

2、， y=1 為關(guān)系表達(dá)式D： x=1 為關(guān)系表達(dá)式， y=1 為賦值語(yǔ)句參考答案： D4、以下變量名中， 是不符合 VisualBasic 的命名規(guī)范的。A： _mnu_Open_234B： Abc901C： 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 的值為。A： -1B： 6

3、C： 0D： 5 參考答案： A8、可以同時(shí)刪除字符前導(dǎo)和尾部空白的函數(shù)是 A： MidB： RtrimC ： TrimD ： Ltrim參考答案： C9、以下語(yǔ)句的輸出結(jié)果是 。PrintFormat$("32548.5","000,000.00")A： 32,548.5B ： 32548.5C ： 032,548.50D ： 32,548.50 參考答案： C10、設(shè)有如下聲明： DimXAsInteger 如果 Sgn(X)的值為 -1，則 X的值是 。A：等于 0 的整數(shù) B：大于 0 的整數(shù) C：整數(shù) D：小于 0 的整數(shù) 參考答案： D11、

4、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程： PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 。參考答案： 15#15#15#1512、執(zhí)行下面的程序段后， S 的值為 。s=5Fori=2.6To4.9Step0.6s=s+1Nexti 參考答案： 913、下列表達(dá)式有錯(cuò)誤 , 正確的寫法應(yīng)該是 。(a+b)+c/80-5(d ÷+e)參考答案： (a+b+c)/80-5/(d+e)# ( a+b+c) /8

5、0-5/ ( d+e)14、表示 x 是 5 的倍數(shù)或是 9 的倍數(shù)的邏輯表達(dá)式為 參考答案： xMod5=0OrxMod9=0#xMod9=0OrxMod5=015、以下程序的功能是 : 從鍵盤上輸入若干個(gè)數(shù)字，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，統(tǒng)計(jì)出若干數(shù) 字的平均值，輸出結(jié)果。請(qǐng)?zhí)羁?。PrivateSubForm_click()Dimx,yAsSingleDimzAsInteger x=InputBox("Enterascore")Dowhilex>=0y=y+xz=z+1x=InputBox("Enterascore")LoopIfz=0Thenz=1

6、EndIfy=PrintyEndSub參考答案： y/zVB考試二1、列表框中的列表項(xiàng)的數(shù)目可以通過(guò)以下哪個(gè)屬性的值獲得 A： ListIndexB ： ListCountC ： CountD： Index 參考答案： B2、在窗體上畫一個(gè)名稱為 List1 的列表框，一個(gè)名稱為 Label1 的標(biāo)簽。列表框中顯示若干 城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確 實(shí)現(xiàn)上述功能的程序是 。A： PrivateSubList1_Click() Label1.Caption=List1.TextEndSubB： PrivateSubList1_Click()La

7、bel1.Name=List1.ListIndexEndSubC： PrivateSubList1_Click()Label1.Name=List1.TextEndSubD： PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSub參考答案： A 3、在列表框中當(dāng)前被選中的列表項(xiàng)的序號(hào)是由下列哪個(gè)屬性表示A： ListindexB ： IndexC ： ListD ： Tabindex參考答案： A4、為了清除列表框中的所有內(nèi)容，應(yīng)使用的方法是 ： 。A： ClearB ： RemoveC： RemoveItemD： Cls 參考答

8、案： A行處理，應(yīng)5、在窗體上畫一個(gè)名稱為 List1 的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn) 使用的循環(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()Dima DimiAsInteger a=Array(1,2,3,4,5,6,7,8,9)Fori=0To3 Printa(5-i);Next

9、EndSub 程序運(yùn)行后，單擊窗體，則在窗體上顯 _是示的。A：6543B：5432C：4321D：7654 參考答案： A 7、設(shè)執(zhí)行以下程序段時(shí)依 次輸入1 、 3 、 5，執(zhí)行結(jié)_為果_Dima(4)AsInteger,b(4)AsIntegerForK=0To2 a(K+1)=Val(InputBox(" 請(qǐng)輸入數(shù)據(jù)") b(3-K)=a(K+1)NextKPrintb(K)A： 0B： 3C： 5D： 1參考答案： D8、在窗體上畫一個(gè)名稱為 Command1的命令按鈕，然后編寫如下程序：PrivateSubCommand1_Click()DimiAsIntege

10、r,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： 24B： 12C： 15D： 20參考答案： C10、下列 語(yǔ)句可以為動(dòng)態(tài)數(shù)組分配實(shí)際元素個(gè)數(shù)。A： static 語(yǔ)句 B： Dim語(yǔ)句 C： public 語(yǔ)句 D： R

11、eDim語(yǔ)句 參考答案： D11、假定程序中有以下語(yǔ)句： answer=MsgBox("String1","String2","String3",2) 執(zhí)行該語(yǔ)句后，將顯示一個(gè)信息框，此時(shí)如果單擊"確定 "按鈕，則 answer 的值為： A： String3B ： String2C ： String1D ： 1 參考答案： D12、設(shè)有語(yǔ)句 x=InputBox(" 輸入數(shù)值 ","0"," 示例 ") 程序運(yùn)行后，如果從鍵盤上輸入數(shù)值 10 并按回車鍵

12、，則下列敘述中正確的是 。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)=FalseThen a(i)=True ExitForEndIfIfi=5Then flag=TrueEndIfNextLo

13、opPrintjA： 20B： 7C： 8D： 35參考答案： D14、設(shè) a=5， b=6， c=7， d=8，則執(zhí)行下列語(yǔ)句后， x 的值為： 。x=IIF(a>b)And(c<d),10,20)A： 300B： 20C： 30D： 10 參考答案： B15、要將一個(gè)組合框設(shè)置為簡(jiǎn)單組合框( SimpleCombo)，則應(yīng)將其 Style 屬性設(shè)置為 A： 0B： 1C： 3D： 2參考答案： BVB考試三1、設(shè)組合框 Combo1中有 3 個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是 。A： Combo1.RemoveItemCombo1.ListcountB： Combo1.Rem

14、oveItem2C： Combo1.RemoveItem3D： Combo1.RemoveItemText參考答案： B 題分： 62、在窗體上畫一個(gè)命令按鈕，其名稱為Command，1 然后編寫如下程序：FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0ThenFunc=xElseFunc=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=4 c=Func(a,b) Print"a="a Print"b="

15、;b Print"c="c EndSub 程序運(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=nMod10 m=m/10EndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=34CallProcl(x,y)Printx;yEndSubA：123B：

16、23C：1234D：234參考答案： D 題分： 64、以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是 。A：在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)B：函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒有關(guān)系C：當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞D：如果不指明函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型參考答案： B 題分： 65、以下說(shuō)法錯(cuò)誤的是 。A：函數(shù)過(guò)程可以帶參數(shù) B：子過(guò)程沒有返回值C：函數(shù)過(guò)程沒有返回值 D：子過(guò)程可以帶參數(shù)參考答案： C 題分： 66、在窗體上畫一個(gè)命令按鈕(名稱為Command1)，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()D

17、imbAsIntegerb=b+1EndSub運(yùn)行程序，三次單擊命令按鈕后，變量b 的值是： 。A： 2B： 1C： 0D： 3參考答案： B 題分： 67、假定有以下函數(shù)過(guò)程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1)+s1NextiFun=s1EndFunction在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1=InputBox(" 請(qǐng)輸入一個(gè)字符串 &qu

18、ot;)Str2=Fun(Str1)PrintStr2EndSub"abcdefg" 則單擊 " 確定" 按鈕后程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串 在窗體上的輸出結(jié)果為 。A： GFEDCBA B： ABCEDFG C： gfedcba D： 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： S

19、ub過(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、在窗體上畫一個(gè)名稱為 Command1的命令按鈕，然后編寫如下程序：PrivateSubCommand1_Click()StaticXAsIntegerStaticYAsIntegerClsY=1Y=Y+5X=5+XPrintX,YEndSub程序運(yùn)行時(shí)，三次單擊命令按鈕 Comma

20、nd1后，窗體上顯示的結(jié)果為 A：1515B：156C：151611專業(yè)資料整理WORD格式D：56參考答案： 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：如果 "條件" 總是為 True ，則不停地執(zhí)行循環(huán)體參考答案： C 題分： 612、在窗體上畫一個(gè)名稱為 Command1的命令按鈕，然后編寫如下通用過(guò)程和命

21、令按鈕的 事件過(guò)程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示是 。A： 7B： 6C： 8D： 9參考答案： A 題分： 6VB考試四1、某人編寫了如下程序，用來(lái)求10 個(gè)整數(shù)(整數(shù)從鍵盤輸入)中的最大值：PrivateSubCommand1_Click()Dima(1

22、0)AsInteger,maxAsIntegerFork=1To10a(k)=InputBox(" 輸入一個(gè)整數(shù) ")Nextkmax=0Ifa(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=

23、2To10D：把 max=0 改為 max=a(10)參考答案： D2、設(shè)有語(yǔ)句： Open"d:Test.txt"ForOutputAs#1 ，以下敘述中錯(cuò)誤的是 。A：執(zhí)行該語(yǔ)句后，就可以通過(guò) Print# 語(yǔ)句向文件 Test.txt 中寫入信息 B：用該語(yǔ)句建立的文件的文件號(hào)為1C：該語(yǔ)句打開 d 盤根目錄下一個(gè)已存在的文件 Test.txt ，之后就可以從文件中讀取信息 D：若 d 盤根目錄下無(wú) Test.txt 文件，則該語(yǔ)句創(chuàng)建此文件 參考答案： C3、工程中有 2 個(gè)窗體，名稱分別為 Form1、 Form2， Form1 為啟動(dòng)窗體，該窗體上有命令按 鈕

24、Command。1 要求程序運(yùn)行后單擊該命令按鈕時(shí)顯示Form2，則按鈕 Click 事件過(guò)程應(yīng)該A： PrivateSubCommand1_Click()Form2.LoadEndSubB： PrivateSubCommand1_Click()Form2.VisibleEndSubC： PrivateSubCommand1_Click()LoadForm2EndSubD： PrivateSubCommand1_Click()Form2.ShowEndSub參考答案： D4、在窗體上畫一個(gè)名為 Command1的命令按鈕，然后編寫如下代碼：OptionBase1PrivateSubComman

25、d1_Click()Dimaa=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

26、.ClearEndSubC： PrivateSubCommand1_Click() List1.RemoveItemList1.ListIndexEndSubD： PrivateSubCommand1_Click()List1.RemoveItemEndSub參考答案： C6、窗體上有一個(gè)名稱為 Frame1 的框架（如圖），若要把框架上顯示的 "Frame1" 改為漢字 " 框架" ，下面正確的語(yǔ)句是 。A： Frame1.Caption=" 框架 "B： Frame1.Name="框架 "C： Frame1.T

27、ext=" 框架 "D： Frame1.Value=" 框架 "參考答案： A 7、設(shè)窗體上有一個(gè)圖片框 Picture1 ，要在程序運(yùn)行期間裝入當(dāng)前文件夾下的圖形文件File1.jpg ，能實(shí)現(xiàn)此功能的語(yǔ)句是 A：CallLoadPicture("File1.jpg")B：Picture1.Picture=LoadPicture("File1.jpg")C：LoadPicture("File1.jpg")D：Picture1.Picture="File1.jpg"參考答案：

28、 B8、在窗體上畫一個(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、在窗體上畫一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕，并編寫如下事件過(guò)程：PrivateSubCommand1_Click()CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&

29、;_ "(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exe"CommonDialog1.FilterIndex=3CommonDialog1.ShowOpenMsgBoxCommonDialog1.FileNameEndSub程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè) " 打開"對(duì)話框，此時(shí)在 " 文件類型 "框中顯示的是A： TextFiles(*.txt)B： AllFiles(*.*)C： ExecutableFiles(*.exe)D：不確定 參考答案： C10、在窗體上畫一個(gè)名稱為 Command

30、1命令按鈕，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()c="ABCD"Forn=1To4PrintNextEndSub 程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容DCDBCDABCD則在 處填入的內(nèi)容為。A： Left(c,n)B ： Right(c,n)C ： Mid(c,n,n)D ： Mid(c,n,1)參考答案： B11、在窗體上畫一個(gè)名稱為 Label1 、標(biāo)題為 "VisualBasic 考試" 的標(biāo)簽，兩個(gè)名稱分別為 Command1和 Command、2 標(biāo)題分別為 " 開始 "

31、 和 " 停止 " 的命令按鈕，然后畫一個(gè)名稱為 Timer1 的計(jì)時(shí)器控件，并把其 Interval 屬性設(shè)置為 500 ，如圖所示。編寫如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left<WidthThenLabel1.Left=Lab

32、el1.Left+20ElseLabel1.Left=0EndIfEndSub程序運(yùn)行后，單擊 "開始" 按鈕，標(biāo)簽在窗體中移動(dòng)。對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 。A：?jiǎn)螕?"停止"按鈕后再單擊 "開始" 按鈕，標(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ì)話框 "," 字符串 ")

33、將顯示輸入對(duì)話框。此時(shí)如果直接單擊 " 確定 " 按鈕，則變量 strInput 的內(nèi)容是 。A： "請(qǐng)輸入字符串 "B：空字符串 C： "字符串 "D： "字符串對(duì)話框 "參考答案： C13、假定在圖片框 Picture1 中裝入了一個(gè)圖形，為了清除該圖形(不刪除圖片框)，應(yīng)采用 的正確方法是 。A：執(zhí)行語(yǔ)句 Picture1.Picture=""B：執(zhí)行語(yǔ)句 Picture1.Picture=LoadPicture("") C：選擇圖片框，然后按 Del 鍵 D：選擇圖片

34、框，在屬性窗口中選擇Picture 屬性條，然后按回車鍵參考答案： BCommand1和 Text1 ，然后編寫如14、在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，名稱分別為 下程序：PrivateSubCommand1_Click() a=InputBox(" 請(qǐng)輸入日期( 1 31) ") t=" 旅游景點(diǎn)： "_&IIf(a>0Anda<=10," 長(zhǎng)城 ","")_ &IIf(a>10Anda<=20," 故宮 ","")_ &

35、IIf(a>20Anda<=31," 頤和園 ","")Text1.Text=tEndSub程序運(yù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： VariantB ： StringC ： BooleanD ： Integer參考答案： A 16、有如下程序：PrivateSubForm_Click()DimiAsInteger,sumAsInteg

36、ersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果為 。A： 30B： 12C： 24D： 18參考答案： B17、以下能從字符串 "VisualBasic" 中直接取出子字符串 "Basic" 的函數(shù)是 A：StringB：MidC：LeftD：Instr參考答案： B18、設(shè)窗體上有一個(gè)列表框控件 List1 ，含有若干列表項(xiàng)。以下能表示當(dāng)前被選中的列表項(xiàng) 內(nèi)容的是 。A： List1.ListIndexB： L

37、ist1.ListC：List1.TextD：List1.Index參考答案： C19、設(shè) a=5,b=10 ，則執(zhí)行 c=Int(b-a)*Rnd+a)+1后， c 值的范圍為 A：610B：69C：510D：59參考答案： A20、在窗體上有 1 個(gè)名為 Cd1的通用對(duì)話框，為了在運(yùn)行程序時(shí)打開保存文件對(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,cA

38、sStringB：Dima%,b$,cAsStringC：Dimn,mAsInteger,sAsStringD：Dimx%,yAsInteger,zAsStringCommand1和 Text1 ，把文本框參考答案： D 22、在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為的 Text 屬性設(shè)置為空白，然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()a=InputBox("Enteraninteger")b=InputBox("Enteraninteger")Text1.Text=b+aEndSub程序運(yùn)行后，單擊命令按鈕，如

39、果在輸入對(duì)話框中分別輸入 8 和 10，則文本框中顯示的內(nèi) 容是 。A：出錯(cuò)B： 18C： 810D： 108參考答案： D23、在窗體上畫一個(gè)名稱為 CommonDialog1 的通用對(duì)話框，一個(gè)名稱為 Command1的命令 按鈕。然后編寫如下事件過(guò)程：PrivateSubCommand1_Click()CommonDialog1.FileName=""CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=2CommonDialo

40、g1.DialogTitle="VBTest"CommonDialog1.Action=1EndSub 對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 。A：在該對(duì)話框中指定的默認(rèn)文件類型為文本文件(*.Txt)B：在該對(duì)話框中指定的默認(rèn)文件名為空C：該對(duì)話框的標(biāo)題為 VBTestD：該對(duì)話框被設(shè)置為 " 打開" 對(duì)話框參考答案： A24、設(shè)在窗體 Forml 上有一個(gè)列表框 Listl ，其中有若干個(gè)項(xiàng)目。要求單擊列表框中某一項(xiàng)時(shí)， 把該項(xiàng)顯示在窗體上，正確的事件過(guò)程是 。A： PrivateSubList1_Click()PrintForm1.TextEndSub

41、B： PrivateSubForm1_Click()PrintList1.TextEndSubC： PrivateSubList1_Click()PrintList1.TextEndSubD： PrivateSubForm1_Click()List1.PrintList1.TextEndSub參考答案： C25、在窗體上從左到右有 Text1 、 Text2 兩個(gè)文本框(見圖)，要求運(yùn)行程序時(shí)在 Text1 中輸 入 1 個(gè)分?jǐn)?shù)后按回車鍵，則判斷分?jǐn)?shù)的合法性，若分?jǐn)?shù)為0 100 中的 1 個(gè)數(shù)，則光標(biāo)移到面程序中正確的是 Text2 中；否則光標(biāo)不動(dòng)，并彈出對(duì)話框 " 分?jǐn)?shù)錯(cuò) &qu

42、ot;A： PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then' 回車符的 ASCII 碼是 13 a=Val(Text1)Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocus:MsgBox(" 分?jǐn)?shù)錯(cuò) ")EndIfEndIfEndSubB： PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then' 回車符的 ASCII 碼是 13 a=Val(Text1)Ifa&

43、gt;=0Ora<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox(" 分?jǐn)?shù)錯(cuò) ")EndIfEndIfEndSubC： PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then' 回車符的 ASCII 碼是 13 a=Val(Text1)Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox(" 分?jǐn)?shù)錯(cuò) ")EndIfEndIfEndSubD： Privat

44、eSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then' 回車符的 ASCII 碼是 13 a=Val(Text1)Ifa>=0Anda<=100ThenText1.SetFocusElseText2.SetFocus:MsgBox(" 分?jǐn)?shù)錯(cuò) ")EndIfEndIfEndSub參考答案： C26、假定通用對(duì)話框的名稱為 CommonDialog1，命令按鈕的名稱為 Command，1 則單擊命 令按鈕后，能使打開的對(duì)話框的標(biāo)題為 "NewTitle" 的事件過(guò)程是 。A： Pr

45、ivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowPrinterEndSubB： PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowColorEndSubC： PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.Show

46、OpenEndSubD： PrivateSubCommand1_Click()CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowFontEndSub參考答案： C27、在窗體上畫一個(gè)通用對(duì)話框，程序運(yùn)行后，通過(guò)ShowOpen方法顯示 " 打開 " 對(duì)話框，要求在該對(duì)話框的 " 文件類型 " 欄中只顯示擴(kuò)展名為 DOC的文件，則對(duì)通用對(duì)話框的 Filter 屬 性的正確設(shè)置是： 。A："(*.DOC)*.DOC"B ："(*.DOC)|(.DOC

47、)"C ："(*.DOC)|*.DOC"D ："(*.DOC)|*.DOC" 參考答案： C28、以下說(shuō)法中正確的是 。A：只有當(dāng)某個(gè)窗體為當(dāng)前活動(dòng)窗體時(shí)，才能打開菜單編輯器 B：任何時(shí)候都可以通過(guò)執(zhí)行 " 工具 " 菜單中的 " 菜單編輯器 " 命令打開菜單編輯器 C：任何時(shí)候都可以通過(guò)單擊標(biāo)準(zhǔn)工具欄上的" 菜單編輯器 " 按鈕打開菜單編輯器D：只有當(dāng)代碼窗口為當(dāng)前活動(dòng)窗口時(shí)，才能打開菜單編輯器參考答案： A29、為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把計(jì)時(shí)器的某 個(gè)屬性設(shè)置為 False ，這個(gè)屬

48、性是 。A： TimerB ： VisbleC ： EnabledD ： Interval 參考答案： C30、某人在窗體上畫了一個(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í)間。PrivateSubTimer1_Timer()Label1.Caption=Time$EndSub在程序執(zhí)行時(shí)發(fā)現(xiàn)未能實(shí)現(xiàn)上述目的，那么，他應(yīng)做的修改是 。A：通過(guò)屬性窗口把計(jì)時(shí)器的 Enabled 屬性設(shè)置為 FalseB：把事件過(guò)程中的 Lab

49、el1.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、在窗體上有

50、如下圖所示的控件，各控件的名稱與其標(biāo)題相同，并有如下程序：PrivateSubForm_Load()Command2.Enabled=FalseCheck1.Value=1EndSub剛運(yùn)行程序時(shí)，看到的窗體外觀是 。A：B：C：D：參考答案： D33、要使兩個(gè)單選按鈕屬于同一個(gè)框架，正確的操作是 。A：先畫一個(gè)框架，再在框架外畫兩個(gè)單選按鈕，然后把單選按鈕拖到框架中 B：其他選項(xiàng)方法都正確C：先畫一個(gè)框架，再在框架中畫兩個(gè)單選按鈕D：先畫兩個(gè)單選按鈕，再畫框架將單選按鈕框起來(lái) 參考答案： CList1 和 Command，1 然后編寫34、在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為 如

51、下事件過(guò)程PrivateSubForm_Load()List1.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&qu

52、ot; 的后面)C：把字符串 "AAAA"添加到列表框中，但位置不能確定D：把字符串 "AAAA"插入到列表框的最前面(即 "Item1" 的前面)參考答案： B，然后編35、在窗體上畫 1 個(gè)命令按扭(名稱為 Command)1 和 1 個(gè)文本框(名稱為 Text1 ) 寫如下事件過(guò)程：PrivateSubCommand1_Click() x=Val(Text1.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程

53、序運(yùn)行后，在文本框中輸入 3，然后單擊命令按扭，則以下敘述中正確的是_A：先執(zhí)行 y=x*x ，再執(zhí)行 y=-xB：執(zhí)行 y=-xC：執(zhí)行 y=x*xD：程序出錯(cuò)參考答案： C 36、以下不能輸出 "Program" 的語(yǔ)句是A： PrintLeft("VBProgram",7)B： PrintRight("VBProgram",7)C： PrintMid("VBProgram",3)D： PrintMid("VBProgram",3,7)參考答案： A37、窗體上有 1 個(gè)名稱為 Text1

54、的文本框和 1 個(gè)名稱為 Command1的命令按鈕。要求程序運(yùn) 行時(shí)，單擊命令按鈕，就可把文本框中的內(nèi)容寫到文件 out.txt 中，每次寫入的內(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：

55、 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_LostF

56、ocus()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)在按鈕上參考答案： B

57、39、為了使一個(gè)窗體從屏幕消失但仍在內(nèi)存中，所使用的方法或語(yǔ)句為A：UnloadB：LoadC：ShowD：Hide參考答案： D40、某人創(chuàng)建了 1 個(gè)工程，其中的窗體名稱為 Form1；之后又添加了一個(gè)名為 體，并希望程序執(zhí)行時(shí)先顯示 Form2 窗體，那么，他需要做的工作是 A：把 Form2的 TabIndex 屬性設(shè)置為 1，把 Form1 的 TabIndex 屬性設(shè)置為B：在 Form1 的 Load 事件過(guò)程中加入語(yǔ)句 LoadForm2C：在 Form2的 Load 事件過(guò)程中加入語(yǔ)句 Form2.ShowD：在工程屬性對(duì)話框中把 " 啟動(dòng)對(duì)象 "設(shè)置為 Form2參考答案： D41、CommonDialog 控件可以顯示