vb習(xí)題(含答案)

1、vb習(xí)題（含答案）本卷共有3道大題:一、單項(xiàng)選擇題（50道小題，共50分）1、VB程序中，通常不會產(chǎn)生錯誤提示的是（）。（1 分）I；1A、編譯錯誤B、邏輯錯誤篤C、運(yùn)行時錯誤D、實(shí)時錯誤2、在設(shè)計階段，雙擊窗體上任一空白處，打開的窗口是（1分）C A、工程資源管理器窗口B、代碼窗口門C、工具箱窗口D、屬性窗口3、下列說法中，正確的說法是 （）。（1 分）A、窗體名稱和該窗體文件名必須一致B、窗體名稱和該窗體文件名可以不相同C C、窗體名稱和該窗體文件名不能使用漢字D、窗體名稱不能使用漢字、但該窗體文件名能使用漢字4、VisualBasic有完備的Help聯(lián)機(jī)幫助功能，可以通過按下功能鍵）得到

2、幫助。（1分）A、F9B、F8C、F1D、F55、以下（）控件可作為容器使用。（1分）A、LabelB、PictureBoxC、TextBoxD、Image6、將窗體的 BoderStyle 屬性設(shè)置為（）可使窗口不顯示標(biāo)題欄。（1分）A、0B、C、2D、7、文本框沒有（）屬性（1分）A、TextB、NameC、CaptionD、BorderStyle（1分）8、以下關(guān)于命令按鈕的控件屬性的描述中，不正確的是A、Default用來設(shè)置缺省命令按鈕B、ForeColor用來設(shè)置前景色C、Font用來設(shè)置字體D、Caption用來設(shè)置標(biāo)題9、設(shè)置標(biāo)簽Labell的（）屬性使它不可見。（1分）B、L

3、abel1.VisibleI4- A A、Label1.VisibleC、Label1.VisibleTruD、Label1.VisibleFalse10、要使時鐘控件的 Timer事件每隔3秒發(fā)生一次，應(yīng)該把它的 Interval屬性設(shè)置為（）o （1 分）A、3B、30門 C、300D、 300011、將當(dāng)前目錄下的圖形文件 Clock.jpg 裝入圖片框Picture1的語句是（）o （1 分）A、Picture"Clock1.jpg"B、PictureLoadPicture（"Clock1.jpg"）12、13、14、15、C、Picture1.

4、Picture"Clock1.jpg"D、Picture1.pictureLoadPicture（"Clock1.jpg"決定一個控件不可見，要將該控件的A、EnablC、Width以下算術(shù)運(yùn)算符中，優(yōu)先級最低的是A、C、八下列表達(dá)式中，合法的是 （A、 a<b+cC、a< b+c分）屬性設(shè)置為）。（1 分）False 。（1分）B、D、B、D、VisibleText表達(dá)式 4+56*7/8 mod 9的值是（）o （1 分）B、D、a> b+caw b+cB、A、416、17、18、19、20、21、22、C、6D、下列語句中，合法的

5、是（A、Print a:spcC、PrintTAB(10):1234.56下列變量名寫法錯誤的是（A、abcC、abc123）。（1 分）)o ( 1 分)判斷正數(shù)a的開平方是否為整數(shù)的正確語句為（A、aC、a已知>0 and>0 ora%=12.8A、12.8C、12.8以下（sqr(a)=chr(a)sqr(a)=int(sqr(a)1415A、Rnd*51+49B、D、B、D、)o ( 1 分)PrintPrintabc123123abcB、aD、ab!=14.5 ,則執(zhí)行 Print a%;b!后，輸出結(jié)果是）語句可表示50,100之間的隨機(jī)整數(shù)。C、Int(Rnd*51)

6、+49函數(shù)UCase（"basic"） 的值為（)o (1 分)>0>0A、BasicC、BAsic設(shè)a="39級臺階"，使b="臺階"的語句是（A、Right(a,4)C、Left(a,5,4)TAB(10)*"VB""Date(orand)"+"Time(sqr(a)=abs(a)sqr(a)=fix(sqr(a)）。（1 分）)"B、D、121314.514.5(1分)(1分)B、D、B、D、B、D、Rnd*51+50Int(Rnd*51)+50basicB

7、ASICInstr(a,5,4)mid(a,4,2)23、下列（）是不合法的常量。（1分）A、100B、 10E02C C、100.0D、10e0.524、下列對變量的定義中，定義X為變體型變量的是（）。（1 分）C A、Dim X as DoubleB、Dim XC、Dim X!D、X%=2325、設(shè)有如下變量聲明：Dim TestDate As Date,為變量 TestDate正確賦值的表達(dá)方式是 （）o （1 分）A、TextDate=#1/1/2002#B、TestDate=#"1/1/2002"#C、TextDate=date（"1/1/2002&qu

