VB程序設(shè)計(jì)基礎(chǔ)模擬試題

1、VB 程序設(shè)計(jì)模擬試題填空題1.窗體模塊的文件擴(kuò)展名為_FRM_、標(biāo)準(zhǔn)模塊的文件擴(kuò)展名為_BAS_、類模塊文件的擴(kuò)展名為_CLS_。2.Visual Basic中數(shù)據(jù)類型可分為_標(biāo)準(zhǔn)數(shù)據(jù)類型_和用戶自定義數(shù)據(jù)類型兩大類，前者根據(jù)其取值的不同，可分為_整型_、_長整型_、 布爾型和_字符型_。3.Abs(-6.5)= _6.5_；Int(-9.1)=_-10_。4.程序& 設(shè)計(jì)運(yùn)算結(jié)果為_程序設(shè)計(jì)_。5.Dim a, b as Boolean語句顯式聲明變量a是_變體_變量，b是_布爾_變量。6.MsgBox函數(shù)的返回值中，VBRetry表示單擊了_重試_按鈕，VBYes表示單擊了_是_

2、按鈕，VBNo表示單擊了_否_按鈕。7.要加載窗體，可以在代碼中使用_語句，要顯示窗體，可以在代碼中使用_方法，要隱藏窗體，可以在代碼中使用Hide方法，要卸載窗體，可以在代碼中使用_方法。8.對話框分為_對話框和_對話框兩種類型，其中_對話框最常用。9.對象是Visual Basic應(yīng)用程序的基本單元，它是由_類_創(chuàng)建的。在Visual Basic中可以 用屬性、_方法_、_事件_來說明和衡量一個(gè)對象的特性。10.條件判斷語句可以使用Ifthen_語句、_lfThenElse_語句和_IfThenElself_語句。Select case語句11.聲明一個(gè)值為3.14的常量Pi的語句為_Co

3、nst pi = 3.14_。12. Do - Loop Un til循環(huán)結(jié)構(gòu)中，當(dāng)條件為_真_時(shí)結(jié)束循環(huán)。13.要顯示彈出菜單，可以在代碼中使用_事件。14.參數(shù)傳遞有_方式、_方式和命名傳遞方式， 常量默認(rèn)采用_方式；變量默認(rèn)采用_方式；表達(dá)式默認(rèn)采用_方式。15.名稱屬性必須以一個(gè)_字母標(biāo)點(diǎn)_開始并且最長可達(dá)40個(gè)字符,不能包括_符號_和_空格_。16. Visual Basic的程序模塊有3種：_窗體模塊_、標(biāo)準(zhǔn)模塊和_類模塊_。17. Visual Basic程序，按其語句代碼執(zhí)行的先后順序，可以分為_順序_結(jié)構(gòu)、選擇_結(jié)構(gòu)和_循環(huán)_結(jié)構(gòu)。18.數(shù)組元素下標(biāo)的下界默認(rèn)為是_，如果要改

4、變其默認(rèn)值，應(yīng)使用_。判斷題()1. Visual Basic運(yùn)行程序的方法只有編譯模式。()2.語句Command1.visible=false與Command1.enabled=false是等價(jià)的。()3. InputBox函數(shù)和MsgBox函數(shù)一樣，返回的是字符串。()4.通過類模塊，我們不可以根據(jù)需要建立自己的控件。(X )5. 2.1E+5是合法的Visual Basic數(shù)據(jù)。()6.根據(jù)占用內(nèi)存方式的不同，可將數(shù)組分為常規(guī)數(shù)組和動態(tài)數(shù)組兩種類型。(V )7. x2是合法的變量名。()8.按照文件的存取方式及其組成結(jié)構(gòu)可以分為兩種類型：文本文件和隨機(jī)文件。(V )9. DoLoop

