VB語(yǔ)言程序設(shè)計(jì)_在線作業(yè)_1

1、VB語(yǔ)言程序設(shè)計(jì)_在線作業(yè)_1交卷時(shí)間：2016-09-18 14:32:35一、單選題1(5分)在窗體上有一個(gè)標(biāo)簽框控件，名稱(chēng)為L(zhǎng)blTime；一個(gè)計(jì)時(shí)器控件，名稱(chēng)為T(mén)imer1，要求每一秒在文本框中顯示一次當(dāng)前的時(shí)間。程序代碼為：Private Sub Timer1_ _ ( ) LblTime.Caption = TimeEnd Sub在下劃線上應(yīng)填入的內(nèi)容是（ ）。 A. Interval B. Enabled C. Timer D. Visible 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析2(5分)表達(dá)式4 + 5 6 * 7 / 8 Mod 9的值是（ ）。 A. 6 B.

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

3、. -1 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析6 (5分) 設(shè)置復(fù)選框或單選按鈕標(biāo)題對(duì)齊方式的屬性是（ ）。 A. Align B. Value C. Sorted D. Alignment 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析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程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為（ ）。 A. 80 B. 70 C. 60 D. 15 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析8(5分)按文件存取方式和結(jié)構(gòu)來(lái)區(qū)分有（ ）。 A. 磁盤(pán)文件和打印文件 B. ASCII文件和二進(jìn)制文件 C. 程序文件和數(shù)據(jù)文件 D. 順序文件和隨機(jī)文件 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析9(5分)假定Picture1和Text1分別為圖片框和文本框的名稱(chēng)，下列不正確的語(yǔ)句是（ ）。 A. Text1.Print 25 B. Debug.Print 25 C. Prin

5、t 25 D. Picture1.Print 25 糾錯(cuò) 得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析10(5分)在窗體上畫(huà)兩個(gè)文本框（其N(xiāo)ame屬性分別為T(mén)ext1和Text2）和一個(gè)命令按鈕（其N(xiāo)ame屬性為Command1），然后編寫(xiě)如下事件過(guò)程：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程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為（ ）。 A. 3

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

7、t;$#.#") A. $1732 B. $1.732 C. $1.732 D. $0001.732 糾錯(cuò)得分： 5 知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì) 展開(kāi)解析 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程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ ）。 A. 21 B. 31 C. 26 D. 16 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析15(5分)一個(gè)語(yǔ)句如果在下一行繼續(xù)寫(xiě)，應(yīng)在本行尾部加符號(hào)（ ）。 A. , B. ; C. _ D. : 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析16(5分)使用通用對(duì)話框控件時(shí)，要在打開(kāi)的對(duì)話框的標(biāo)題欄上顯示“保存文件”，應(yīng)把這4個(gè)漢字賦給的屬性變量是（） A. Dialog

9、Title B. FileName C. FontName D. FileTitle 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析17(5分)在窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，一個(gè)名稱(chēng)為L(zhǎng)abel1的標(biāo)簽框。列表框中顯示若干城市的名稱(chēng)，當(dāng)單擊列表框中的某一城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱(chēng)。下列能正確實(shí)現(xiàn)上述功能的程序是（ ）。 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糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析18(5分) 在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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程序運(yùn)行后，單擊命令按鈕，先后在輸入對(duì)話框中輸入456和123，則輸出結(jié)果是（ ）。 A. 579 B. 456 C. 123456 D. 123 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì) 展開(kāi)解析19(5分)可唯一標(biāo)志控件數(shù)組中某一個(gè)控件的屬性是（ ）。 A. Name B. TabIndex C. Caption D. Index 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析20(5分)為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過(guò)程，需要把該按鈕的哪個(gè)屬性設(shè)為T(mén)rue（ ）。 A. Value B. Default C. Enabled D. Cancel 糾錯(cuò)得分： 5知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)展開(kāi)解析考試成績(jī)100 分用時(shí): 6分28秒正確 錯(cuò)誤 不判斷 試題導(dǎo)航展開(kāi) 糾錯(cuò)得分： 0知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)收起解析答案C解析19(5分)可唯一標(biāo)志控件數(shù)組中某一個(gè)控件的屬性是（ ）。 A. Name B. Index C. Caption D. TabIndex 糾錯(cuò)得分： 0知識(shí)點(diǎn)： VB語(yǔ)言程序設(shè)計(jì)收起解析答案B解析20(5分)為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過(guò)程，需要把