8、ot;）D、TestDate=Format（"m/d/yy","1/1/2002"）26、在立即窗口中運(yùn)行以下語句，a="Beijing" :b="ShangHai" :Print分）a,b對其輸出結(jié)果的描述中,正確的是（）。（127、28、A、BeijingC、Beijing語句段A=3:和ShangHai中間沒有空格和ShangHai中間有6個空格B=5:T=a ： a=b: b=t 執(zhí)行后（A、a值為3, b值為3C、a值為5, b值為5下列語句中，正確的是（）。（1 分）B、D、C、Ifx<3*yx&

9、lt;3*y29、下面程序段DimA、5C、130、執(zhí)行語句中顯示的信息是BeijingBeijing）o （ 1 分）B、D、a值為a值為和ShangHai中間有和ShangHai前面有3, b值為55, b值為31個空格7個空格And x>y Then y=xA3 B、If x<3*y Andx>yThen y=3xx>y Then y=xA3C D、If x<3*y Andx>yThen y=x*3x%: x=5: If x Then y=x+1 Else y=x 運(yùn)行后，y 結(jié)果是（）o （ 1 分）B、D、InputBox（"Today&

10、quot;, "Tomorrow", "Yesterday",）o （1 分）顯示出錯信息5,5）,將顯示一個輸入對話框，在對話框的輸入?yún)^(qū)國 A、TodayB、TomorrowC C、YesterdayD、31、窗體上有一個命令按鈕 Commandl編寫如下事件過程:Sub,Private Sub Command1_Click（） :x =單擊命令按鈕，先后在兩個輸入對話框中輸入Val(InputBox("x=")123和321,窗體顯示的內(nèi)容是 （InputBox("y=")o ( 1 分)Print x + y

11、EndA、 444B、 123321C、 123+321D、出錯信息32、執(zhí)行語句MsgBox "AAA", 2, "BBB"后，所產(chǎn)生的消息框的標(biāo)題是 （）。（1 分）A、AAAB、BBBC、2D、出錯，不能產(chǎn)生消息框33、已知：a"Software and Hardware" , bLen(a) , cRight(a, 8),執(zhí)行 MsgBox a, b, c 后,在彈出的信息框的標(biāo)題欄中顯示的信息是 （)o ( 1 分)卜 A A、Software and HardwareB、SoftwareC、HardwareD、1934、閱

12、讀下列程序段： m = 0:For i1 To 3:For1 Toi:m = m + j:Nextj,i:執(zhí)行以上的循環(huán)后,i和m的值分別為（）。（1 分）A、3B、10C、4D、1035、窗體上有一個命令按鈕Command 1編寫如下事件過程:PrivateSub Command1_Click():0:For mTo3:a + 1:0:For j1 To3:1:b + 2:b =Next j:A、Next m:Print a,b:End Sub,運(yùn)行時，單擊按鈕,輸出結(jié)果是）。（1 分）B、1812D、121836、若有10,則循環(huán)結(jié)構(gòu)DoUntil k < 0: k1:Loop中的循

13、環(huán)體執(zhí)行次數(shù)是（(1分)A、9B、10C、11D、無數(shù)次37、下列語句中，不能實(shí)現(xiàn)循環(huán)100次的是（）。（1 分）C A、N=0:Do:N=N+1: Loop Until N>=100B、N=0:Do:N=N+1: Loop While N<10038、39、40、41、42、C、N=0:Do:N=N+1: Loop Until N<100D、N=0:Do WhileN<100:N=N+1: Loop設(shè)a為整型變量，不能正確表達(dá)數(shù)學(xué)關(guān)系10 < a < 15的VB表達(dá)式是（A、10 <a < 15B、C、a >在 VisualA、x>

14、y10 And a < 1511 Or aD、NotBasic中，能正確描述條件"x>y>z"的表達(dá)式是（and zC、 x>y>z如果變量nop的值為2,則執(zhí)行完語句 op分）A、春C、秋執(zhí)行下列語句 aA、5C、6B、D、Choose(nop, "春",B、D、3:xIIf(a> 5,int(-5.6),Fix(5.6)B、D、結(jié)束當(dāng)前程序運(yùn)行的語句是（)o (1 分)A、quitB、C、endD、43、要從 For Next循環(huán)中退出循環(huán)，應(yīng)使用（）語句12(a<= 10)(1分)Or a13 Or aAn

15、d Not ( a >=15)14x>y(1分)and y>zx> y and>z"夏"，"秋","冬")后，op的值為（后，x的值是（)o (1 分)-5-6exitsub(1分)A、ExitB、ExitForC C、ContinueD、StopLoop44、如下數(shù)組聲明語句Dim a（3,-2 To 1,5）中數(shù)組a包含的元素個數(shù)為）。（1 分）門 A、96B、7545、46、47、C、60D、13下列語句錯誤的是（)o (1分)A、PrivateC、Dim a()能使一維數(shù)組a(-10To 5)B、

