重慶計(jì)算機(jī)等級(jí)二級(jí)VB歷年真題A

1、重慶市計(jì)算機(jī)等級(jí)二級(jí)VB歷年真題A-1二級(jí) Visual Basic 語(yǔ)言筆試試題(A)一、單項(xiàng)選擇題(每題 1 分，共 20 分)1. 執(zhí)行X = 7 And 3 : Y = 7 Or 3后，比較結(jié)果：(A)X = Y(B) X > Y(C) X < Y(D)發(fā)生錯(cuò)誤2. 執(zhí)行X = 7 Mod 3 : Y = 7 3后，比較結(jié)果：(A)X = Y(B) X > Y(C) X < Y(D)發(fā)生錯(cuò)誤3. 下列常數(shù)或表達(dá)式中數(shù)值最大的為：(A) &H200-1 (B) &HFF+256(C) 512(D) &H100+2554. 下列表達(dá)式中數(shù)值最

2、小的為：(A)7 / 3 (B) Fix ( -7 / 3 ) (C) -Int (7 / 3 ) (D) Int ( -7 / 3 )5. 執(zhí)行Print Int ( 12.34567 * 1000 ) / 1000后，顯示的結(jié)果為：(A)12.000 (B)12.34(C)12.345(D)12.34566. 從 A$ = "Windows Application", 中取出 "Application" 子字符串所用到的函數(shù)是： (A)Left$ (A$, 10) (B)Right (A$, 10)(C)Mid$ (A$, 9, 10) (D)Mid

3、$(A$, 9)7. 如要將一個(gè)數(shù)值變量 A中的數(shù)值在標(biāo)簽Labell上顯示，正確的語(yǔ)句是： (A)Label1.Name = A (B)Label1.Tag = A(C)Label1.Caption = A (D)Label1.Top = A8. 如要將一個(gè)字符串變量A 中的字符串在標(biāo)簽Label1 上顯示，正確的語(yǔ)句是：(A)Label1.Name = A (B)Label1.Tag = A (C)Label1.Caption = A (D)Label1.Top = A9. 如要讀出文本框Text1 上顯示的字符串，正確的語(yǔ)句是：(A)X$ = Text1.Name (B)X$ = Tex

4、t1.Tag(C)X$ = Text1.Font (D)X$ = Text1.Text10按下鼠標(biāo)左鍵或右鍵，將能夠區(qū)分鼠標(biāo)的左、右鍵的事件是：(A)Click (B)DblClick (C)MouseDown (D)DragDrop11 .命令按鈕Command俵面可以顯示在 Picture屬性中的圖片，必須設(shè)置命令按鈕的： (A)Command1.Apearance = Flat (B)Command1.Visible = True(C)Command1.Style = Graphical (D)Command1.Enable = True12 .命令按鈕 Command的 Picture

5、, DownPicture 和 DisabledPicture屬性都已裝入圖形，當(dāng)命令按鈕的Enable = False 時(shí)，在命令按鈕表面顯示的圖形為：(A)DownPicture 屬性中的圖形(B)DisabledPicture 屬性中的圖形(C)Picture 屬性中的圖形(D)Picture 屬性中的圖形，但呈現(xiàn)為灰色13 .將命令按鈕Command俵面顯示的圖片復(fù)制到圖片框 Picture1中的語(yǔ)句是：(A)Picture1=Command1.Picture (D)Picture1.Picture =Command1.DownPicture(C)Picture1.Picture =C

