VB語言程序設(shè)計(jì)4套作業(yè)參考答案

1、窗體頂端第1套您已經(jīng)通過該套作業(yè),請(qǐng)參看正確答案1、與傳統(tǒng)的程序設(shè)計(jì)語言相比，Visual Basic語言最突出的特點(diǎn)是（）。A結(jié)構(gòu)化程序設(shè)計(jì)B程序開發(fā)環(huán)境C事件驅(qū)動(dòng)編程機(jī)制D程序調(diào)試技術(shù)   參考答案：C 您的答案：C 2、Visual Basic集成環(huán)境的主窗口中不包括（）。A標(biāo)題欄B菜單欄C狀態(tài)欄D工具欄   參考答案：C 您的答案：C 3、Visual Basic窗體設(shè)計(jì)器的主要功能是（）。A建立用戶界面B編寫源程序代碼C畫圖D顯示文字   參考答案：A 您的答案：A 4、下列敘述中正確的是（）。A只有窗體才是VB中的對(duì)象B只

2、有控件才是VB中的對(duì)象C控件和窗體都是VB中的對(duì)象D控件和窗體都不是VB中的對(duì)象   參考答案：C 您的答案：C 5、為了把窗體上的某個(gè)控件變?yōu)榛顒?dòng)的，應(yīng)執(zhí)行的操作是（）。A單擊窗體的邊框B單擊該控件的內(nèi)部C雙擊該控件D雙擊窗體   參考答案：B 您的答案：B 6、確定一個(gè)控件在窗體上的位置的屬性是（）。AWidth或HeightBWidth和HeightCTop或LeftDTop和Left   參考答案：D 您的答案：D 7、在窗體上面畫一個(gè)名稱為Text1的文本框，然后編寫如下的事件過程：Private Sub Text1_Key

3、Press(KeyAscii As Integer).End Sub若焦點(diǎn)位于文本框中，則能夠觸發(fā)KeyPress事件的操作是（）。A單擊鼠標(biāo)B雙擊文本框C鼠標(biāo)滑過文本框D按下鍵盤上的某個(gè)鍵   參考答案：D 您的答案：D 8、為了裝入一個(gè)VB應(yīng)用程序，應(yīng)當(dāng)（）。A只裝入窗體文件(.frm) B只裝入工程文件(.vbp)C分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)D分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件   參考答案：B 您的答案：B 9、當(dāng)窗體最小化時(shí)縮小為一個(gè)圖標(biāo)，設(shè)置這個(gè)圖標(biāo)的屬性是（）。AMouseIcon BIconCPictureDMous

4、ePoint   參考答案：B 您的答案：B 10、為了取消窗體的最大化功能，需要把它的一個(gè)屬性設(shè)置為False，這個(gè)屬性是（）。AControlBox BMinButtonCEnabledDMaxButton   參考答案：D 您的答案：D 11、決定窗體有無控制菜單的屬性是（）。AControlBox BMinButtonCEnabledDMaxButton   參考答案：A 您的答案：A 12、下列操作中不能向工程中添加窗體的是（）。A執(zhí)行“工程”菜單中的“添加窗體”命令 B單擊工具欄上的“添加窗體”按鈕C右擊窗體，在彈出的菜單

5、中選擇“添加窗體”命令D右擊工程資源管理器，在彈出的菜單中選擇“添加”命令，然后在下一級(jí)菜單中選擇“添加窗體”命令   參考答案：C 您的答案：C 13、當(dāng)一個(gè)工程含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是（）。A啟動(dòng)Visual Basic時(shí)建立的窗體 B第一個(gè)添加的窗體C最后一個(gè)添加的窗體D在“工程屬性”對(duì)話框中指定的窗體   參考答案：D 您的答案：D 14、為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過程，需要把該按鈕的哪個(gè)屬性設(shè)為True（）。AValue BDefaultCCancel DEnabled   參考答案：C 您的答案：C