5、Un til語句實(shí)現(xiàn)循環(huán)時(shí)，不管條件真假，首先無條件地執(zhí)行一次循環(huán)。(X )10.標(biāo)簽沒有change事件和setFocus方法。(X )11. VB對象就是窗體和控件。(X )12.要實(shí)現(xiàn)同樣的循環(huán)控制，在Do WhileLoop和DO- Loop While循環(huán)結(jié)構(gòu)中給定的循環(huán)條件是一樣的。( X )13.文本框和標(biāo)簽通過同一屬性在窗體上顯示文字。()14.能夠改變復(fù)選框背景顏色的屬性是BackColor。()15.當(dāng)圖片框Picturebox控件的Autosize屬性為true時(shí)，超過圖片框尺寸的圖片其超過部分會被圖片框截去。( X )16.所有對象的屬性都可以在屬性窗口中設(shè)定。( X

6、)17. Msgbox函數(shù)建立的信息框既能顯示信息又能輸入用戶的信息。()18.使用Open語句可以創(chuàng)建新的順序文件。( X )19.要在窗體上添加控件，不能通過雙擊工具箱中對應(yīng)的控件圖標(biāo)實(shí)現(xiàn)。( X )20.TextBox與Label有許多共同的特點(diǎn)，它們都能顯示和輸入文字。( V )21.方法Form1.show與Form1.visible=True是等效的。(V )22.DO - Loop Un til語句實(shí)現(xiàn)循環(huán)時(shí)，不管條件真假，首先無條件地執(zhí)行一次循環(huán)。( X )23.函數(shù)Str(26)與Str(-26)的值的長度相同。(V )24.每個(gè)Vb對象都有name屬性。()25.在Visu

7、al Basic中，向過程傳遞參數(shù)時(shí)，按地址傳遞參數(shù)是缺省的。(V )26. Do-Loop until語句實(shí)現(xiàn)循環(huán)時(shí)，只要條件是假，循環(huán)將一直進(jìn)行下去。( X )27.文本框和標(biāo)簽通過同一屬性在窗體上顯示文字。( X )28.要實(shí)現(xiàn)同樣的循環(huán)控制，在Do While-Loop和DO-Loop While循環(huán)結(jié)構(gòu)中給定的循 環(huán)條件是一樣的。( V )29.將焦點(diǎn)主動設(shè)置到指定的控件或窗體上，應(yīng)采用Setfocus方法。(X )30.使用Open語句可以創(chuàng)建新的順序文件。 寫出下面的程序運(yùn)行結(jié)果1.程序1Private Sub Form_ load ( )MsgBox 你好End Sub運(yùn)行結(jié)果

8、：_彈出消息框,提示為”你好”_。2.程序2Dim NumberNumber = 8Select Case NumberCase 1 To 5Print Between 1 and 5Case 6 To 10Print Between 6 and 10Case ElsePrint Not between 1 and 10End Select運(yùn)行結(jié)果：_Between 6 and10_。3.程序3Dim Sub Commandl_Click( )Textl.Text = 07End Sub07。91Dim Sub Comma nd2_Click()Textl.Text =秋季End Sub單擊C

9、omma nd按鈕后，再單擊Comma nd按鈕，在文本框中顯示:4.程序4Private Sub Form_Click()For I = l To 100Sum = Sum+ INext IPrint SumEnd Sub運(yùn)行結(jié)果：5050。5.程序5Private Sub Form_ load ()MsgBox VB程序End Sub運(yùn)行結(jié)果：_彈出消息框，提示為”VB程序”_6.程序6Private Sub Form_Activate()Dim S As Si ngleDim I As In tegerS=1For 1=1 To 5S=S*INextPrint 5!= ;SEnd Sub