6、ommand1 (B)Picture1=Command1.DisablePicrure14 .將到圖片框Picture1中的圖片復(fù)制到命令按鈕Command賓面顯示的語(yǔ)句是:(A)Command1=Picture1.Picture (B)Command1.DisablePicrure=Picture1(C)Command1.Picture =Picture1 (D)Command1.DownPicture=Picture1.Picture15在二個(gè)圖片框中各有一組單選按鈕OptionButton ，其作用為：(A) A) 兩組單選按鈕中只有一個(gè)能被選中(B) 因有兩組單選按鈕，無(wú)一可被選中(C

7、) 兩組單選按鈕中各有一個(gè)能被選中(D) 兩組單選按鈕中各有一個(gè)以上的能被選中16.在二個(gè)圖片框中各有一組復(fù)選框CheckBox,其作用為：(A) 兩組復(fù)選框中只有一個(gè)能被選中(B) 因有兩組復(fù)選框，無(wú)一可被選中(C) 兩組復(fù)選框中各有一個(gè)能被選中(D) 兩組復(fù)選框中各有多個(gè)能被選中17. 圖片框的FillStyle 屬性為 Solid ， 用 Line 方法繪制矩形框，若省略 F 選項(xiàng)， 填充的色彩為圖片框的：(A)BackColor 屬性 (B)FillColor 屬性(C)ForeColor 屬性 (D) 固定為黑色18. 圖片框的FillStyle 屬性為 Solid ， 在用 Lin

8、e 方法繪制矩形框時(shí)，若省略色彩選項(xiàng)，矩形框的邊界色彩為：(A)BackColor 屬性 (B)FillColor 屬性(C)ForeColor 屬性 (D) 固定為黑色19. 定時(shí)器 Timer 控件觸發(fā)Timer 事件觸發(fā)過(guò)程的時(shí)間間隔為：(A) 每秒觸發(fā)一次(B) 每隔 Interval 屬性中設(shè)定的時(shí)間間隔觸發(fā)一次(C)每毫秒觸發(fā)一次(D)每隔由Windows系統(tǒng)設(shè)定的時(shí)間間隔觸發(fā)一次20以順序輸出(寫文件)模式打開文件"Test.Dat" 的語(yǔ)句是：(A)Open "Test.Dat" For Output As #1(B)Open "

9、;Test.Dat" For Input As #2(C)Open "Test.Dat" For Binary As #3(D)Open "Test.Dat" For Random As #4 Len = 16二、多項(xiàng)選擇題: ( 每題 1 分 , 共 10 分 )1絕對(duì)值小于4 的表達(dá)式有：(A)72 (B)-72 (C)Int(7/2) (D)Int(-7/2) (E)Fix(-7/2)2 .在VB中，呈現(xiàn)灰色的色彩表示法有：(A)&H808080(B)&H80C080 (C)QBColor(7)(D)RGB(128,128

10、,128) (E)RGB(128,255,128)3 .整數(shù)A > B,產(chǎn)生一個(gè)大于等于 B且小于A的隨機(jī)整數(shù)的表達(dá)式為：(A)Int(A-B)*Rnd+1) (B)Int(A-B +1)*Rnd+B) (C)A+Int(A-B -1)*Rnd)(D)Int(A-B) *Rnd+B)'(E)B+Int(A-B)*Rnd)4 . 具有標(biāo)題Caption 屬性的控件有：(A) 標(biāo)簽 Label (B) 窗體 Form (C) 框架 Frame(D) 圖片框 PictureBox (E) 命令按鈕CommandButton5在其表面可以顯示圖形的控件有：(A) 圖象框 Image (B

11、) 復(fù)選框 CheckBox (C) 單選按鈕OptionButton(D) 圖片框 PictureBox (E) 命令按鈕CommandButton6. 控件的 MousePoint 屬性上可將光標(biāo)的形狀設(shè)置為：(A)Arrow (B) Cross (C)I-Beam (D)Up Arrow (E)HourGlass7在鍵盤上按空格鍵，并立即松開，被觸發(fā)的事件有：(A)KeyUp (B)KeyDown (C)KeyPress (D)Click (E)DbClick8在控件上按下鼠標(biāo)右鍵, 并立即松開，被觸發(fā)的事件有：- 12 -(A)Click 事件 (B)DbClick 事件(C)Mous