6、 15、用菜單編輯器創(chuàng)建菜單時(shí)，如果要在菜單中添加一條分隔線，正確的操作是（）。A在標(biāo)題輸入框中輸入“-”（減號(hào)）B在名稱輸入框中輸入“-”（減號(hào)）C在標(biāo)題輸入框中輸入“_”（下劃線） D在名稱輸入框中輸入“_”（下劃線）   參考答案：A 您的答案：A 16、在顯示菜單時(shí)，菜單的哪個(gè)屬性為True時(shí)將用灰色顯示該菜單項(xiàng)標(biāo)題（）。ACaptionBCheckedCEnabled DVisible   參考答案：C 您的答案：C 17、使文本框獲得焦點(diǎn)的方法是（）。AChangeBGotFocusCSetFocus DLostFocus  

7、60;參考答案：C 您的答案：C 18、為了使標(biāo)簽框控件覆蓋背景，應(yīng)把BackStyle屬性設(shè)置為（）。A0B1CTrue DFalse   參考答案：B 您的答案：B 19、在窗體上畫兩個(gè)文本框（Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（Name屬性為Command1），然后編寫如下兩個(gè)事件過程：Private Sub Command1_Click()a = Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = &quo

8、t;"End Sub程序運(yùn)行后，在Text1和Text2中分別輸入123和321，然后單擊命令按鈕，則輸出結(jié)果為（）。A444 B321123C123321 D132231   參考答案：C 您的答案：C 20、當(dāng)拖動(dòng)滾動(dòng)條中的滾動(dòng)塊時(shí)，將觸發(fā)滾動(dòng)條的事件是（）。AMoveBChange CScroll DSetFocus   參考答案：C 您的答案：C 窗體頂端第2套您已經(jīng)通過該套作業(yè),請(qǐng)參看正確答案1、以下語句Print 3 + 4 5 * 6 / 7 Mod 8的輸出結(jié)果是（）。A3B4C5D6   參考答案：B 您的

9、答案：B 2、下面不是VB的數(shù)據(jù)類型的是（）。ACurrencyBBool CObjectDSingle   參考答案：B 您的答案：B 3、下列可作為VB的變量名的是（）。A3*DeltaBBool CObjectDSingle   參考答案：B 您的答案：B 4、下面的數(shù)2.65358979335278E-06寫成普通的十進(jìn)制數(shù)是（）。A0.0000265358979335278B0.00000265358979335278 C0.000265358979335278D0.000000265358979335278   參考答案：

10、B 您的答案：B 5、下面的數(shù)1.21576654590569E+19寫成普通的十進(jìn)制數(shù)是（）。A12157665459056900B121576654590569000 C1215766545905690000D12157665459056900000   參考答案：D 您的答案：D 6、設(shè)a = 2，b = 3，c = 4，d = 5，下列表達(dá)式Not a <= c Or 4 * c = b2 And b <> a + c的值是（）。A-1B1 CTrue DFalse   參考答案：D 您的答案：D 7、語句Print 5 * 5

11、 5 / 5的輸出結(jié)果是（）。A5B25 C0 D1   參考答案：B 您的答案：B 8、語句Print Sgn(-62) + Int(-62) + Int(62)的輸出結(jié)果是（）。A-36 B1 C-1 D-72   參考答案：C 您的答案：C 9、以下語句的輸出結(jié)果是（）。a = Sqr(3)Print Format(a, "$#.#")A$1.732 B$1.732 C$1732 D$0001.732   參考答案：B 您的答案：B 10、以下程序段的輸出結(jié)果是（）。a = Sqr(3)b = Sqr(2)c

12、 = a > bPrint cA$1.732 B$1.732 C$1732 D$0001.732   參考答案：D 您的答案：D 11、表達(dá)式4 + 5 6 * 7 / 8 Mod 9的值是（）。A4 B5 C6 D7   參考答案：B 您的答案：B 12、一個(gè)語句如果在下一行繼續(xù)寫，應(yīng)在本行尾部加符號(hào)（）。A, B: C_ D;   參考答案：C 您的答案：C 13、假定Picture1和Text1分別為圖片框和文本框的名稱，下列不正確的語句是（）。APrint 25 BPicture1.Print 25 CText1.Pri