10、Next運(yùn)行結(jié)果：7.程序7PrivateSubDimDimFor120Form_Activate()AsAsLong Integer1 To 607。91=;SEnd Sub運(yùn)行結(jié)果：VB 程序設(shè)計(jì)基礎(chǔ)模擬試題判斷題（正確的劃，錯(cuò)誤的劃X,每小題1分，共10分）V）1、面向?qū)ο蟪绦蛟O(shè)計(jì)是一種以對象為基礎(chǔ)，由事件驅(qū)動對象來執(zhí)行的設(shè)計(jì)方法。（X ）Print2、所有對象的屬性都可以在屬性窗口中設(shè)定。(V)3、把當(dāng)前窗體forml隱藏，用forml.hide和me.hide語句均可。(V)4、變量的聲明有兩種方法，即使用“類型說明符”和使用“類型說明詞”均可。(X )5、判斷數(shù)值X是否在0,100

11、范圍可用關(guān)系表達(dá)式：0=X1.7and W62.5_。Print 優(yōu)秀”Case 4Print 良好”Case 3Print 及格Case ElsePrint 不及格End SelectA.優(yōu)秀)18B.良好、循環(huán)結(jié)構(gòu)For i=0 to 10 Step 24B.5C.6、“x是小于100的非負(fù)數(shù)”，用C.及格D.不及格的執(zhí)行次數(shù)是：D.7VB表達(dá)式表示，正確的是:A.x100B.0=x And x100C.)19A.B.C.D.)20A.0=x100、要判斷兩個(gè)整型變量()。A = 0 And B0 or A0A = 0 Xor B = 0A * B = 0 And ABA * B = 0

12、And ( A = 0 Or B = 0 )、下列程序段循環(huán)結(jié)構(gòu)執(zhí)行后，D.0 x Or x100A和B中有且只有一個(gè)為0,不能使用下面哪一個(gè)邏輯表達(dá)式and B = 0C.For i=1 to 10 Step 2 y=y+iNext iPrint i三.填空題(每空2分，共20分)1.語句option explicit2.把條件10WXV1i的輸出值是：B.10D.因?yàn)閥的初值不知道，所以不確定強(qiáng)制變量聲明的作用是2寫成Visual basic表達(dá)式為:Io10=x and x300)a nd(x Mod 3=0)a nd(x Mod 2 0)_。10定時(shí)器控件的In terval屬性值是指

13、時(shí)間間隔，單位為毫秒；當(dāng)每隔此間隔的時(shí)間，定時(shí)器會觸 發(fā)一次計(jì)時(shí)器事件。四.程序填空題：(每空3分，共12分)1.如下程序運(yùn)行后，變量S的值為120,i的值為_6_。Opti on ExplicitPrivate Sub Comma nd1_Click()Dim i As In tegerStatic S As In tegerS = 1For i = 1 To 5S = S * iNext iPrint SEnd Sub2以下程序是求1100之間所有的“偶數(shù)”之和。請?zhí)羁?。Dim s as in tegerDim i as in tegerS=0For i=2 to 100 step2S=S

14、+ _J_Next iPrint S五程序閱讀題(每小題2分，共4分)在窗體上畫一個(gè)名稱為Comma nd的命令按鈕，然后編寫如下事件過程:Private Sub Comma nd1_Click()If n Mod 3 0 Then m = m + n 3Next nPrint nPrint mEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示：n=_6_; m=_2_六程序設(shè)計(jì)題，請將以下橫線中的代碼補(bǔ)充完整。(每空2分，共14分)1假設(shè)某班共有學(xué)生N人，編寫程序統(tǒng)計(jì)該班學(xué)生的Visual Basic考試成績，并顯示出60分以下、6070、7080、8090以及90分以上的學(xué)生人數(shù)各是

15、多少？For nTo 5程序代碼如下：For I =1 to_nScore =val( in putbox(“請輸入成績Private sub form_click()Dim score as si ngleDim x1%,x2%,x3%,x4%,x5%Dim I as in tegerDim N as in tegerscore表示考生的實(shí)際分?jǐn)?shù)x1,x2,x3,x4,x5分別表示各個(gè)分?jǐn)?shù)段的人數(shù)I表示循環(huán)變量N表示參考總?cè)藬?shù))Select caseScoreCase is=90X1=x1+1Case is=80X2=x2+1Case is=70X3=x3+1Case is=60X4=x4+

