VB選擇題.doc

標準控件不包括（ ）控件。(A) 驅動器列表框 (B) 目錄列表框(C) 文件列表框 (D) 通用對話框(答案：D)當一個工程含有多個窗體時，它的啟動窗體是（ ）。(A) 正在編輯的窗體 (B) 最后一個添加的窗體(C) 第一個添加的窗體 (D) 在工程屬性對話框中指定的窗體(答案：D)30103. VB應用程序在（ ）模式下不能編輯代碼和設計界面。(A) 運行 (B) 中斷 (C) 設計 (D) 以上均不能(答案：A)30104. 下列敘述錯誤的是（ ）。(A) VB應用程序沒有明顯的開始和結束語句(B) VB控件的所有屬性值均可在屬性窗口中設置(C) VB是事件驅動型可視化編程工具(D) VB通過工具菜單的選項設置代碼編輯窗口的字體大小(答案：B)30105. 標準模塊文件的擴展名是（ ）。(A) .cls (B) .frm (C) .bas (D) .rec(答案：C)30106. 下列敘述錯誤是（ ）。(A) 打開一個工程文件，系統(tǒng)自動裝入與該工程有關砠 ?文件(B) 保存VB程序時，應分別保存窗體和工程文件(C) 事件可以由用戶觸發(fā)，也可以由系統(tǒng)觸發(fā)(D) VB應用程序只能以解釋方式執(zhí)行(答案：D)30107. 在設計階段，雙擊窗體上的某個控件，可以打開（ ）。(A) 代碼窗口 (B) 屬性窗口 (C) 工具箱窗口 (D) 工程資源管理器窗口(答案：A)30108. 下列敘述錯誤的是（ ）。(A) VB是可視化程序設計語言 (B) VB采用事件驅動編程機制(C) VB是面向過程的程序設計語言 (D) VB應用程序可以以編譯方式執(zhí)行(答案：C)30109. 下列敘述正確的是（ ）。(A) VB的事件由用戶定義 (B) VB程序以順序方式執(zhí)行(C) VB程序從Main()函數(shù)開始執(zhí)行 (D) VB運行時，總是等待事件的發(fā)生(答案：D)30201. 下列為整型變量的是（ ）。(A) x! (B) x# (C) x% (D) x$(答案：C)30202. 設有語句組：Dim S1 As String*5S1 = VB Test則S1的值為（ ）。(A) VB Test(B) VB Te(C) VBTes(D) BTest(答椏 ?：B)30203. 下列（ ）是合法的變量名。(A) x_y(B) x-y(C) 2x(D) and(答案：A)30204. 下列（ ）為單精度變量。(A) x!(B) x#(C) x%(D) x$(答案：A)30205. 由（ ）關鍵字聲明的局部變量在整個程序運行時一直存在。(A) Dim(B) Public(C) Static(D) Private(答案：C)30206. 定義變量時如不指定類型，該變量為（ ）變量。(A) Integer(B) String(C) Variant(D) Single(答案：C)30207. 用戶自定義數(shù)據(jù)類型的成員不能是（ ）。(A) 數(shù)組(B) 日期型(C) 貨幣型(D) 定長字符串(答案：A)30208. 下列（ ）是合法的變量名。(A) x%y(B) xy%(C) 2x(D) Or(答案：B)30209. 日期常量用（ ）作為界定符。(A) (B) %(C) #(D) &(答案：C)30301. 表達式4 + 6 5 * 7 / 9 Mod 3的值是（ ）。(A) 4(B) 5(C) 6(D) 7(答案：B)30302. 下列邏輯表達式為True的是（ ）。(A) Aa(C) aAT(D) AT b c后，窗體上顯示的是（ ）。(A) 1(B) True(C) False(D) 出錯信息(答案：B)30305. 下列表達式中，值最大的是（ ）。(A) 2 3(B) 2 / 3(C) 2 mod 3(D) 3 mod 2(答案：C)30306. 下列運算符中，優(yōu)先級最低的是（ ）。(A) *(B) (C) /(D) (答案：D)30307. 表達式 2 = 3 1 的是（ ）。(A) 0(B) 1(C) True(D) False(答案：C)30308. x大于0且小于10的VB表達式是（ ）。(A) 0 x 0 And x 0 Or x 0 : x 10(答案：B)30309. 判斷整型變量x是奇數(shù)的表達式是（ ）。(A) x Mod 2 0(B) x Mod 2 != 0(C) x Mod 2 0(D) x Mod 2 0(答案：A)30401. 返回值為數(shù)值的函數(shù)是（ ）。(A) Mid(B) Instr(C) Left(D) Rtrim(答案：B)30402. 表達式Len(幸運52)的值是（ ）。(A) 0(B) 4(C) 6(D) 8(答案：B)30403. 以下（ ）語句可表示50,100之間的隨機數(shù)。(A) Int(Rnd * 51) + 49(B) Int(Rnd * 51 +50)(C) Int(Rnd * 50) + 50(D) Int(Rnd * 50 + 50)(答案：B)30404. 返回值為字符串的函數(shù)是（ ）。(A) Str(B) Val(C) Len(D) Asc(答案：A)30405. 當x=0時，函數(shù)IIf(x 0, 1, IIf(x 2 = y(C) x = y 2(D) x = y+(答案：C)30506. 錯誤使用Print方法的是（ ）。(A) Picture1.Print(B) Form1.Print(C) Debug.Print(D) Text1.Print(答案：D)30507. Print方法分區(qū)輸出時，用（ ）分隔多個表達式。(A) 空格(B) 逗號 (C) 冒號(D) 分號(答案：B)30508. Print 10+6=; 10+6的輸出結果是（ ）。(A) 16=10+6 (B) 10+6=10+6(C) 10+6=16(D) 10+6=10+6(答案：C)30509. 下列敘述錯誤的是（ ）。(A) 不允許使用行號與標號(B) 單條語句可分行書寫(C) 同一行上可以書寫多條語句(D) VB代碼不堠 ?分字母的大小寫(答案：A)30601. 執(zhí)行x = InputBox(請輸入半徑,0,求面積) ，在輸入框中輸入3后回車,則下列敘述正確的是（ ）。(A) x的值是數(shù)值3(B) x的值是字符3(C) 0是默認值(D) 對話框標題是求面積(答案：B)30602. 執(zhí)行x = MsgBox(數(shù)據(jù)類型不匹配,1,出錯提示!) ，然后單擊消息框的取消按鈕，x的值是（ ）。(A) True(B) False(C) 1(D) 2(答案：D)30603. 下列語句正確的是（ ）。(A) MsgBox VbOkOnly, Error(B) MsgBox Error, VbOkOnly(C) MsgBox ( VbOkOnly, Error )(D) MsgBox ( Error, VbOkOnly )(答案：B)30604. 執(zhí)行Len(InputBox(請輸入編號:)，在輸入框中輸入神州1號后回車，結果為（ ）。(A) 4(B) 7(C) 0(D) 出錯(答案：A)30605. 執(zhí)行MsgBox 除數(shù)不能為0！, 48, 數(shù)據(jù)出錯，在彈出的消息框中顯示的圖標是（ ）。 (A) 停止圖標(B) 問號圖標(C) 感嘆號圖標(D) 消息圖標(答案：C)30606. 下列語疊 ?組：a$=Today And Tomorrowb$=Right(a$,8):c$=Left(a$,5)MsgBox a$, ,b$,c$執(zhí)行后消息框的標題是（ ）。(A) Today (B) Tomorrow(C) Today And Tomorrow(D) 1(答案：B)30607. 下列語句組：a$=Today And Tomorrowb$=Right(a$,8):c$=Left(a$,5)MsgBox a$, ,b$,c$執(zhí)行后消息框中顯示的內(nèi)容是（ ）。(A) Today (B) Tomorrow(C) Today And Tomorrow(D) 1(答案：C)30608. 下列程序運行時,消息框顯示的內(nèi)容是（ ）。Private Sub Command1_Click()MsgBox CStr(123 + 321)End Sub(A) 444 (B) 123321(C) 123+321(D) 顯示出錯信息(答案：A)30609. 窗體上有一個命令按鈕Command1，編寫如下事件過程：Private Sub Command1_Click()x = InputBox(x=)y = InputBox(y=)Print x + yEnd Sub運行后，單擊命令按鈕，先后在兩個輸入對話框中輸入123和321，窗體顯示的內(nèi)容是（ ）。(A) 444 (B) 123321(C) 123+321(D) 出錯信息(答案：B)30701. 將窗體的（ ）屬性設置為T rue，可使Form_Load事件中的Print方法顯示結果。(A) DrawStyle(B) DrawMode(C) AutoRedraw(D) Enabled(答案：C)30702. 將窗體的BoderStyle屬性設置為（ ）可使窗口不顯示標題欄。(A) 0(B) 1(C) 2(D) 5(答案：A)30703. 下列敘述正確的是（ ）。(A) 窗體的Name屬性可以為空(B) 窗體的Name屬性定義窗體的名稱(C) 可以在運行期間改變窗體的Name屬性(D) 窗體的Name屬性的值顯示在窗體標題欄中(答案：B)30704. 設置窗體的（ ）屬性可改變窗體標題。(A) Caption(B) Name(C) BackColor(D) BorderStyle(答案：A)30705. 通過（ ）屬性設置窗體圖標。(A) Icon(B) Picture(C) MouseIcon(D) DownPicture(答案：D)30706. 一個工程含有多個窗體及標準模塊，下列敘述錯誤的是（ ）。 (A) 如果工程含Sub Main過程，程序首先執(zhí)行該過程(B) 任何時刻最多只有一個窗體是活動窗體(C) 標準模塊不能設置為啟動模塊(D) Hide方法只是隱藠 ?而不從內(nèi)存中清除窗體(答案：A)30707. 使用（ ）方法可隱藏窗體，但不從內(nèi)存中釋放。(A) Show (B) Load (C) Hide (D) UnLoad(答案：C)30708. 下列描述錯誤的是（ ）。(A) 窗體的Load事件在加載窗體時發(fā)生(B) 窗體的Height、Width屬性用于設置窗體的高和寬(C) 執(zhí)行Unload Form1語句后，窗體仍在內(nèi)存中但不可見(D) 當窗體的Enabled屬性為False時，對窗體的操作都被禁止(答案：C)30709. 運行后，在窗口上單擊鼠標時，窗體不會接收到的事件是（ ）。(A) MouseDown (B) MouseUp (C) Click (D) Load(答案：D)30801. 下列敘述錯誤的是（ ）。(A) 標簽和文本框都有Caption屬性(B) 標簽和文本框的主要區(qū)別在于能否編輯其內(nèi)容(C) 標簽具有AutoSize屬性，而文本框沒有(D) 文本框具有ScrollBar屬性，而標簽沒有(答案：A)30802. 能清除文本框Text1中內(nèi)容的語句是（ ）。(A) Text = (B) Text1.Text = (C) Text1.clear(D) Text1.Cls(答案：B)30803. 設置（ ）屬性使標簽Label1沒有邊框。(A) Label1.BorderStyle = 0(B) Label1.BorderStyle = 1(C) Label1.BackStyle = True(D) Label1.BackStyle = False(答案：A)30804. 下列敘述錯誤的是（ ）。(A) 標簽和文本框都有Move方法(B) 標簽和文本框都有Text屬性(C) 標簽具有Caption屬性，而文本框沒有(D) 文本框具有Locked屬性，而標簽沒有(答案：B)30805. 下列控件屬性賦值語句錯誤的是（ ）。(A) Label1 = 歡迎(B) Text1.Text = 歡迎(C) Text1 = 歡迎(D) Text = 歡迎(答案：D)30806. 設置標簽Label1的（ ）屬性使它不可見。(A) Label1.Visible = 0(B) Label1.Visible = 1(C) Label1.Visible = True(D) Label1.Visible = False(答案：D)30807. 設置標簽的（ ）屬性，可改變其文字對齊方式。(A) Justify(B) Font(C) Alignment (D) 以上都不是(答案：C)30808. 觸發(fā)文本框Change事件的操作是（ ）。(A) 改變斠 ?本框的內(nèi)容(B) 改變文本框的大小(C) 文本框獲得焦點(D) 文本框失去焦點(答案：A)30809. 修改文本框的內(nèi)容觸發(fā)（ ）事件。(A) Modify(B) Change(C) ChangeData (D) AutoSize(答案：B)30901. 設置圖像框的（ ）可使框內(nèi)的圖片按圖像框大小自動調整。(A) AutoSize屬性為True(B) AutoSize屬性為False(C) Stretch屬性為True(D) Stretch屬性為False(答案：C)30902. 下列語句組：ScaleWidth = 100 : ScaleHeight = 100Circle(50, 40) ,10, , , ,2繪制的是（ ）。(A) 圓形(B) 橢圓(C) 扇形(D) 弧線(答案：B)30903. 將當前目錄下的圖形文件Clock.jpg裝入圖片框Picture1的語句是（ ）。(A) Picture = Clock1.jpg(B) Picture = LoadPicture(Clock1.jpg)(C) Picture1.Picture = Clock1.jpg(D) Picture1.picture = LoadPicture(Clock1.jpg)(答案：D)30904. 設置Line控件的（ ）屬性可使其呈現(xiàn)不同式樣。(A) BorderStyle(B) Style(C) FillStyle(D) Shape(答案：A)3090 5. 下列敘述錯誤的是（ ）。(A) Scale方法用來定義新坐標系(B) 窗體缺省坐標原點在窗體的左下角(C) ScaleLeft和ScaleTop屬性可改變坐標系的原點位置。(D) ScaleWidth和ScaleHeight屬性可改變其對象高度和寬度的刻度單位(答案：B)30906. 下列敘述錯誤的是（ ）。(A) Pset方法用于繪制點(B) Circle方法用于畫圓、橢圓、圓弧和扇形(C) Line方法用于畫直線或矩形(D) Ponit方法用于繪制有顏色的點(答案：D)30907. 設置圖片框的（ ）使其按圖片尺寸自動調整大小。(A) AutoSize屬性為True(B) AutoSize屬性為False(C) Stretch屬性為True(D) Stretch屬性為False(答案：A)30908. 不屬于VB作圖方法的是（ ）。(A) Pset(B) Line(C) Shape(D) Circle(答案：C)30909. VB的圖形控件不包括（ ）。(A) 直線(B) 框架(C) 圖像框(D) 圖片框(答案：B)31001. 復選框的Value屬性為0表示（ ）。(A) 復選框未被選中(B) 復選框被選中(C) 堠 ?選框內(nèi)有灰色的鉤(D) 操作出錯(答案：A)31002. 單選按鈕被選定時，其Value屬性為（ ）。(A) 1(B) 0(C) True(D) False(答案：C)31003. 運行時，下列哪種方法不能選中單選按鈕（ ）。(A) 用鼠標單擊單選按鈕(B) 在屬性窗口中將單選按鈕的Value屬性設置為1(C) 用Tab鍵將焦點轉移到一組單選按鈕后單擊其中的單選按鈕(D) 采用單選按鈕的訪問鍵快捷方式(答案：B)31004. 下列（ ）語句使復選框Check1無效。(A) Check1.Value = 1(B) Check1.Value = 2(C) Check1.Style = 1(D) Check1.Style = 0(答案：B)31005. 下列（ ）語句使復選框Check1的標題顯示在左邊。(A) Check1.Style = 0(B) Check1.Alignment = 0(C) Check1.Style = 1(D) Check1.Alignment = 1(答案：D)31006. 下列（ ）語句設置單選按鈕Option1為選中狀態(tài)。(A) Option1.Value = 0(B) Option1.Value = True(C) Option1.Value = 1(D) Option1.Value = False(答案：B)31007. 復選框和單選按鈕的（ ） 屬性可以反應其當前狀態(tài)。(A) Value(B) Checked(C) Caption(D) Selected(答案：A)31008. 單選按鈕不具有（ ）屬性。(A) Value(B) Checked(C) Caption(D) Stytle(答案：B)31009. 要取得復選框的狀態(tài)，應訪問（ ）屬性。(A) Value(B) Checked(C) Visible(D) Enabled(答案：A)31101. 在屬性窗口為命令按鈕的Picture屬性裝入了圖片，但卻沒有顯示的原因是（ ）。(A) 按鈕的Enabled屬性為False(B) 按鈕的Sytle屬性為0(C) 按鈕的Default屬性為False(D) 按鈕的DisabledPicture屬性沒有裝入圖片(答案：B)31102. 如果命令按鈕的Caption屬性包含（ ），則按下Alt+C可激活該按鈕。(A) &C(B) $C(C) #C(D) C(答案：A)31103. 設置命令按鈕的（ ）屬性為True，可使按下Esc鍵時執(zhí)行該按鈕的單擊事件過程。(A) Cancel(B) Enabled(C) Value(D) Default(答案：A)31104. 設置命令按鈕的（ ）屬性，可使指針指向該按鈕時顯示提示內(nèi)容。(A) Caption(B) ToolTipText(C) Font(D) Tag(答案：B)31105. 下列（ ）方法不能觸發(fā)命令按鈕的Click 事件。(A) 在程序運行時單擊命令按鈕(B) 在代碼中設命令按鈕的Value屬性為True(C) 在設計時設命令按鈕的Default屬性為True，運行時按ESC鍵(D) 使用Tab鍵把焦點移到按鈕上，然后按空格鍵或回車鍵(答案：C)31106. 下列描述錯誤的是（ ）。(A) 單擊命令按鈕可觸發(fā)MouseDown事件(B) 單擊命令按鈕可觸發(fā)MouseUp事件(C) 命令按鈕支持單擊事件(D) 命令按鈕支持雙擊事件(答案：D)31107. 窗體上有命令按鈕OK,它的單擊事件過程為CmdOK_Click()，則該按鈕的Name和Caption屬性分別為（ ）。(A) OK,Cmd(B) Cmd,OK(C) CmdOK,OK(D) OK，CmdOK(答案：C)31108. 執(zhí)行（ ）語句，可使窗口的按鈕Command1上顯示“確定”。(A) Command1.Show = 確定(B) Command1.Caption = 確定(C) Command1.Name = 確定(D) Command1.Visible = 確定(答案：B)31109. 命令按頠 ?不能響應（ ）事件。(A) DblClick(B) DragDrop(C) KeyPress(D) MouseMove(答案：A)31201. 引用列表框List1最后一項數(shù)據(jù)應使用（ ）。(A) List1.List（ListCount-1)(B) List1.List（List1.ListCount-1)(C) List1.List（ListCount)(D) List1.List（List1.ListCount)(答案：B)31202. 下列（ ）控件結合了文本框和列表框的特性。(A) 圖片框(B) 圖像框(C) 組合框(D) 標簽(答案：C)31203. 將列表框的MultiSelect屬性設置為（ ）后，可用Shift或Ctrl鍵配合鼠標在列表框中進行多項選擇。(A) 無 (B) 0 (C) 1(D) 2(答案：D)31204. 引用列表框List1被選中項數(shù)據(jù)應使用（ ）。(A) List1.list(B) List1.listCount(C) List1.Index(D) List1.Text(答案：D)31205. 使用（ ）語句將北京奧運添加到列表框List1的首相。(A) List1.Text = 北京奧運(B) List1.AddItem 北京奧運(C) List1.List(0) = 北京奧運(D) List1.AddItem 北京奧運,0(答案：D)31206. 使用（ ）方法 可以只刪除列表框指定項目。(A) Cls(B) Clear(C) Remove(D) RemoveItem(答案：D)31207. 用（ ）方法可將項目添加到組合框中。(A) List(B) ListIndex(C) Add(D) AddItem(答案：D)31208. 能輸出組合框Combo1中現(xiàn)有項目數(shù)的語句是（ ）。(A) Print Combo1.ListIndex(B) Print Combo1.Index(C) Print Combo1.ListCount(D) Print Combo1.Count(答案：C)31209. 使用（ ）語句可將組合框Combo1的第3項置為當前項。(A) Combo1.ListIndex = 3(B) Combo1.Index = 3(C) Combo1.ListIndex = 2(D) Combo1.Index = 2(答案：C)31301. 計時器控件以一定時間間隔觸發(fā)（ ）事件。(A) Enabled(B) Interval(C) Timer1(D) Timer(答案：D)31302. 將框架的（ ）屬性設為False，可使框架內(nèi)的所有對象在運行時均不可操作。(A) Enabled(B) Visible(C) BorderSytle(D) ClipControls(答案：A)31303. 拖動滾動條中的滑塊將觸發(fā)滾動條的（ ）事件。(A) Slide(B) Scroll(C) DragOver(D) DragDrop(答椏 ?：B)31304. 下列敘述錯誤的是（ ）。(A) 計時器的Enabled屬性為False，會暫停計時器的計時操作(B) 運行時計時器不可見，所以其位置和大小無關緊要(C) 觸發(fā)計時器Timer事件的時間間隔可人為設定(D) 計時器的Interval屬性以秒為單位(答案：D)31305. 用（ ）分隔同一窗體中的多組單選按鈕，使它們互不干擾。(A) 框架(B) 組合框(C) 復選框(D) 列表框(答案：A)31306. 單擊滾動條兩端的箭頭可觸發(fā)滾動條的（ ）事件。(A) Change(B) Scroll(C) DragOver(D) ItemCheck(答案：A)31307. 設置（ ）屬性可改變單擊滾動條兩端箭頭時的滾動步長。(A) Max(B) Min(C) LargeChange (D) SmallChange(答案：D)31308. 將框架的（ ）屬性設為False，可使框架內(nèi)的所有對象在運行時均不可見。(A) Enabled(B) Visible(C) BorderSytle(D) ClipControls(答案：B)31309. 計時器控件能正常工作應具備的兩個條件是（ ） ?(A) Enabled屬性為True和Interval屬性為0(B) Enabled屬性為False和Interval屬性為0(C) Enabled屬性為True和Interval屬性非0(D) Enabled屬性為False和Interval屬性非0(答案：C)31401. 使用（ ）方法將焦點移到某個控件上。(A) SetFocus(B) GotFocus(C) Move(D) Refresh(答案：A)31402. 文本框獲得焦點時，能觸發(fā)KeyPress事件的操作是（ ）。(A) 選定文本框中內(nèi)容(B) 雙擊文本框(C) 按下鍵盤上的某個鍵(D) 單擊文本框(答案：C)31403. 下列敘述錯誤的是（ ）。(A) 所有的控件均支持Tab順序(B) 可以在設計階段改變Tab順序(C) 可以在運行階段改變Tab順序(D) 可以設置相應的屬性使Tab順序不起作用(答案：A)31404. 下列描述正確的是（ ）。(A) 不同控件的TabIndex屬性可以相同(B) 同一窗體中不同控件的TabIndex屬性值可以任意設置(C) 窗體、命令按鈕、標簽和文本框控件都有TabIndex屬性(D) 窗體上控件的TabIndex屬性堠 ?必須小于該窗體的控件個數(shù)(答案：D)31405. 對文本框Text1編寫如下事件過程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim b As Stringb = Chr(KeyAscii)KeyAscii = Asc(UCase(b)End Sub運行時，下列敘述正確的是（ ）。(A) Text1中無法輸入字符(B) Text1中內(nèi)容為b(C) Text1中輸入的字符都變?yōu)榇髮?D) Text1中輸入的字符都被轉換成ASCII碼(答案：C)31406. 下列敘述錯誤的是（ ）。(A) 在KeyDown事件中，鍵盤上輸入的A或a被視作相同的字母(B) 在KeyUp事件中，鍵盤上的1和右側小鍵盤上的1視作不同的數(shù)字(C) 只有獲得焦點的對象才能夠接受鍵盤事件(D) KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放(答案：D)31407. 下列敘述錯誤的是（ ）。(A) 如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數(shù)據(jù)(B) 文本框的Enabled屬性為False時，其Tab順序不起作用(C) 文本框失去焦點時，觸發(fā)LostFoc us事件(D) 可以用TabIndex屬性改變Tab順序(答案：A)31408. 設置控件的（ ）屬性為False，使該控件不能通過Tab鍵得到焦點。 (A) GotFocus(B) SetFocus(C) TabStop(D) TabIndex(答案：C)31409. 要使用自定義的鼠標指針，必須將MousePointer屬性設置為（ ）。(A) 0(B) 15(C) 3(D) 99(答案：D)31501. 下列求兩數(shù)中最小數(shù)的程序段不正確的是（ ）。(A) If x y Then Min = x Else Min = y(B) Min = IIf(x y，x，y)(C) Min = x : If y = x Then Min = y(D) If y z - x Then z = x + yIf x + y z - y Then x = z + yPrint x, y, z(A) 3 5 9(B) 14 3 11(C) 8 3 11(D) 8 5 9(答案：B)31503. 窗體上有一個命令按鈕Command1，編寫如下事件過程：Private Sub Command1_Click()Sum = 0For m = 1 To 3Select Case mCase 1a = 1Case 2a = 2Case 3a = 3End SelectPrint a,Sum = S um + aNext mPrint SumEnd Sub運行時，單擊按鈕，輸出結果是（ ）。(A) 3 3 3 9(B) 3 2 1 6(C) 1 1 1 3(D) 1 2 3 6(答案：D)31504. 窗體上有一個命令按鈕Command1，編寫如下事件過程：Private Sub Command1_Click()a = 80: b = 50: c = 30If a c Then b = cIf b = c And a c Then c = a + bPrint a, b, cEnd Sub運行時，單擊按鈕，窗體輸出的結果是（ ）。(A) 80 50 30(B) 80 30 30(C) 50 30 80(D) 50 30 30(答案：B)31505. 執(zhí)行下列程序段后，x的值是（ ）。n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i 3Print BCase 5 To 10Print CCase ElsePrint DEnd Select(A) A(B) B(C) C(D) D(答案：B)31507. 執(zhí)行下列語句后，x的值是 ? ）。a = 3x = IIf(a 5, int(-5.6), Fix(5.6)(A) 5(B) -5(C) 6(D) -6(答案：A)31508. 窗體上有一個命令按鈕Command1，編寫如下事件過程：Private Sub Command1_Click()a = Val(InputBox(請輸入分數(shù)：, 計算你的等級, 60)If a 100 ThenPrint 輸入錯誤ElseIf a 60 ThenPrint 不合格ElseIf a 80 ThenPrint 合格ElsePrint 優(yōu)秀End IfEnd Sub運行時，單擊按鈕，在輸入對話框中直接回車，輸出結果為（ ）。(A) 輸入錯誤(B) 不合格(C) 合格(D) 優(yōu)秀(答案：C)31509. 如果x小于y的平方，則在窗體上輸出OK。完成該要求的單行條件語句是（ ）。(A) If x y 2 Then OK(B) If x y 2 Then Show OK(C) If x y 2 Then Print OK(D) If x y 2 Then Put OK(答案：C)31601. 已知字母D的ASCII碼是68。在窗體上添加命令按鈕Command1，并編寫如下事件過程：Private Sub Command1_Click()m = 68: a = DPrint aFor i = ()循環(huán)次數(shù)的控制m = m + 1a = Chr(m) + a + Chr(m)Print aNext iEnd Sub運行時，要使單擊按鈕后輸出如下結果，程序中的空缺部分應為（ ）。DEDEFEDEFGFEDEFG(A) 1 To 4(B) 1 To 3(C) 1 To 4 step 2(D) 1 To 3 step 2(答案：B)31602. 閱讀下列程序段：x = 0For i = 1 To 4For j = 1 To ix = x + 1Next j, i執(zhí)行以上循環(huán)后，x 的值為（ ）。(A) 6(B) 9(C) 10(D) 16(答案：C)31603. 運行下列程序，單擊窗體后輸出的結果是（ ）。Private Sub Form_Click()Dim k As IntegerFor k = 1 To 2Print 3 + k; 3 & k; Spc(3);NextEnd Sub(A) 31 3132 32(B) 4 315 32(C) 31 31 32 32(D) 4 31 5 32(答案：D)31604. 執(zhí)行下列程序段后輸出的結果是（ ）。s = 1For i = 1 To 3For j = 0 To i-1s = s + s * jNext j? s;Next I(A) 1 2(B) 2 1(C) 2 2 12(D) 1 2 12(答案：D)31605. 閱讀下列程序段：m = 0For i = 1 To 3For j = 1 To im = m + jNext j, i執(zhí)行以上的循環(huán)后，i和m的值分別為（ ）。(A) 3 6(B) 3 10(C) 4 6(D) 4 10(答案：D)31606. 運行下列程序段，其中“n=n+1”語句被執(zhí)行的次數(shù)是（ ）。Dim m%, n%For m = 1 To 3For n = 1 To 6 Step 2n = n + 1Print nNextNext(A) 3(B) 6(C) 9(D) 18(答案：B)31607. 窗體上有兩個文本框（Text1、Text2）和一個命令按鈕Command1，編寫如下事件過程：Private Sub Command1_Click()x = 0Do While x 50x = (x + 2)* (x + 4)n = n + 1LoopText1.Text = CStr(n)Text2.Text = CStr(x)End Sub運行時，單擊按鈕，Text1和Text2將分別顯示（ ）。(A) 0 和 0(B) 1 和 8(C) 2 和 120(D) 3 和 15180(答案：C)31608. 窗體上有一個命令按鈕Command1，編寫如下事件過程：Private Sub Command1_Click()For i = 1 To 4For j = 4 To 8Sum = Sum + 1Next jNext iPrint SumEnd Sub運行時，單擊按鈕，輸出結果是（ ）。(A) 4(B) 8(C) 20(D) 32(答案：C)31609. 窗體上有一個命令按鈕Command1，編寫如下事件過程：Private Sub Command1_Click()a = 0For m = 1 To 3a = a + 1b = 0For j = 1 To 3a = a + 1b = b + 2Next jNext mPrint a, bEnd Sub運行時，單擊按鈕，輸出結果是（ ）。(A) 6 6(B) 6 18(C) 12 6(D) 12 18(答案：C)31701. 在通用聲明中給出Option Base 1語句，則數(shù)組a包含（ ）個元素。Dim a(3, -2 To 1, 5)(A) 120(B) 75(C) 60(D) 13(答案：C)31702. 下列敘述錯誤的是（ ）。(A) 控件數(shù)組的每一個元素共享同樣的事件過程(B) 控件數(shù)組的每一個元素都有與之相關聯(lián)的下標值(C) 控件數(shù)組的每一個元素都有不同的Name屬性作為標識(D) 可在運行過程中刪除控件數(shù)組的某個元素(答案：C)31703. 運行下列程序，單擊窗體后輸出的結果是（ ）。Private Sub Form_Click()Dim aDim s As Integer, i As Integera = Array(1, 2, 3)For i = 2 To 0 Step -1s = s + a(i) * a(i)Next iPrint sEnd Sub(A) 13(B) 14(C) 不確定(D) 程序出錯(答案：B)31704. 如下數(shù)組聲明語句中數(shù)組a包含的元素個數(shù)為（ ）。Dim a(3, -2