13、nt 25 DDebug.Print 25  參考答案：C 您的答案：C 14、以下語句的輸出結(jié)果是（）。 (表示空格)a = 27b = 65Print a; bA27 65 B 27 65 C27 65 D27 65  參考答案：D 您的答案：D 15、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim a As Integer, b As Integera = InputBox("Enter the First integer")b = InputBox("En

14、ter the Second integer")Print b + aEnd Sub程序運(yùn)行后，單擊命令按鈕，先后在輸入對(duì)話框中輸入456和123，則輸出結(jié)果是（ ）。A579 B123 C456 D123456  參考答案：A 您的答案：A 16、執(zhí)行下面的語句后，所產(chǎn)生的消息框的標(biāo)題是（ ）。a = MsgBox("AAAA", , "BBBB", "", 5)ABBBB B空 CAAAA D實(shí)時(shí)錯(cuò)誤，不能產(chǎn)生消息框  參考答案：A 您的答案：A 17、對(duì)用MsgBox顯示的消息框

15、，以下敘述中錯(cuò)誤的是（ ）。a = MsgBox("AAAA", , "BBBB", "", 5)A可以有一個(gè)按鈕 B可以有兩個(gè)按鈕 C可以有三個(gè)按鈕 D可以有任意多個(gè)按鈕  參考答案：D 您的答案：D 18、假定有如下的窗體事件過程：Private Sub Command1_Click()a = "Visual Basic程序設(shè)計(jì)"b = Left(a, 6)c = Mid(a, 8)MsgBox b, 34, cEnd Sub程序運(yùn)行后，單擊命令按鈕，則在彈出的消息框的標(biāo)題欄中顯示的信息是（

16、 ）。A可以有一個(gè)按鈕 B可以有兩個(gè)按鈕 C可以有三個(gè)按鈕 D可以有任意多個(gè)按鈕  參考答案：C 您的答案：C 19、設(shè)有語句x = InputBox("輸入數(shù)值", "示例", "20")程序運(yùn)行后，如果從鍵盤上輸入數(shù)值10并按回車鍵，則下列敘述中正確的是（ ）。A變量x的值是數(shù)值型數(shù)據(jù)10 B變量x的值是字符串型數(shù)據(jù)"10" C10是默認(rèn)值 D在InputBox對(duì)話框標(biāo)題欄中顯示的是“輸入數(shù)值”  參考答案：B 您的答案：B 20、設(shè)a = 6，則執(zhí)行x = IIf(a

17、> 5, -1, 0)后，x的值為（ ）。A5 B6 C0 D-1  參考答案：D 您的答案：D 窗體頂端第3套您已經(jīng)通過該套作業(yè),請(qǐng)參看正確答案1、設(shè)有函數(shù)則下列能正確計(jì)算該函數(shù)值的語句是（）。AIf x < 0 Then r = 1Else If x > 0 Thenr = 2End IfBIf x < 0 Thenr = 1Else If x > 0 Thenr = 2End IfCIf x < 0 Thenr = 1Elser = 2End IfDr = If(x < 0, 1, 2)  參考答案：B 您

18、的答案：B 2、在窗體上畫兩個(gè)名稱分別為L(zhǎng)abel1和Label2的標(biāo)簽，然后編寫如下事件過程：Private Sub Form_Click()x = -5: s = -5Select Case sCase Is > 0y = x + 1Case Is >= 0y = x + 2Case Elsey = x + 3End SelectLabel1.Caption = xLabel2.Caption = yEnd Sub程序運(yùn)行后，單擊窗體，標(biāo)簽Label1和Label2中顯示的內(nèi)容分別是（ ）。A-5和-2B-5和-4C-5和-3 D-5和-5   參考答案：A

19、 您的答案：A 3、設(shè)置復(fù)選框或單選按鈕標(biāo)題對(duì)齊方式的屬性是（ ）。AAlign BAlignmentCSorted DValue   參考答案：B 您的答案：B 4、下列程序段的執(zhí)行結(jié)果為（ ）。x = 2: y = 1If x * y < 1 Then y = y - 1 Else y = y + 1Print y - x > 0ATrue BFalseC-1 D1   參考答案：B 您的答案：B 5、下列程序段的執(zhí)行結(jié)果為（ ）。x = 3: y = 4If x < y Then Print y;: Print xA3B4C3 4

20、 D4 3   參考答案：D 您的答案：D 6、下列程序的執(zhí)行結(jié)果為（ ）。x = 15If x > 0 Then a = 1If x > 10 Then a = 2If x > 20 Then a = 3If x > 30 Then a = 4Print aA1B2C3 D4   參考答案：B 您的答案：B 7、通過改變單選按鈕控件的什么屬性值，可以改變單選按鈕的選取狀態(tài)（ ）。AValueBStyle CAppearance DCaption   參考答案：A 您的答案：A 8、在窗體上畫兩個(gè)單選按鈕，名稱

21、分別為Option1和Option2，標(biāo)題分別為“宋體”和“黑體”；一個(gè)復(fù)選框，名稱為Check1，標(biāo)題為“粗體”；一個(gè)文本框，名稱為Text1，Text屬性為“改變文字字體”。要求程序運(yùn)行時(shí)，“宋體”單選按鈕和“粗體”復(fù)選框被選中，則能夠?qū)崿F(xiàn)上述要求的語句序列是（ ）。AOption1.Value = True Check1.Value = FalseBOption1.Value = True Check1.Value = True COption2.Value = False Check1.Value = True DOption1.Value = True Check1.Value =