12、eDown 事件 (D)MouseMove 事件 (E)MouseUp 事件9. 一個(gè)控件數(shù)組中的控件必須符合的條件是：1 A) 數(shù)組中的每個(gè)控件類型相同(B) 數(shù)組中的每個(gè)控件的名稱相同(C) 數(shù)組中的每個(gè)控件的大小都必須相同(D) 數(shù)組中的每個(gè)控件的位置都必須相同(E) 數(shù)組中的每個(gè)控件的索引(Index )屬性相同10 VB 的工程菜單(Project) 中部件 (Components) 菜單項(xiàng)中有很多功能強(qiáng)大的外部控件：(A) 通用對(duì)話框CommonDialog (B) 高級(jí)文本框RichTextBox(C) 日歷 Calender(D)Internet瀏覽器 WebBrowsers(

13、E) 接收和發(fā)送E-Mail 的控件 MAPISession 和 MAPIMessages三、判斷分析( 每題 1 分 , 共 10 分 )( 下列各小題的敘述是否正確，如正確，請(qǐng)選擇“?”；如錯(cuò)，請(qǐng)選擇“?”。)1在 VB 中，未經(jīng)聲明的變量的數(shù)據(jù)類型為Variant 通用型。2已經(jīng)聲明，但未經(jīng)賦值的數(shù)值變量的初值為0。3已經(jīng)聲明，但未經(jīng)賦值的字符串變量的初值為長(zhǎng)度為1 的空格。11 控件Frame具有容器功能，可將其他控件放置在Frame控件內(nèi)。5標(biāo)簽控件Label 中的內(nèi)容在運(yùn)行時(shí)可以通過(guò)鍵盤直接修改。6文本框控件TextBox 中的內(nèi)容在運(yùn)行時(shí)可以通過(guò)鍵盤直接修改。7命令按鈕的表面可以

14、顯示文字或圖形。8若一控件的Enabled = False ， Visible = True ，則在運(yùn)行時(shí)該控件可見(jiàn)，但不響應(yīng)操作。9若一控件的Visible=False ， Enabled= True ，則在運(yùn)行時(shí)該控件不可見(jiàn)，但可響應(yīng)操作。10. 由于定時(shí)器Timer 控件在運(yùn)行時(shí)是不可看的，因此定時(shí)器控件不可能有事件觸發(fā)過(guò)程。四、填空題: ( 每空 2 分 , 共 20 分 )1.單擊命令按鈕 Command!后，在窗體上顯示 10個(gè)數(shù)值范圍為10 - 100的隨機(jī)數(shù)。 Private Sub Command1_Click ( )For k = 1 ToA = Int (_ _ * Rn

15、d ) + Print ANext kEnd Sub2在窗體上繪制一閉合圖形的操作是：在閉合圖形的起點(diǎn)按下鼠標(biāo)左鍵，拖動(dòng)鼠標(biāo)畫出圖形，放開鼠標(biāo)左鍵自動(dòng)畫出到起點(diǎn)的連線，完成閉合，結(jié)束繪制。Private Sub Form_MouseDown(Button%, Shift%, X!, Y!)Tag = Y * 10000 + X (X, Y)End SubPrivate Sub Form_MouseMove(Button%, Shift%, X!, Y!)If = 1 Then Line -(x, y)End SubPrivate Sub Form_MouseUp(Button%, Shift%

16、, X!, Y!)X0 = Tag 10000: Y0 = Tag 10000Line (X, Y)-(X0, Y0)End Sub3滾動(dòng)條數(shù)組HScroll1(1) 、 HScroll1(2) 、 HScroll1(3) 分別調(diào)節(jié)圖片框Picture1 背景色的紅、綠、藍(lán)分量。HScroll1_Change ( )R = Hscroll1(1).ValueG = Hscroll1(2).ValueB = Hscroll1(3).ValuePicture1. = (R,G,B)End Sub五、讀程序: ( 每小題 5 分 , 共 20 分 )1 Private Sub Command1_Cl

17、ick()FlagEven = 0N = Val (Text1.Text)For k = 1 To NA = Int (101 * Rnd )If A / 2 = Int (A / 2) Then FlagEven = FlagEven + 1Next kLabel1.Caption = 100 * FlagEven / NEnd Sub運(yùn)行時(shí)，在文本框Text1 中輸入一個(gè)正整數(shù)，單擊計(jì)算按鈕(A)Text1 中輸入的正整數(shù)越大，(B)Text1 中輸入的正整數(shù)越大，(C)Text1 中輸入的正整數(shù)越大，(D)Text1 中輸入的正整數(shù)越小，Command 1則標(biāo)簽Labell 中顯示的結(jié)果

