VB程序設(shè)計試題及答案分享

1、文檔供參考，可復(fù)制、編制，期待您的好評與關(guān)注！ VB程序設(shè)計期末模擬試題及答案VB期末復(fù)習(xí)題及答案 綜合復(fù)習(xí)題一、填空題1創(chuàng)建一個VB應(yīng)用程序三個主要的步驟是_創(chuàng)建應(yīng)用程序界面_、_設(shè)置屬性_和_編寫代碼_。2當(dāng)程序運(yùn)行時，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計時，應(yīng)當(dāng)在此文本框的_屬性_窗口中，把此文本框的_text_屬性設(shè)置成空白。3Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用_Label_控件；若允許用戶輸入文本，則應(yīng)使用_TextBox_控件。4窗體的常用方法有_Load方法_、_show方法_、 Hide方法_和_Unlo

2、ad方法_。5要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK ，應(yīng)當(dāng)編寫的語句是_Txtshow.Text="GOOD WORK"_。6若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時，打開一個窗口frm1，請對以下事件過程填空。Private Sub Cmdopen_ Click()_Frm1.show_End Sub7Visual Basic 6種類型的表達(dá)式是_數(shù)算表達(dá)式_、_字符串表達(dá)式_、_關(guān)系表達(dá)式_、_布爾表達(dá)式_、_日期表達(dá)式_、_對象表達(dá)式_。Visual Basic根據(jù)表達(dá)式的_運(yùn)算符_來確定表達(dá)式的類型。8表達(dá)式93 7

3、 Mod 2 2 的值是_1_。9已知a=3，b=4，c=5，表達(dá)式a>b and Not c>a Or c>b And c<a+b的值是_True_。表達(dá)式c>a And Not b<c的值是_False_。10日期表達(dá)式 #2/24/02# - #2/12/02# 的值為_12_。11數(shù)學(xué)表達(dá)式sin2x+ 寫成等價的Visual Basic表達(dá)式為_Sin(x) 2 + Sqr(x 2 - y 2) / (2 * x)_。12設(shè)某個程序中要用到一個二維數(shù)組，要求數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從1到5，第二維下標(biāo)從-2到6，則相應(yīng)的數(shù)組聲明語句

4、為_Dim A(1 To 5，-2 To 6) As String_。13事件就是在對象上所發(fā)生的事情，Visual Basic中的事件如_單擊_、_雙擊_、_裝載_等。一個對象響應(yīng)的事件可以有_多_個，用戶不能建立新的事件。事件過程是指_響應(yīng)某個事件后所執(zhí)行的程序代碼_。假設(shè)某一事件過程如下：Private Sub cmd1_Click()   Form1.Caption="VB示例"End Sub則響應(yīng)該過程的對象名是_cmd1_，事件名是_click_。14對象的方法用于_完成某種特定的功能_。當(dāng)方法不需要任何參數(shù)并且也沒有返回值時，調(diào)用對象的方法

5、的格式為_對象名.方法名_，例如，對窗體Form1使用Show方法，應(yīng)寫成_Form1.show。15PictureBox控件可通過設(shè)置其_autosize_屬性為True使之可自動調(diào)整大小；而Image控件可通過設(shè)置其_stretch_屬性為True，使其加載的圖片能自動調(diào)整大小以適應(yīng)Image。16在Visual Basic程序中實現(xiàn)復(fù)制文件“c:”到d:盤根目錄下的語句為_FileCopy "c:"，"d:"_。二、單項選擇題1下列控件中沒有Caption屬性的是（   B   ）A、標(biāo)簽 

6、;      B、文本框         C、框架        D、命令按紐2除框架外，能對單選按紐分組的控件是（   C ）。A、窗體        B、標(biāo)簽     C、圖片框      

7、60; D、圖像3下列符號不能作為VB中變量名的是（  C  ）。      A 、 ABCDEFG     B、 P00000      C、 89YWDDF     D、xyz4 下列不屬于Visual Basic數(shù)據(jù)文件的是（  D  ）。A、順序文件     B、隨機(jī)文件   &#

8、160;  C、二進(jìn)制文件       D、數(shù)據(jù)庫文件5若要求從文本框中輸入密碼時在文本框中只顯示*號，則應(yīng)用在此文本框的屬性窗口中設(shè)置（  D  ）A、Text屬性值為*         B、Caption屬性值為*C、Password屬性值為空    D、PasswordChar屬性值為*6表達(dá)式2*32+2*8/4+32的值為（   B  ）

9、。     A、64       B、31         C、49        D、427表達(dá)式mid("abcdefg",3,2)的值是（   B   ）A、abc   B、cd      &#

10、160; C、bcd       D、abcde8數(shù)學(xué)表達(dá)式Sin25°寫成VB表達(dá)式是（ D   ）。A、Sin25       B、Sin（25） C、Sin（25°）      D、Sin（25*3.14/180）9Sub過程與 Function過程最根本的區(qū)別是（  D  ）。A、Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Fun

11、ction過程不可以。B、Function過程可以有參數(shù)，Sub過程不可以。C、兩種過程參數(shù)的傳遞方式不同。D、Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值。10選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達(dá)式為（  C  ）A、T>=1.7 And W<=62.5             B、T<=1.7 Or W>=62.5C、T>1.7 And W<6

12、2.5               D、T>=1.7 Or W<62.511.下列對象不能響應(yīng) Click事件的是（ D   ）    A、列表框       B、圖片框           C、窗體  &#