22、1  參考答案：D 您的答案：D 9、下面控件中，用于將對(duì)象分組的是（ ）。A窗體 B文本框 C復(fù)選框 D框架  參考答案：D 您的答案：D 10、下列代碼的運(yùn)行結(jié)果是（ ）。If 3 - 2 Thena = 10ElseIf (10 / 2) = 6 Thena = 20Elsea = 30End IfPrint aA10B20 C30 D不確定  參考答案：A 您的答案：A 11、閱讀下面的程序：Private Sub Form_Click()Dim m, n As Integerm = InputBox("請(qǐng)輸入 M

23、的值")m = Val(m)m1 = mn = InputBox("請(qǐng)輸入 N 的值")n = Val(n)n1 = nDo While n <> 0remin = m Mod nm = nn = reminLoopPrint m1, n1, mEnd Sub程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中分別輸入16和24，在程序在窗體上的輸出結(jié)果為（）。A16244B16248C24166 D24168  參考答案：B 您的答案：B 12、閱讀下面的程序：Private Sub Form_Click()Dim Check, CounterC

24、heck = TrueCounter = 0DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序運(yùn)行后，單擊窗體，標(biāo)簽Label1和Label2中顯示的內(nèi)容分別是（ ）。A150 B20-1C10True D10False   參考答案：D 您的答案：D 13、假定有以下循環(huán)結(jié)構(gòu)Do Until 條件循環(huán)體Loop則正確的描述是（

25、 ）。A如果“條件”是一個(gè)為0的常數(shù)，則一次循環(huán)體也不執(zhí)行 B如果“條件”是一個(gè)為0的常數(shù)，則無限次執(zhí)行循環(huán)體C如果“條件”是一個(gè)不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體 D不論“條件”是否為“真”，至少要執(zhí)行一次循環(huán)體   參考答案：B 您的答案：B 14、執(zhí)行下面的程序段后，x的值為（ ）。x = 5For i = 1 To 20 Step 2x = x + i 5Next iA20B21C24 D25  參考答案：B 您的答案：B 15、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()For i =

26、1 To 4x = 4For j = 1 To 3x = 3For k = 1 To 2x = x + 6Next kNext jNext iPrint xEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ ）。A7B15C157 D538   參考答案：B 您的答案：B 16、在窗體上畫兩個(gè)文本框（其Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（其Name屬性為Command1），然后編寫如下事件過程：Private Sub Command1_Click()x = 0Do While x < 50x = (x + 2) * (x + 3)n = n +

27、 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為（ ）。A1和0B2和72C3和50 D4和168   參考答案：B 您的答案：B 17、在窗體上畫一個(gè)命令按鈕，名稱為Command1。然后編寫如下程序：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$(65 + i);Next jPrintNext iEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（ ）。ABCD

28、  參考答案：A 您的答案：A 18、閱讀下面的程序：Option Base 1Private Sub Form_Click()Dim Arr(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4Arr(i, j) = (i - 1) * 2 + jNext jNext iFor i = 3 To 4For j = 3 To 4Print Arr(j, i);Next jPrintNext iEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是（ ）。 A57 68 B68 79 C79 810 D810 811   參考答

29、案：C 您的答案：C 19、用下面的語句所定義的數(shù)組的元素個(gè)數(shù)是（ ）。Dim arr(3 To 5, -2 To 2)A8B12C15 D24   參考答案：C 您的答案：C 20、在窗體上畫一個(gè)命令按鈕，Name屬性為Command1，然后編寫如下代碼：Option Base 1Private Sub Command1_Click()Dim Arr(3) As IntegerFor i = 1 To 3For j = 1 To 3Arr(j) = Arr(i) + 1Next jNext iPrint Arr(3)End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ ）

30、。A7B6C5D4  參考答案：C 您的答案：C 窗體頂端第4套您已經(jīng)通過該套作業(yè),請(qǐng)參看正確答案1、在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽框。列表框中顯示若干城市的名稱，當(dāng)單擊列表框中的某一城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確實(shí)現(xiàn)上述功能的程序是（ ）。APrivate Sub List1_Click()Lbel1.Caption = List1.ListIndex End SubBPrivate Sub List1_Click()Label1.Name = List1.ListIndex End SubCPrivate Sub

31、List1_Click()Label1.Name = List1.Text End Sub DPrivate Sub List1_Click()Label1.Caption = List1.Text End Sub   參考答案：D 您的答案：D 2、刪除列表框中指定的項(xiàng)目所使用的方法為（）。AMoveBRemoveCMoveItemDRemoveItem   參考答案：D 您的答案：D 3、可唯一標(biāo)志控件數(shù)組中某一個(gè)控件的屬性是（）。ANameBIndexCCaptionDTabIndex   參考答案：B 您的答案：B 4、閱讀下

32、面的程序：Function Func(x As Integer, y As Integer) As IntegerDim n As IntegerDo While n <= 4x = x + yn = n + 1LoopFunc = xEnd FunctionPrivate Sub Command1_Click()Dim x As Integer, y As Integer, n As Integer, z As Integerx = 1: y = 1For n = 1 To 6z = Func(x, y)Next nPrint zEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ ）

33、。A16B21C26 D31   參考答案：D 您的答案：D 5、閱讀下面的程序：Function F(a As Integer)Static cb = 0b = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2For i = 1 To 3Print F(a)Next iEnd SubA444B456C468D479   參考答案：B 您的答案：B 6、閱讀下面的程序：Sub subP(b() As Integer)For i

34、= 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subP a()For i = 1 To 4Print a(i)Next iEnd SubA444B456C468D479   參考答案：A 您的答案：A 7、閱讀下面的程序：Function func(n As Integer) As IntegerSum = 0For i = 1 To nSum = Sum + (i + 1)

35、* iNext ifunc = SumEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 5s = func(a)Print sEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為（ ）。 A80B60C70D15   參考答案：C 您的答案：C 8、使用通用對(duì)話框控件時(shí)，要在打開的對(duì)話框的標(biāo)題欄上顯示“保存文件”，應(yīng)把這4個(gè)漢字賦給的屬性變量是（ ）。ADialogTitleBFileName CFileTitle DFontName   參考答案：A 您的答案：A 9、用Write和P

36、rint語句向文件中寫入多個(gè)數(shù)據(jù)的差別在于（ ）。AWrite語句不會(huì)自動(dòng)在數(shù)據(jù)項(xiàng)之間插入逗號(hào)BPrint語句自動(dòng)在數(shù)據(jù)項(xiàng)之間插入逗號(hào) CWrite語句寫入字符串會(huì)自動(dòng)給字符串加上雙引號(hào)；寫入的正數(shù)前面沒有空格DPrint語句寫入字符串會(huì)自動(dòng)給字符串加上雙引號(hào)；寫入的正數(shù)前面沒有空格   參考答案：C 您的答案：C 10、以下能判斷是否到達(dá)文件尾的函數(shù)是（ ）。ABOFBLoc CLOFDEOF   參考答案：D 您的答案：D 11、下面關(guān)于順序文件的描述正確的是（ ）。A每條記錄的長(zhǎng)度必須相同B可通過編程對(duì)文件中的某條記錄方便地修改 C數(shù)據(jù)以ASCII碼形式存放在文件中，所以可通過文本編輯軟件顯示D文件的組織結(jié)構(gòu)復(fù)雜   參考答案：C 您的答案：C 12、按文件存取方式和結(jié)構(gòu)來區(qū)分有（ ）。A順序文件和隨機(jī)文件BASCII文件和二進(jìn)制文件 C程序文件和數(shù)據(jù)文件D磁盤文件