18、:Label1中顯示的數(shù)越接近100Label1中顯示的數(shù)越接近50Label1中顯示的數(shù)越接近0Label1中顯示的數(shù)越接近502 Private Sub Command1_Click()Label1.Caption = ""X = "BASIC"For k = 1 To Len (X)If k = 1 Then T = 0 Else T = 32Label1.Caption = Label1.Caption + Chr (Asc ( Mid (X, k, 1 ) + T )Next kEnd Sub運(yùn)行時(shí)，單擊計(jì)算命令按鈕Command 1窗體上顯示

19、的是：(A)Basic (B)BASIC (C)basic (D)basiC3 Private Sub Form_Click()For X = 50 To 250A = 6.28 * X / 200: Y = 100 - 100 * Sin(A)If X = 50 Then PSet (X, Y)Line -(X, Y)Next XEnd Sub運(yùn)行時(shí)，單擊窗體，顯示的圖形是：(A)(B)(C)(D)4 Private Sub Command1_Click（）Dim H(65 To 90)W = UCase (Text1.Text ) : L = Len(W)For k = 1 To LA =

20、 Asc ( Mid( W, k, 1)If A >= 65 And A <= 90 Then H(A) = H(A) + 1Next kFor k = 65 To 69Print H(k)Next kEnd Sub運(yùn)行時(shí)，在文本框中輸入"Activation: The process of loading an object in memory."，單擊計(jì)算按鈕Command 1窗體上顯示的是：(A) 1(B) 4 (C) 4 (D) 32 1413 3344 1115 413六、編制程序: ( 每題 10 分 , 共 20 分 )1 調(diào)節(jié)圖片框Picture

21、1 的前景色。圖片框Picture1 上畫有一矩形實(shí)心框，用三個(gè)滾動(dòng)條VScroll1 、VScroll2 和 VScrol3 分別調(diào)節(jié)圖片框Picture1 前景色的紅、綠、藍(lán)分量，以改變所畫矩形實(shí)心框的顏色。按結(jié)束按鈕Commandl吉束程序。2 統(tǒng)計(jì)文本中字符出現(xiàn)頻率。在文本框Text1 中輸入一個(gè)英語(yǔ)的長(zhǎng)字符串，按字符統(tǒng)計(jì)按鈕Command， 1分別統(tǒng)計(jì)字符串中從 A到Z每個(gè)字符的個(gè)數(shù)(不區(qū)分大小寫)，顯示在窗體上。按結(jié)束按鈕Command2吉束程序。一 單項(xiàng)選擇題（每題 1 分，共 20 分）I. C. 2. C. 3. C. 4. D 5. C 6 D 7. C 8. C 9. D

22、 10. CII. C. 12. B 13. A 14. C 15. C. 16. D. 17. B 1 8. C 19. B 20 A二 . 多項(xiàng)選擇題: （ 每題 1 分 , 共 10 分 ）1 ABCE 2 ACD 3 DE 4 ABCE 5 ABCDE6 ABCDE 7 ABC 8 ACE 9 AB 10 ABCDE三 . 判斷分析（每題1 分, 共10 分 ）1 T 2T 3F 4T 5 F6 T 7T 8T 9F 10F四 . 填空題 : （ 每空2分 , 共 20 分 ）1.10 91 10 2 . Pset But tonMod 3.IndexBackColorRGB五 . 讀

23、程序 : （ 每小題 5 分 , 共 20 分 ）1 B 2 A 3 A 4 B六 . 編制程序: ( 每題 10 分 , 共 20 分 )2 Private Sub VScroll1_Change()R = VScroll1.Value 取得色彩分量正確3 分G = VScroll2.ValueB = VScroll3.ValuePicture1.ForeColor = RGB(R, G, B) 正確設(shè)置前景色4分End SubPrivate Sub Vscroll2_Change() 重復(fù)滾動(dòng)條每個(gè)1 分R = VScroll1.ValueG = VScroll2.ValueB = VSc

24、roll3.ValuePicture1.ForeColor = RGB(R, G, B)End SubPrivate Sub Vscroll3_Change()R = VScroll1.ValueG = VScroll2.ValueB = VScroll3.ValuePicture1.ForeColor = RGB(R, G, B)End SubPrivate Sub Command1_Click() 結(jié)束正確1 分EndEnd Sub3 Private Sub Command1_Click()Dim H(65 To 90) 定義數(shù)組1 分X = Text1.Text 取字符串1 分L = L

25、en(X)For k = 1 To LW = Mid(X, k, 1) 取子字符串2 分A = Asc(W)If A >= 65 And A <= 90 ThenH(A) = H(A) + 1 數(shù)組累加3 分End IfNext kFor k = 65 To 90 顯示結(jié)果2 分Print Chr(k); " => " H(A)Next kEnd SubPrivate Sub Command2_Click() 結(jié)束正確1 分EndEnd Sub重慶市計(jì)算機(jī)等級(jí)二級(jí)VB歷年上機(jī)真題全國(guó)高等學(xué)校（ 重慶考區(qū)） 非計(jì)算機(jī)專業(yè)計(jì)算機(jī)應(yīng)用知識(shí)和能力2005 年第一次

26、等級(jí)考試Visual Basic 語(yǔ)言上機(jī)考試題（ 第二套 ）（ 共 100分 ）注意：考試結(jié)果存盤的文件名為：ExNNnnnn。ExNN 為題號(hào)，由試卷上給出。nnnn 為考生準(zhǔn)考證號(hào)的右4位，由考生填入。一程序調(diào)試題（40 分 ）下列程序的功能是將用戶鍵盤輸入的二進(jìn)制整數(shù)轉(zhuǎn)換成十進(jìn)制數(shù)，并在窗體上輸出。Private Sub Form_Click（）Dim B As Long, D As BooleanB = InputBox（" 請(qǐng)輸入一個(gè)二進(jìn)制數(shù)", " 輸入 "）D = BFor i = 1 To Len（D）D = D + Right（B,

27、i, 1）NextPrint DEnd Sub要求：根據(jù)上述程序代碼改錯(cuò)，改錯(cuò)時(shí)，不得增加和刪除語(yǔ)句。將修改正確的程序存盤。窗體文件名為 Ex21nnnn.Frm ，工程文件名為Ex21nnnn.Vbp提示：可以用Windows提供的計(jì)算器驗(yàn)證程序運(yùn)算結(jié)果。二編寫程序（ 每題 30 分 ）1.在文本框Textl中輸入一個(gè)以"yyyy -mm-dd"或"yy-mm-dd"格式表示的日期，按"轉(zhuǎn)換"命令按鈕Command將其轉(zhuǎn)換成“yyyy 年mmM dd日”格式，顯示在標(biāo)簽Labell中。窗體文件名為 Ex22nnnn.Frm ,工程文

28、件名為 EX22nnnn.Vbp。2編寫程序，在窗體不同位置上多次按下鼠標(biāo)左鍵時(shí)，能夠在這些單擊點(diǎn)之間繪制出連續(xù)折線。鼠標(biāo)右鍵單擊窗體時(shí)，則能夠在連續(xù)折線的起點(diǎn)與終點(diǎn)之間繪出一條直線，從而形成封閉區(qū)域。窗體文件名為EX23nnnn.Frm,工程文件名為 EX23nnnn.Vbp。重慶市計(jì)算機(jī)等級(jí)二級(jí)VB歷年真題目11 .命令按鈕Command候面可以顯示在 Picture 屬性中的圖片，必須設(shè)置命令按鈕的：(A)Command1 . Apearance = Flat (B)Command1. Visible = True(C)Command1 . Style = Graphical (D)Co

29、mmand1. Enable = True2 .命令按鈕 Command的 Picture, DownPicture 和 DisabledPicture屬性都已裝入圖形，當(dāng)命令按鈕的Enable = False 時(shí)，在命令按鈕表面顯示的圖形為：(A)DownPicture 屬性中的圖形(B)DisabledPicture 屬性中的圖形(C)Picture 屬性中的圖形(D)Picture 屬性中的圖形，但呈現(xiàn)為灰色3 .將命令按鈕Command賓面顯示的圖片復(fù)制到圖片框Picturel中的語(yǔ)句是：(A)Picture1=Command1 . Picture (D)Picture1 . Pict

30、ure =Command1 . DownPicture(C)Picture1 . Picture =Command1 (B)Picture1=Command1 . DisablePicrure4 .將到圖片框Picturel中的圖片復(fù)制到命令按鈕Command茂面顯示的語(yǔ)句是：(A)Command1=Picture1 . Picture (B)Command1 . DisablePicrure=Picture1 (C)Command1. Picture =Picture1 (D)Command1 . DownPicture=Picture1 . Picture5在二個(gè)圖片框中各有一組單選按鈕O

31、ptionButton ，其作用為：(A) A) 兩組單選按鈕中只有一個(gè)能被選中(B) 因有兩組單選按鈕，無(wú)一可被選中(C) 兩組單選按鈕中各有一個(gè)能被選中(D) 兩組單選按鈕中各有一個(gè)以上的能被選中6.在二個(gè)圖片框中各有一組復(fù)選框CheckBox,其作用為：(A) 兩組復(fù)選框中只有一個(gè)能被選中(B) 因有兩組復(fù)選框，無(wú)一可被選中(C) 兩組復(fù)選框中各有一個(gè)能被選中(D) 兩組復(fù)選框中各有多個(gè)能被選中7. 圖片框的FillStyle 屬性為 Solid ， 用 Line 方法繪制矩形框，若省略 F 選項(xiàng)， 填充的色彩為圖片框的：(A)BackColor 屬性(B)FillColor屬性(C)F

32、oreColor 屬性(D) 固定為黑色8. 圖片框的FillStyle 屬性為 Solid ，在用 Line 方法繪制矩形框時(shí)，若省略色彩選項(xiàng)，矩形框的邊界色彩為：(A)BackColor 屬性(B)FillColor屬性(C)ForeColor 屬性(D) 固定為黑色9. 定時(shí)器 Timer 控件觸發(fā)Timer 事件觸發(fā)過(guò)程的時(shí)間間隔為：(A) 每秒觸發(fā)一次(B) 每隔 Interval 屬性中設(shè)定的時(shí)間間隔觸發(fā)一次(C)每毫秒觸發(fā)一次(D)每隔由Windows系統(tǒng)設(shè)定的時(shí)間間隔觸發(fā)一次10以順序輸出(寫文件)模式打開文件"Test.Dat " 的語(yǔ)句是：(A)Open

33、 "Test.Dat " For Output As #1(B)Open "Test.Dat " For Input As #2(C)Open "Test.Dat " For Binary As #3(D)Open "Test.Dat " For Random As #4 Len = 16后，比較結(jié)果：(C) X < Y 后，比較結(jié)果：(C) X < Y(C) 512(D) 發(fā)生錯(cuò)誤(D) 發(fā)生錯(cuò)誤(D) &H100+255(D) Int ( -7 / 3 )顯示的結(jié)果為：" 子字符串

34、所用到的函數(shù)是：11. 執(zhí)行X = 7 And 3: Y = 7 Or 3(A)X = Y(B) X > Y12. 執(zhí)行X = 7 Mod 3: Y = 7 3(A)X = Y(B) X > Y13. 下列常數(shù)或表達(dá)式中數(shù)值最大的為：(A) &H200-1 (B)&HFF+25614. 下列表達(dá)式中數(shù)值最小的為：(A)7 / 3 (B) Fix ( -7 / 3 ) (C) -Int (7 / 3 )15. 執(zhí)行Print Int ( 12. 34567 * 1000 ) / 1000后，顯示的結(jié)果為：(A)12 . 000 (B)12 . 34 (C)12 . 3

35、45 (D)12 . 345616. 從 A$ = "Windows Application ", 中取出 "Application(A)Left$ (A$, 10) (B)Right (A$, 10)(C)Mid$ (A$, 9, 10)(D)Mid$(A$, 9)17. 如要將一個(gè)數(shù)值變量A 中的數(shù)值在標(biāo)簽Label1 上顯示，正確的語(yǔ)句是：(A)Label1 . Name = A(B)Label1 . Tag = A(C)Label1 . Caption = A (D)Label1 . Top = A18. 如要將一個(gè)字符串變量 A中的字符串在標(biāo)簽 Labe

36、l1上顯示，正確的語(yǔ)句是:(A)Label1 . Name = A(B)Label1 . Tag = A(C)Label1 . Caption = A (D)Label1 . Top = A19. 如要讀出文本框Text1 上顯示的字符串，正確的語(yǔ)句是：(A)X$ = Text1. Name(B)X$ = Text1 . Tag(C)X$ = Text1. Font(D)X$ = Text1 . Text20按下鼠標(biāo)左鍵或右鍵，將能夠區(qū)分鼠標(biāo)的左、右鍵的事件是：(A)Click (B)DblClick (C)MouseDown (D)DragDrop二、多項(xiàng)選擇題: ( 每題 1 分 , 共

37、10 分 )1. 控件的 MousePoint 屬性上可將光標(biāo)的形狀設(shè)置為：(A)Arrow (B) Cross (C)I-Beam (D)Up Arrow (E)HourGlass2在鍵盤上按空格鍵，并立即松開，被觸發(fā)的事件有：(A)KeyUp (B)KeyDown (C)KeyPress (D)Click (E)DbClick3在控件上按下鼠標(biāo)右鍵, 并立即松開，被觸發(fā)的事件有：(A)Click 事件(B)DbClick 事件(C)MouseDown 事件 (D)MouseMove 事件(E)MouseUp 事件4. 一個(gè)控件數(shù)組中的控件必須符合的條件是：(A) 數(shù)組中的每個(gè)控件類型相同(

38、B) 數(shù)組中的每個(gè)控件的名稱相同(C) 數(shù)組中的每個(gè)控件的大小都必須相同(D) 數(shù)組中的每個(gè)控件的位置都必須相同(E) 數(shù)組中的每個(gè)控件的索引(Index )屬性相同5. VB的工程菜單(Project)中部件(Components)菜單項(xiàng)中有很多功能強(qiáng)大的外部控件:(A) 通用對(duì)話框CommonDialog (B) 高級(jí)文本框RichTextBox(C) 日歷 Calender(D)Internet瀏覽器 WebBrowsers(E) 接收和發(fā)送E-Mail 的控件 MAPISession 和 MAPIMessages6絕對(duì)值小于4 的表達(dá)式有：(A)72 (B)-72 (C)Int(7/2

39、) (D)Int(-7/2) (E)Fix(-7/2)7 .在VB中，呈現(xiàn)灰色的色彩表示法有:(A)&H808080(B)&H80C080 (C)QBColor(7)(D)RGB(128,128,128) (E)RGB(128,255,128)8 .整數(shù)A > B,產(chǎn)生一個(gè)大于等于 B且小于A的隨機(jī)整數(shù)的表達(dá)式為： (A)Int(A-B)*Rnd+1) (B)Int(A-B +1)*Rnd+B) (C)A+Int(A-B -1)*Rnd) (D)Int(A-B) *Rnd+B)'(E)B+Int(A-B)*Rnd)9 . 具有標(biāo)題Caption 屬性的控件有：(A