13、160;       D、計時器12在Visual Basic中，按文件的訪問方式不同，可以將文件分為（ A    ）A、順序文件、隨機(jī)文件和二進(jìn)制文件         B、文本文件和數(shù)據(jù)文件C、數(shù)據(jù)文件和可執(zhí)行文件                 

14、  D、ASC文件和二進(jìn)制文件13將通用對話框CommonDialog的類型設(shè)置成“顏色”對話框，可調(diào)用該對話框的（  C  ）方法。A、ShowOpen      B、ShowSave        C、ShowColor        D、ShowFont三、指出下列句中的錯誤，修改或者說明原因。1sum和int.sum都可以作為VB的變量名。int.sum 不正

15、確。變量名中不能包括小數(shù)點(diǎn)。2變量名的長度最長可達(dá)1024個字符。變量名的長度最長可達(dá)255個字符。3下列程序運(yùn)行結(jié)果：3，3Option ExplicitPrivate Sub Command1_Click()Dim a，b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub 3.6 ， 4,因為a 不是整型變量。 4程序可以改變定長字符串的內(nèi)容和長度。 不正確。程序不可以改變字符的長度，這是VB規(guī)定。5Variant是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符

16、串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。6下列程序運(yùn)行結(jié)果為True    Private Sub Command1_Click()a = 1b = 2c = 3Text1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2End Sub False 。邏輯表達(dá)式計算結(jié)果。7#12/31/1999# - #12/20/1999#的運(yùn)算結(jié)果是#12/11/1999# 不正確。兩個日期型數(shù)據(jù)相減，其結(jié)果是一個數(shù)值型數(shù)據(jù)。8可以在窗體的通用部分聲明靜態(tài)

17、變量。不正確。靜態(tài)變量為局部變量，只能在過程中聲明。9 使用聲明語句建立一個變量后，Visual Basic會自動對數(shù)值類型的變量賦初值0，變長的字符串被初始化為一個零長度的字符串""，定長字符串用空格填充，Variant變量被初始化為 Empty，布爾型的變量被初始化為False。10事件過程通常由事件驅(qū)動執(zhí)行，而Sub過程通過過程調(diào)用執(zhí)行。11將焦點(diǎn)主動設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。12當(dāng)圖像控件（Image）的Stretch屬性為True時，Image控件能自動調(diào)整自己的尺寸與顯示的圖片匹配。 不正確。該屬性設(shè)為Ture時，Image控件不能自動

18、調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴(kuò)展以適應(yīng)控件的尺寸。1程序運(yùn)行后，單擊窗體，輸出結(jié)果為：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 11 2 3 4 5 6 7 6 5 4 3 2 11 2 3 4 5 6 7 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1四、讀程序題，寫出程序運(yùn)行結(jié)果。1Private Sub Form_Click()    For I = 1 To 9   &#

19、160;    For j = 1 To 30 - 3 * I            Print " "        Next j        For k = 1 To I           P

20、rint k;        Next k        For k = I - 1 To 1 Step -1            Print k;        Next k        Print

21、60;   Next IEnd Sub2Option ExplicitPrivate Sub Command1_Click()     Static S As Integer     Dim i As Integer     S = 1     For i = 1 To 5        S = S * i   

22、60; Next i     Print SEnd Sub 程序運(yùn)行后，單擊按鈕Command1，輸出結(jié)果為：120。 3 *     *     *     *     *3    For X = 5 To 1 Step -1      For Y = 1 To 6 - X   

23、0;    Print Tab(Y + 5); "*"      Next Y      PrintNext Xaabb          -30           Falseaabb-30 False30+60    

24、;      9030+60 904   Private Sub Form_Activate()Print "aa" & "bb",-5 * 6,Not 2 <= 3Print "aa" & "bb" -5 * 6; Not 2 <= 3PrintPrint "30+60",Print 30 + 60？"30+60" 30 + 60End Sub5X=1Do While X<

25、;=10If X Mod 7 =0 ThenY = X + 6ElseZ = XEnd IfX = X + 2LoopPrint X,Y,Z 11            13            9五、編程題1設(shè)計一個計算程序。該程序用戶界面如圖所示，由四個文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個按鈕：命令

26、按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計算按鈕，如果成績填寫不完全，則給出提示信息，否則計算三科平均成績。單擊退出按鈕則退出。Private Sub Command1_Click()    Text1.Text = ""    Text2.Text = ""    Text3.Text = ""   

27、 Text4.Text = ""End SubPrivate Sub Command2_Click()    a = Trim(Text1.Text)    b = Trim(Text2.Text)    c = Trim(Text3.Text)    If a = "" Or b = "" Or c = "" Then      

28、60; MsgBox "成績填寫不完全！", vbCritical    Else        Text4.Text = (Val(a) + Val(b) + Val(c) / 3    End IfEnd SubPrivate Sub Command3_Click()    Unload MeEnd Sub2 設(shè)計程序。要求：從文本框Text1中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕（command1）時，如果該數(shù)據(jù)滿足

29、條件：除以3余2，除以5余3，除以7余4，則輸出；否則將焦點(diǎn)定位在文本框Text1中，選中其中的文本。Private Sub Command1_Click()    x = Val(Text1.Text)    If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then        Print x    Else        Text1.SetFocus        Text1.SelStart = 0        Text1.SelLength = Len(Text1.Text)    End IfEnd Sub3 設(shè)計一個歡迎程序。