16、1CaseelseX5=x5+1EndSelectNextiPrint“90分以上：”，x1; “人”Print“8090分： ”，x2; “人”Print“7080分： ”，x3; “人”Print“6070分： ”，x4; “人”Print“60分以下：”，x5; “人”End sub實(shí)驗(yàn)六思考題：設(shè)s,m,n均為String類型的變量,編程實(shí)現(xiàn)：如果s中包含字串m,則將s中的字串m部分替換為n后生成一個(gè)新串并輸出.要求s,m,n的值均由用戶輸入.Private Sub Comma nd1_Click()Dim s As Stri ngDim m As Stri ngDim n As St

17、ri ngDim ls As Stri ngDim i As In tegerDim k As In tegers = InputBox(請輸入S字符串)Text2.Text = sm = InputBox(請輸入m字符串)Text3.Text = mn = InputBox(請輸入n字符串)Text4.Text = ni = In Str(s, m)k = i + Len(m)ls = Left(s, i - 1)Text1.Text = ls + n + Mid(s, k) text1.Text=left(s,i-1)+n+mid(s,k)End SubPrivate Sub Form_C

18、lick()Dim a%, b%, c%, temp As Doublea = Val(InputBox(請輸入a)b = Val(InputBox(請輸入b)c = Val(InputBox(請輸入c)If a b The ntemp = aa = bb = temp End If If a c Thentemp = a a = cc = tempEnd IfIf b c Then temp = b b = c c = tempEnd IfPrint a; b; cEnd SubPrint Result或者Private Sub cmdselect_Click() Dim x As Sing

19、le, y As SingleDim Operator As StringDim result As Single x =Val(InputBox( Operator= InputBox( y =Val(InputBox(輸入第一個(gè)數(shù)：, , 0)輸入運(yùn)算法：, ,+)輸入第二個(gè)數(shù):, , 0)Select Case OperatorCase +: result = x + y Case -: result = x - yCase *: result = x * yCase /: result = x / y End SelectPrint resultEnd Sub1、Private Sub

20、 Form_Click()Dim x%, y%, z%x = Val(InputBox( y= Val(InputBox( z =Val(InputBox(請輸入第一門課程成績)請輸入第二門課程成績)請輸入第三門課程成績)If (x + y + z) / 3) 95 Or (x = 100 And y = 100 And z = 80) Or (x = 100And z = 100 And y = 80) Or (y = 100 And z = 100 And z = 80) Then Print 該同學(xué)獲得一等獎ElseIf (x + y + y) / 3 90 Or (x = 100 An

21、d y = 75 And z = 75) Or (y =100 And x = 75 And z = 75) Or (z = 100 And x = 75 And z = 75) Then Print該同學(xué)獲得二等獎ElseIf x = 70 And y = 70 And z = 70 ThenPrint 該同學(xué)獲得三等獎ElsePrint 該同學(xué)沒有獎項(xiàng)End IfEnd Sub2、 評優(yōu)If語句Private Sub cmdCheck_Click()Dim a%a = Val(InputBox(請輸入一門課程的百分之成績)If a = 90 ThenPrint 優(yōu)秀ElseIf a = 8

22、0 And a = 70 And a = 60 And a = 69 Then Print 及格ElsePrint 不及格End IfEnd Sub評優(yōu)Select語句Private Sub cmdpingyou_Click()Dim a%a = Val(InputBox(請輸入一門課程的百分之成績)Select Case aCase 90 To 100: Print 優(yōu)秀Case 80 To 89: Print 良好Case 70 To 79: Print 中等Case 60 To 69: Print 及格Case Is = 59: Print 不及格End SelectEnd Sub在窗體中產(chǎn)生五彩繽紛的效果。Private Sub Form_Click()Dim i%Dim x, y, colorMe.DrawWidth = 4While Truex = Me.Width * Rnd()y = Me.Height * Rnd()color = RGB(255 * Rnd(), 255 * Rn