40、) 標(biāo)簽 Label(B) 窗體 Form (C) 框架 Frame(D) 圖片框 PictureBox (E) 命令按鈕CommandButton10在其表面可以顯示圖形的控件有：(A) 圖象框 Image (B) 復(fù)選框 CheckBox(C) 單選按鈕OptionButton(D) 圖片框 PictureBox (E) 命令按鈕CommandButton三、判斷分析( 每題 1 分 , 共 10 分 )( 下列各小題的敘述是否正確，如正確，請(qǐng)選擇“?”；如錯(cuò)，請(qǐng)選擇“?”。)1文本框控件TextBox 中的內(nèi)容在運(yùn)行時(shí)可以通過(guò)鍵盤直接修改。2命令按鈕的表面可以顯示文字或圖形。3若一控件的

41、Enabled = False ， Visible = True，則在運(yùn)行時(shí)該控件可見(jiàn)，但不響應(yīng)操作。4若一控件的Visible=False ， Enabled= True ，則在運(yùn)行時(shí)該控件不可見(jiàn)，但可響應(yīng)操作。5 . 由于定時(shí)器Timer 控件在運(yùn)行時(shí)是不可看的，因此定時(shí)器控件不可能有事件觸發(fā)過(guò)程。6 .在VB中，未經(jīng)聲明的變量的數(shù)據(jù)類型為Variant通用型。7已經(jīng)聲明，但未經(jīng)賦值的數(shù)值變量的初值為0。8已經(jīng)聲明，但未經(jīng)賦值的字符串變量的初值為長(zhǎng)度為1 的空格。9 .控件Frame具有容器功能，可將其他控件放置在Frame控件內(nèi)。10標(biāo)簽控件Label 中的內(nèi)容在運(yùn)行時(shí)可以通過(guò)鍵盤直接修

