1、VB語言程序設計_在線作業_1交卷時間：2016-09-18 14:32:35一、單選題1(5分)在窗體上有一個標簽框控件，名稱為LblTime；一個計時器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當前的時間。程序代碼為：Private Sub Timer1_ _ ( ) LblTime.Caption = TimeEnd Sub在下劃線上應填入的內容是（ ）。 A. Interval B. Enabled C. Timer D. Visible 糾錯得分： 5知識點： VB語言程序設計展開解析2(5分)表達式4 + 5 6 * 7 / 8 Mod 9的值是（ ）。 A. 6 B.

2、 7 C. 4 D. 5 糾錯 得分： 5 知識點： VB語言程序設計展開解析3(5分)語句Print 5 * 5 5 / 5的輸出結果是（ ）。 A. 0 B. 25 C. 5 D. 1 糾錯 得分： 5 知識點： VB語言程序設計 展開解析 4(5分)通過改變單選按鈕控件的什么屬性值，可以改變單選按鈕的選取狀態（ ）。 A. Appearance B. Style C. Value D. Caption 糾錯得分： 5知識點： VB語言程序設計 展開解析 5 (5分) 設a = 6，則執行x = IIf(a > 5, -1, 0)后，x的值為（ ）。 A. 0 B. 6 C. 5 D

3、. -1 糾錯得分： 5知識點： VB語言程序設計展開解析6 (5分) 設置復選框或單選按鈕標題對齊方式的屬性是（ ）。 A. Align B. Value C. Sorted D. Alignment 糾錯得分： 5知識點： VB語言程序設計展開解析7(5分)閱讀下面的程序： Function func(n As Integer) As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1) * i Next i func = SumEnd FunctionPrivate Sub Command1_Click() Dim a As Integer

4、 a = 5 s = func(a) Print sEnd Sub程序運行后，單擊命令按鈕，輸出結果為（ ）。 A. 80 B. 70 C. 60 D. 15 糾錯得分： 5知識點： VB語言程序設計展開解析8(5分)按文件存取方式和結構來區分有（ ）。 A. 磁盤文件和打印文件 B. ASCII文件和二進制文件 C. 程序文件和數據文件 D. 順序文件和隨機文件 糾錯得分： 5知識點： VB語言程序設計展開解析9(5分)假定Picture1和Text1分別為圖片框和文本框的名稱，下列不正確的語句是（ ）。 A. Text1.Print 25 B. Debug.Print 25 C. Prin

5、t 25 D. Picture1.Print 25 糾錯 得分： 5知識點： VB語言程序設計展開解析10(5分)在窗體上畫兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（其Name屬性為Command1），然后編寫如下事件過程：Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x)End Sub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為（ ）。 A. 3

6、和50 B. 1和0 C. 2和72 D. 4和168 糾錯得分： 5知識點： VB語言程序設計展開解析11(5分)下列程序段的執行結果為（ ）。 x = 3: y = 4If x < y Then Print y;: Print x A. 3 4 B. 3 C. 4 D. 4 3 糾錯 得分： 5知識點： VB語言程序設計展開解析12(5分)下面控件中，用于將對象分組的是（ ）。 A. 復選框 B. 文本框 C. 框架 D. 窗體 糾錯得分： 5知識點： VB語言程序設計展開解析 13 (5分) 以下語句的輸出結果是（ ）。 a = Sqr(3)Print Format(a, &quo

7、t;$#.#") A. $1732 B. $1.732 C. $1.732 D. $0001.732 糾錯得分： 5 知識點： VB語言程序設計 展開解析 14 (5分)閱讀下面的程序：Function Func(x As Integer, y As Integer) As Integer Dim n As Integer Do While n <= 4 x = x + y n = n + 1 Loop Func = x End Function Private Sub Command1_Click()Dim x As Integer, y As Integer, n As I

8、nteger, z As Integer x = 1: y = 1 For n = 1 To 6 z = Func(x, y) Next n Print zEnd Sub程序運行后，單擊命令按鈕，輸出結果是（ ）。 A. 21 B. 31 C. 26 D. 16 糾錯得分： 5知識點： VB語言程序設計展開解析15(5分)一個語句如果在下一行繼續寫，應在本行尾部加符號（ ）。 A. , B. ; C. _ D. : 糾錯得分： 5知識點： VB語言程序設計展開解析16(5分)使用通用對話框控件時，要在打開的對話框的標題欄上顯示“保存文件”，應把這4個漢字賦給的屬性變量是（） A. Dialog

9、Title B. FileName C. FontName D. FileTitle 糾錯得分： 5知識點： VB語言程序設計展開解析17(5分)在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標簽框。列表框中顯示若干城市的名稱，當單擊列表框中的某一城市名時，在標簽中顯示選中城市的名稱。下列能正確實現上述功能的程序是（ ）。 A. Private Sub List1_Click() Label1.Caption = List1.Text End Sub B. Private Sub List1_Click() Lbel1.Caption = List1.ListIndex En

10、d Sub C. Private Sub List1_Click() Label1.Name = List1.Text End Sub D. Private Sub List1_Click() Label1.Name = List1.ListIndex End Sub糾錯得分： 5知識點： VB語言程序設計展開解析18(5分) 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Integer, b As Integer a = InputBox("Enter the First integer") b

11、 = InputBox("Enter the Second integer") Print b + aEnd Sub程序運行后，單擊命令按鈕，先后在輸入對話框中輸入456和123，則輸出結果是（ ）。 A. 579 B. 456 C. 123456 D. 123 糾錯得分： 5知識點： VB語言程序設計 展開解析19(5分)可唯一標志控件數組中某一個控件的屬性是（ ）。 A. Name B. TabIndex C. Caption D. Index 糾錯得分： 5知識點： VB語言程序設計展開解析20(5分)為了在按下Esc鍵時執行某個命令按鈕的事件過程，需要把該按鈕的哪個屬性設為True（ ）。 A. Value B. Default C. Enabled D. Cancel 糾錯得分： 5知識點： VB語言程序設計展開解析考試成績100 分用時: 6分28秒正確 錯誤 不判斷 試題導航展開 糾錯得分： 0知識點： VB語言程序設計收起解析答案C解析19(5分)可唯一標志控件數組中某一個控件的屬性是（ ）。 A. Name B. Index C. Caption D. TabIndex 糾錯得分： 0知識點： VB語言程序設計收起解析答案B解析20(5分)為了在按下Esc鍵時執行某個命令按鈕的事件過程，需要把