VB程序設(shè)計(jì)試題及答案.doc

VB程序設(shè)計(jì)期末模擬試題及答案VB期末復(fù)習(xí)題及答案綜合復(fù)習(xí)題一、填空題1創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是_創(chuàng)建應(yīng)用程序界面_、_設(shè)置屬性_和_編寫(xiě)代碼_。2當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的_屬性_窗口中，把此文本框的_text_屬性設(shè)置成空白。3Label和TextBox控件用來(lái)顯示和輸入文本，如果僅需要讓?xiě)?yīng)用程序在窗體中顯示文本信息，可使用_Label_控件；若允許用戶輸入文本，則應(yīng)使用_TextBox_控件。4窗體的常用方法有_Load方法_、_show方法_、 Hide方法_和_Unload方法_。5要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK ，應(yīng)當(dāng)編寫(xiě)的語(yǔ)句是_Txtshow.Text=GOOD WORK_。6若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，打開(kāi)一個(gè)窗口frm1，請(qǐng)對(duì)以下事件過(guò)程填空。Private Sub Cmdopen_ Click()_Frm1.show_End Sub7Visual Basic 6種類型的表達(dá)式是_數(shù)算表達(dá)式_、_字符串表達(dá)式_、_關(guān)系表達(dá)式_、_布爾表達(dá)式_、_日期表達(dá)式_、_對(duì)象表達(dá)式_。Visual Basic根據(jù)表達(dá)式的_運(yùn)算符_來(lái)確定表達(dá)式的類型。8表達(dá)式93 7 Mod 2 2 的值是_1_。9已知a=3，b=4，c=5，表達(dá)式ab and Not ca Or cb And ca And Not b=1.7 And W=62.5 B、T=62.5C、T1.7 And W=1.7 Or W a + b Or b - 1 c - 1 And c + a a Xor b c - 2End Sub False 。邏輯表達(dá)式計(jì)算結(jié)果。7#12/31/1999# - #12/20/1999#的運(yùn)算結(jié)果是#12/11/1999# 不正確。兩個(gè)日期型數(shù)據(jù)相減，其結(jié)果是一個(gè)數(shù)值型數(shù)據(jù)。8可以在窗體的通用部分聲明靜態(tài)變量。不正確。靜態(tài)變量為局部變量，只能在過(guò)程中聲明。9 使用聲明語(yǔ)句建立一個(gè)變量后，Visual Basic會(huì)自動(dòng)對(duì)數(shù)值類型的變量賦初值0，變長(zhǎng)的字符串被初始化為一個(gè)零長(zhǎng)度的字符串，定長(zhǎng)字符串用空格填充，Variant變量被初始化為 Empty，布爾型的變量被初始化為False。10事件過(guò)程通常由事件驅(qū)動(dòng)執(zhí)行，而Sub過(guò)程通過(guò)過(guò)程調(diào)用執(zhí)行。11將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。12當(dāng)圖像控件（Image）的Stretch屬性為T(mén)rue時(shí)，Image控件能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配。 不正確。該屬性設(shè)為T(mén)ure時(shí)，Image控件不能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動(dòng)擴(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四、讀程序題，寫(xiě)出程序運(yùn)行結(jié)果。1Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print ; Next j For k = 1 To I Print k; Next k For k = I - 1 To 1 Step -1 Print k; Next k Print 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 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 Print Tab(Y + 5); *; Next Y PrintNext Xaabb -30 Falseaabb-30 False30+60 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=10If X Mod 7 =0 ThenY = X + 6ElseZ = XEnd IfX = X + 2LoopPrint X,Y,Z 11 13 9五、編程題1設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績(jī)填寫(xiě)不完全，則給出提示信息，否則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = 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 MsgBox 成績(jī)填寫(xiě)不完全！, vbCritical Else Text4.Text = (Val(a) + Val(b) + Val(c) / 3 End IfEnd SubPrivate Sub Command3_Click() Unload MeEnd Sub2 設(shè)計(jì)程序。要求：從文本框Text1中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕（command1）時(shí)，如果該數(shù)據(jù)滿足條件：除以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è)計(jì)一個(gè)歡迎程序。該程序用戶界面如圖所示。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)，標(biāo)簽（Label1）中的文字（歡迎您?。┑淖煮w變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。4.任意輸入3個(gè)數(shù)，求大小排第二的那個(gè)數(shù)，寫(xiě)出程序代碼。 a = Val(InputBox(輸入第一個(gè)數(shù)：)b = Val(InputBox(輸入第二個(gè)數(shù)：)c = Val(InputBox(輸入第三個(gè)數(shù)：)If a b Then t = a: a = b: b = tIf a c Then t = a: a = c: c = tIf b c Then t = b: b = c: c = tMsgBox (求大小排第二的數(shù)是： & b) Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End IfEnd SubPrivate Sub Command1_Click() Unload MeEnd Sub