42、改。四、填空題: ( 每空 2 分 , 共 20 分 )1滾動(dòng)條數(shù)組HScroll1(1) 、 HScroll1(2) 、 HScroll1(3) 分別調(diào)節(jié)圖片框Picture1 背景色的紅、綠、藍(lán)分量。HScroll1_Change ( )R = Hscroll1(1).ValueG = Hscroll1(2).ValueB = Hscroll1(3).ValuePicture1. = (R,G,B)End Sub2在窗體上繪制一閉合圖形的操作是：在閉合圖形的起點(diǎn)按下鼠標(biāo)左鍵，拖動(dòng)鼠標(biāo)畫出圖形，放開鼠標(biāo)左鍵自動(dòng)畫出到起點(diǎn)的連線，完成閉合，結(jié)束繪制。Private Sub Form_Mouse

43、Down(Button%, Shift%, X!, Y!)Tag = Y * 10000 + X (X, Y)End SubPrivate Sub Form_MouseMove(Button%, Shift%, X!, Y!)If = 1 Then Line -(x, y)End SubPrivate Sub Form_MouseUp(Button%, Shift%, X!, Y!)X0 = Tag 10000: Y0 = Tag 10000Line (X, Y)-(X0, Y0)End Sub10 單擊命令按鈕 Command!后，在窗體上顯示 10個(gè)數(shù)值范圍為10 - 100的隨機(jī)數(shù)。Pr