16、Dima(N)'N為變量Asarr(6)A、ReDim arr(7)C、Public arr(1窗體上有一個命令按鈕PrivateNext j:分)A、0C、2IntegerD、Dima%(10,-10 To -10)元素個數(shù)加1,但保留數(shù)組中原有元素的語句是To 7)Command 1編寫如下事件過Sub Command1_Click():Dim a(10):）。（1 分）B、D、ReDimStaticPreserve arr(7)arr(7)Text1.Texta(0)+ a(a(10)/a(6):For jEndB、D、6 To 10:a(j)= jSub,運(yùn)行時，單擊按鈕，Te

17、xt1中顯示（5:48、以下定義數(shù)組或給數(shù)組元素賦值的語句中，錯誤的是）。（1 分）A、Dim aa=Array(1,2,3,4,5)B、Dima()a=Array(1,2,3,4,5)C、Dim A%() :a=Array(1,2,3,4,5)D、Dima AsVarianta= Array(1, 2,3,4,5)49、當(dāng)工程中有多個窗體時，必須指定啟動窗體，其方法是：選擇“工程”菜單中的“工程屬性”命令，打開“通用”選項(xiàng)卡,在（）中選擇運(yùn)行時顯示的第一個窗體。(1分)A、工程類型r ，一B、工程名稱C、工程描述D、啟動對象50、在窗體 Forml的單擊事件中，與 Forml.Hide等價的

18、語句是（）。（1 分）A、Forml.ClsB、Me.HideC、Me.ClsD、Forml.UnLoad、填空題(6道小題，共30分)1、* 輸出 Fibonacci 數(shù)歹U 1, 1, 2, 3, 5, 8,的前 20 項(xiàng)* 程序代碼如下：PrivateSubCommand1_Click()Dims%,a%,b%,c%a=1b=1Print aPrint bFor i = 3 To 20c = a + bPrint ca=bb=cNext iEnd Sub(4分)2、*使用雙循環(huán)實(shí)現(xiàn)倒三角形輸出*程序代碼如下：Private Sub Command1_Click()For i = 1 To

19、 5Print Tab(25 + i );For j = 1 To 11-2*iPrint "*"；Next jPrintNext iEnd Sub(4分)3、*利用數(shù)組求裴波那契數(shù)列1,1,2,3,5，并將其累加起來，直至其和首次大于200時為止Private Sub Command動 _Click()Dim a(20) As Integer, i As Integer, s As Integer a(1)= 1:a(2)= 1Print a(1);a(2);i = 2:s = a(1)+a(2)Do i = i+ 1a(i) = a(i -1)+ a(i - 2)Pri

20、nt a(i);s = s + a(i)Loop Until s > 200 Print:Print "S=" sEnd Sub(4分)4、* 參照圖<5-2.jpg>,完善下列程序。*在窗體的標(biāo)簽1中每隔1秒刷新顯示當(dāng)前系統(tǒng)時間，并且動態(tài)改變其前景色和字體大小。5-2.jpgPrivate Sub Form_Load()Timer1. Interval= 1000End SubPrivate Sub Timer1_Timer()Dim z AsLabellIntegerTime()Int(Rnd *5 + 1)labell.BackColorLabel1

21、.fontsize=Choose(z, vbRed, vbYellow, vbGreen, vbBlue, vbWhite)Int(Rnd * 21+10)End Sub（【下載文件“ 5-2.jpg（6分）】；）下載方法：在鏈接上右擊打開彈出菜單，選擇“目標(biāo)另存為”。5、* 參照圖<12-1.jpg>,完善下列程序。*在窗體的文本框中輸入數(shù)字，當(dāng)光標(biāo)離開文本框的時候判斷該數(shù)字是否能被 出現(xiàn)消息框“恭喜”，否則清空文本框并使光標(biāo)重新回到該文本框中。3整除，若可以則全選輸入的數(shù)字并且'12-1.jpgPrivate Sub Text1_LostFocus()If Val(Te

22、xt1) Mod 30 ThenTextl.SetFocusText1.selstart=Text1.sellengthMsgbox"恭喜！"Len(Text1)ElseText1.SetFocusText1EndIfEndSub（【下載文件“ 12-1.jpg（6分）】；）下載方法：在鏈接上右擊打開彈出菜單，選擇“目標(biāo)另存為”。6、*編寫一個文本框復(fù)制的程序，如圖 <x_29.jpg>所示。運(yùn)行過程：1 .程序啟動時，設(shè)置上面文本框的最大長度為10,文本框2不允許用戶輸入。2 .在上面文本框（Text1 ）填入文本，選中其中部分文本3 .單擊清除按鈕（Command 1 ,清除兩個文本框內(nèi)容。4 .單擊復(fù)制按鈕（Command?,將上面文本框（Text1 ）選中文本復(fù)制到下面文本框（ Text2 ）x_29.jpgPrivateSub Form_Load()Text1. maxlength10Text2. lockedT