44、ivate Sub Command1_Click ( )For k = 1 ToA = Int (_ _ * Rnd ) + Print ANext kEnd Sub五、讀程序: ( 每小題 5 分 , 共 20 分 )1 Private Sub Form_Click()For X = 50 To 250A = 6.28 * X / 200: Y = 100 - 100 * Sin(A)If X = 50 Then PSet (X, Y)Line -(X, Y)Next XEnd Sub運(yùn)行時(shí)，單擊窗體，顯示的圖形是：(A)(B)(C)(D)2 Private Sub Command1_Cli

45、ck()Dim H(65 To 90)W = UCase (Text1.Text ) : L = Len(W)For k = 1 To LA = Asc ( Mid( W, k, 1)If A >= 65 And A <= 90 Then H(A) = H(A) + 1Next kFor k = 65 To 69Print H(k)Next kEnd Sub運(yùn)行時(shí)，在文本框中輸入"Activation: The process of loading an object in memory. "，單擊計(jì)算按鈕Command1窗體上顯示的是：(A) 1(B) 4 (

46、C) 4 (D) 32 1413 3344 1115 4133 Private Sub Command1_Click()FlagEven = 0N = Val (Text1.Text)For k = 1 To NA = Int (101 * Rnd )If A / 2 = Int (A / 2) Then FlagEven = FlagEven + 1Next kLabel1.Caption = 100 * FlagEven / NEnd Sub運(yùn)行時(shí)，在文本框Text1 中輸入一個(gè)正整數(shù)，單擊計(jì)算按鈕Command 1則標(biāo)簽Labell 中顯示的結(jié)果:(A)Text1 中輸入的正整數(shù)越大，(

47、B)Text1 中輸入的正整數(shù)越大，(C)Text1 中輸入的正整數(shù)越大，(D)Text1 中輸入的正整數(shù)越小，Label1中顯示的數(shù)越接近100Label1中顯示的數(shù)越接近50Label1中顯示的數(shù)越接近0Label1中顯示的數(shù)越接近504 Private Sub Command1_Click()Label1.Caption = ""X = "BASIC"For k = 1 To Len (X)If k = 1 Then T = 0 Else T = 32Label1.Caption = Label1.Caption + Chr (Asc ( Mid (X, k, 1