重庆计算机等级二级VB历年真题A

1、重庆市计算机等级二级VB历年真题A-1二级 Visual Basic 语言笔试试题(A)一、单项选择题(每题 1 分，共 20 分)1. 执行X = 7 And 3 : Y = 7 Or 3后，比较结果：(A)X = Y(B) X > Y(C) X < Y(D)发生错误2. 执行X = 7 Mod 3 : Y = 7 3后，比较结果：(A)X = Y(B) X > Y(C) X < Y(D)发生错误3. 下列常数或表达式中数值最大的为：(A) &H200-1 (B) &HFF+256(C) 512(D) &H100+2554. 下列表达式中数值最

2、小的为：(A)7 / 3 (B) Fix ( -7 / 3 ) (C) -Int (7 / 3 ) (D) Int ( -7 / 3 )5. 执行Print Int ( 12.34567 * 1000 ) / 1000后，显示的结果为：(A)12.000 (B)12.34(C)12.345(D)12.34566. 从 A$ = "Windows Application", 中取出 "Application" 子字符串所用到的函数是： (A)Left$ (A$, 10) (B)Right (A$, 10)(C)Mid$ (A$, 9, 10) (D)Mid

3、$(A$, 9)7. 如要将一个数值变量 A中的数值在标签Labell上显示，正确的语句是： (A)Label1.Name = A (B)Label1.Tag = A(C)Label1.Caption = A (D)Label1.Top = A8. 如要将一个字符串变量A 中的字符串在标签Label1 上显示，正确的语句是：(A)Label1.Name = A (B)Label1.Tag = A (C)Label1.Caption = A (D)Label1.Top = A9. 如要读出文本框Text1 上显示的字符串，正确的语句是：(A)X$ = Text1.Name (B)X$ = Tex

4、t1.Tag(C)X$ = Text1.Font (D)X$ = Text1.Text10按下鼠标左键或右键，将能够区分鼠标的左、右键的事件是：(A)Click (B)DblClick (C)MouseDown (D)DragDrop11 .命令按钮Command俵面可以显示在 Picture属性中的图片，必须设置命令按钮的： (A)Command1.Apearance = Flat (B)Command1.Visible = True(C)Command1.Style = Graphical (D)Command1.Enable = True12 .命令按钮 Command的 Picture

5、, DownPicture 和 DisabledPicture属性都已装入图形，当命令按钮的Enable = False 时，在命令按钮表面显示的图形为：(A)DownPicture 属性中的图形(B)DisabledPicture 属性中的图形(C)Picture 属性中的图形(D)Picture 属性中的图形，但呈现为灰色13 .将命令按钮Command俵面显示的图片复制到图片框 Picture1中的语句是：(A)Picture1=Command1.Picture (D)Picture1.Picture =Command1.DownPicture(C)Picture1.Picture =C

6、ommand1 (B)Picture1=Command1.DisablePicrure14 .将到图片框Picture1中的图片复制到命令按钮Command宾面显示的语句是:(A)Command1=Picture1.Picture (B)Command1.DisablePicrure=Picture1(C)Command1.Picture =Picture1 (D)Command1.DownPicture=Picture1.Picture15在二个图片框中各有一组单选按钮OptionButton ，其作用为：(A) A) 两组单选按钮中只有一个能被选中(B) 因有两组单选按钮，无一可被选中(C

7、) 两组单选按钮中各有一个能被选中(D) 两组单选按钮中各有一个以上的能被选中16.在二个图片框中各有一组复选框CheckBox,其作用为：(A) 两组复选框中只有一个能被选中(B) 因有两组复选框，无一可被选中(C) 两组复选框中各有一个能被选中(D) 两组复选框中各有多个能被选中17. 图片框的FillStyle 属性为 Solid ， 用 Line 方法绘制矩形框，若省略 F 选项， 填充的色彩为图片框的：(A)BackColor 属性 (B)FillColor 属性(C)ForeColor 属性 (D) 固定为黑色18. 图片框的FillStyle 属性为 Solid ， 在用 Lin

8、e 方法绘制矩形框时，若省略色彩选项，矩形框的边界色彩为：(A)BackColor 属性 (B)FillColor 属性(C)ForeColor 属性 (D) 固定为黑色19. 定时器 Timer 控件触发Timer 事件触发过程的时间间隔为：(A) 每秒触发一次(B) 每隔 Interval 属性中设定的时间间隔触发一次(C)每毫秒触发一次(D)每隔由Windows系统设定的时间间隔触发一次20以顺序输出(写文件)模式打开文件"Test.Dat" 的语句是：(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二、多项选择题: ( 每题 1 分 , 共 10 分 )1绝对值小于4 的表达式有：(A)72 (B)-72 (C)Int(7/2) (D)Int(-7/2) (E)Fix(-7/2)2 .在VB中，呈现灰色的色彩表示法有：(A)&H808080(B)&H80C080 (C)QBColor(7)(D)RGB(128,128

10、,128) (E)RGB(128,255,128)3 .整数A > B,产生一个大于等于 B且小于A的随机整数的表达式为：(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 . 具有标题Caption 属性的控件有：(A) 标签 Label (B) 窗体 Form (C) 框架 Frame(D) 图片框 PictureBox (E) 命令按钮CommandButton5在其表面可以显示图形的控件有：(A) 图象框 Image (B

11、) 复选框 CheckBox (C) 单选按钮OptionButton(D) 图片框 PictureBox (E) 命令按钮CommandButton6. 控件的 MousePoint 属性上可将光标的形状设置为：(A)Arrow (B) Cross (C)I-Beam (D)Up Arrow (E)HourGlass7在键盘上按空格键，并立即松开，被触发的事件有：(A)KeyUp (B)KeyDown (C)KeyPress (D)Click (E)DbClick8在控件上按下鼠标右键, 并立即松开，被触发的事件有：- 12 -(A)Click 事件 (B)DbClick 事件(C)Mous

12、eDown 事件 (D)MouseMove 事件 (E)MouseUp 事件9. 一个控件数组中的控件必须符合的条件是：1 A) 数组中的每个控件类型相同(B) 数组中的每个控件的名称相同(C) 数组中的每个控件的大小都必须相同(D) 数组中的每个控件的位置都必须相同(E) 数组中的每个控件的索引(Index )属性相同10 VB 的工程菜单(Project) 中部件 (Components) 菜单项中有很多功能强大的外部控件：(A) 通用对话框CommonDialog (B) 高级文本框RichTextBox(C) 日历 Calender(D)Internet浏览器 WebBrowsers(

13、E) 接收和发送E-Mail 的控件 MAPISession 和 MAPIMessages三、判断分析( 每题 1 分 , 共 10 分 )( 下列各小题的叙述是否正确，如正确，请选择“?”；如错，请选择“?”。)1在 VB 中，未经声明的变量的数据类型为Variant 通用型。2已经声明，但未经赋值的数值变量的初值为0。3已经声明，但未经赋值的字符串变量的初值为长度为1 的空格。11 控件Frame具有容器功能，可将其他控件放置在Frame控件内。5标签控件Label 中的内容在运行时可以通过键盘直接修改。6文本框控件TextBox 中的内容在运行时可以通过键盘直接修改。7命令按钮的表面可以

14、显示文字或图形。8若一控件的Enabled = False ， Visible = True ，则在运行时该控件可见，但不响应操作。9若一控件的Visible=False ， Enabled= True ，则在运行时该控件不可见，但可响应操作。10. 由于定时器Timer 控件在运行时是不可看的，因此定时器控件不可能有事件触发过程。四、填空题: ( 每空 2 分 , 共 20 分 )1.单击命令按钮 Command!后，在窗体上显示 10个数值范围为10 - 100的随机数。 Private Sub Command1_Click ( )For k = 1 ToA = Int (_ _ * Rn

15、d ) + Print ANext kEnd Sub2在窗体上绘制一闭合图形的操作是：在闭合图形的起点按下鼠标左键，拖动鼠标画出图形，放开鼠标左键自动画出到起点的连线，完成闭合，结束绘制。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滚动条数组HScroll1(1) 、 HScroll1(2) 、 HScroll1(3) 分别调节图片框Picture1 背景色的红、绿、蓝分量。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运行时，在文本框Text1 中输入一个正整数，单击计算按钮(A)Text1 中输入的正整数越大，(B)Text1 中输入的正整数越大，(C)Text1 中输入的正整数越大，(D)Text1 中输入的正整数越小，Command 1则标签Labell 中显示的结果

18、:Label1中显示的数越接近100Label1中显示的数越接近50Label1中显示的数越接近0Label1中显示的数越接近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运行时，单击计算命令按钮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运行时，单击窗体，显示的图形是：(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运行时，在文本框中输入"Activation: The process of loading an object in memory."，单击计算按钮Command 1窗体上显示的是：(A) 1(B) 4 (C) 4 (D) 32 1413 3344 1115 413六、编制程序: ( 每题 10 分 , 共 20 分 )1 调节图片框Picture

21、1 的前景色。图片框Picture1 上画有一矩形实心框，用三个滚动条VScroll1 、VScroll2 和 VScrol3 分别调节图片框Picture1 前景色的红、绿、蓝分量，以改变所画矩形实心框的颜色。按结束按钮Commandl吉束程序。2 统计文本中字符出现频率。在文本框Text1 中输入一个英语的长字符串，按字符统计按钮Command， 1分别统计字符串中从 A到Z每个字符的个数(不区分大小写)，显示在窗体上。按结束按钮Command2吉束程序。一 单项选择题（每题 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二 . 多项选择题: （ 每题 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) 正确设置前景色4分End SubPrivate Sub Vscroll2_Change() 重复滚动条每个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() 结束正确1 分EndEnd Sub3 Private Sub Command1_Click()Dim H(65 To 90) 定义数组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 数组累加3 分End IfNext kFor k = 65 To 90 显示结果2 分Print Chr(k); " => " H(A)Next kEnd SubPrivate Sub Command2_Click() 结束正确1 分EndEnd Sub重庆市计算机等级二级VB历年上机真题全国高等学校（ 重庆考区） 非计算机专业计算机应用知识和能力2005 年第一次

26、等级考试Visual Basic 语言上机考试题（ 第二套 ）（ 共 100分 ）注意：考试结果存盘的文件名为：ExNNnnnn。ExNN 为题号，由试卷上给出。nnnn 为考生准考证号的右4位，由考生填入。一程序调试题（40 分 ）下列程序的功能是将用户键盘输入的二进制整数转换成十进制数，并在窗体上输出。Private Sub Form_Click（）Dim B As Long, D As BooleanB = InputBox（" 请输入一个二进制数", " 输入 "）D = BFor i = 1 To Len（D）D = D + Right（B,

27、i, 1）NextPrint DEnd Sub要求：根据上述程序代码改错，改错时，不得增加和删除语句。将修改正确的程序存盘。窗体文件名为 Ex21nnnn.Frm ，工程文件名为Ex21nnnn.Vbp提示：可以用Windows提供的计算器验证程序运算结果。二编写程序（ 每题 30 分 ）1.在文本框Textl中输入一个以"yyyy -mm-dd"或"yy-mm-dd"格式表示的日期，按"转换"命令按钮Command将其转换成“yyyy 年mmM dd日”格式，显示在标签Labell中。窗体文件名为 Ex22nnnn.Frm ,工程文

28、件名为 EX22nnnn.Vbp。2编写程序，在窗体不同位置上多次按下鼠标左键时，能够在这些单击点之间绘制出连续折线。鼠标右键单击窗体时，则能够在连续折线的起点与终点之间绘出一条直线，从而形成封闭区域。窗体文件名为EX23nnnn.Frm,工程文件名为 EX23nnnn.Vbp。重庆市计算机等级二级VB历年真题目11 .命令按钮Command候面可以显示在 Picture 属性中的图片，必须设置命令按钮的：(A)Command1 . Apearance = Flat (B)Command1. Visible = True(C)Command1 . Style = Graphical (D)Co

29、mmand1. Enable = True2 .命令按钮 Command的 Picture, DownPicture 和 DisabledPicture属性都已装入图形，当命令按钮的Enable = False 时，在命令按钮表面显示的图形为：(A)DownPicture 属性中的图形(B)DisabledPicture 属性中的图形(C)Picture 属性中的图形(D)Picture 属性中的图形，但呈现为灰色3 .将命令按钮Command宾面显示的图片复制到图片框Picturel中的语句是：(A)Picture1=Command1 . Picture (D)Picture1 . Pict

30、ure =Command1 . DownPicture(C)Picture1 . Picture =Command1 (B)Picture1=Command1 . DisablePicrure4 .将到图片框Picturel中的图片复制到命令按钮Command茂面显示的语句是：(A)Command1=Picture1 . Picture (B)Command1 . DisablePicrure=Picture1 (C)Command1. Picture =Picture1 (D)Command1 . DownPicture=Picture1 . Picture5在二个图片框中各有一组单选按钮O

31、ptionButton ，其作用为：(A) A) 两组单选按钮中只有一个能被选中(B) 因有两组单选按钮，无一可被选中(C) 两组单选按钮中各有一个能被选中(D) 两组单选按钮中各有一个以上的能被选中6.在二个图片框中各有一组复选框CheckBox,其作用为：(A) 两组复选框中只有一个能被选中(B) 因有两组复选框，无一可被选中(C) 两组复选框中各有一个能被选中(D) 两组复选框中各有多个能被选中7. 图片框的FillStyle 属性为 Solid ， 用 Line 方法绘制矩形框，若省略 F 选项， 填充的色彩为图片框的：(A)BackColor 属性(B)FillColor属性(C)F

32、oreColor 属性(D) 固定为黑色8. 图片框的FillStyle 属性为 Solid ，在用 Line 方法绘制矩形框时，若省略色彩选项，矩形框的边界色彩为：(A)BackColor 属性(B)FillColor属性(C)ForeColor 属性(D) 固定为黑色9. 定时器 Timer 控件触发Timer 事件触发过程的时间间隔为：(A) 每秒触发一次(B) 每隔 Interval 属性中设定的时间间隔触发一次(C)每毫秒触发一次(D)每隔由Windows系统设定的时间间隔触发一次10以顺序输出(写文件)模式打开文件"Test.Dat " 的语句是：(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后，比较结果：(C) X < Y 后，比较结果：(C) X < Y(C) 512(D) 发生错误(D) 发生错误(D) &H100+255(D) Int ( -7 / 3 )显示的结果为：" 子字符串

34、所用到的函数是：11. 执行X = 7 And 3: Y = 7 Or 3(A)X = Y(B) X > Y12. 执行X = 7 Mod 3: Y = 7 3(A)X = Y(B) X > Y13. 下列常数或表达式中数值最大的为：(A) &H200-1 (B)&HFF+25614. 下列表达式中数值最小的为：(A)7 / 3 (B) Fix ( -7 / 3 ) (C) -Int (7 / 3 )15. 执行Print Int ( 12. 34567 * 1000 ) / 1000后，显示的结果为：(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. 如要将一个数值变量A 中的数值在标签Label1 上显示，正确的语句是：(A)Label1 . Name = A(B)Label1 . Tag = A(C)Label1 . Caption = A (D)Label1 . Top = A18. 如要将一个字符串变量 A中的字符串在标签 Labe

36、l1上显示，正确的语句是:(A)Label1 . Name = A(B)Label1 . Tag = A(C)Label1 . Caption = A (D)Label1 . Top = A19. 如要读出文本框Text1 上显示的字符串，正确的语句是：(A)X$ = Text1. Name(B)X$ = Text1 . Tag(C)X$ = Text1. Font(D)X$ = Text1 . Text20按下鼠标左键或右键，将能够区分鼠标的左、右键的事件是：(A)Click (B)DblClick (C)MouseDown (D)DragDrop二、多项选择题: ( 每题 1 分 , 共

37、10 分 )1. 控件的 MousePoint 属性上可将光标的形状设置为：(A)Arrow (B) Cross (C)I-Beam (D)Up Arrow (E)HourGlass2在键盘上按空格键，并立即松开，被触发的事件有：(A)KeyUp (B)KeyDown (C)KeyPress (D)Click (E)DbClick3在控件上按下鼠标右键, 并立即松开，被触发的事件有：(A)Click 事件(B)DbClick 事件(C)MouseDown 事件 (D)MouseMove 事件(E)MouseUp 事件4. 一个控件数组中的控件必须符合的条件是：(A) 数组中的每个控件类型相同(

38、B) 数组中的每个控件的名称相同(C) 数组中的每个控件的大小都必须相同(D) 数组中的每个控件的位置都必须相同(E) 数组中的每个控件的索引(Index )属性相同5. VB的工程菜单(Project)中部件(Components)菜单项中有很多功能强大的外部控件:(A) 通用对话框CommonDialog (B) 高级文本框RichTextBox(C) 日历 Calender(D)Internet浏览器 WebBrowsers(E) 接收和发送E-Mail 的控件 MAPISession 和 MAPIMessages6绝对值小于4 的表达式有：(A)72 (B)-72 (C)Int(7/2

39、) (D)Int(-7/2) (E)Fix(-7/2)7 .在VB中，呈现灰色的色彩表示法有:(A)&H808080(B)&H80C080 (C)QBColor(7)(D)RGB(128,128,128) (E)RGB(128,255,128)8 .整数A > B,产生一个大于等于 B且小于A的随机整数的表达式为： (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 . 具有标题Caption 属性的控件有：(A

40、) 标签 Label(B) 窗体 Form (C) 框架 Frame(D) 图片框 PictureBox (E) 命令按钮CommandButton10在其表面可以显示图形的控件有：(A) 图象框 Image (B) 复选框 CheckBox(C) 单选按钮OptionButton(D) 图片框 PictureBox (E) 命令按钮CommandButton三、判断分析( 每题 1 分 , 共 10 分 )( 下列各小题的叙述是否正确，如正确，请选择“?”；如错，请选择“?”。)1文本框控件TextBox 中的内容在运行时可以通过键盘直接修改。2命令按钮的表面可以显示文字或图形。3若一控件的

41、Enabled = False ， Visible = True，则在运行时该控件可见，但不响应操作。4若一控件的Visible=False ， Enabled= True ，则在运行时该控件不可见，但可响应操作。5 . 由于定时器Timer 控件在运行时是不可看的，因此定时器控件不可能有事件触发过程。6 .在VB中，未经声明的变量的数据类型为Variant通用型。7已经声明，但未经赋值的数值变量的初值为0。8已经声明，但未经赋值的字符串变量的初值为长度为1 的空格。9 .控件Frame具有容器功能，可将其他控件放置在Frame控件内。10标签控件Label 中的内容在运行时可以通过键盘直接修

42、改。四、填空题: ( 每空 2 分 , 共 20 分 )1滚动条数组HScroll1(1) 、 HScroll1(2) 、 HScroll1(3) 分别调节图片框Picture1 背景色的红、绿、蓝分量。HScroll1_Change ( )R = Hscroll1(1).ValueG = Hscroll1(2).ValueB = Hscroll1(3).ValuePicture1. = (R,G,B)End Sub2在窗体上绘制一闭合图形的操作是：在闭合图形的起点按下鼠标左键，拖动鼠标画出图形，放开鼠标左键自动画出到起点的连线，完成闭合，结束绘制。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个数值范围为10 - 100的随机数。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运行时，单击窗体，显示的图形是：(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运行时，在文本框中输入"Activation: The process of loading an object in memory. "，单击计算按钮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运行时，在文本框Text1 中输入一个正整数，单击计算按钮Command 1则标签Labell 中显示的结果:(A)Text1 中输入的正整数越大，(

47、B)Text1 中输入的正整数越大，(C)Text1 中输入的正整数越大，(D)Text1 中输入的正整数越小，Label1中显示的数越接近100Label1中显示的数越接近50Label1中显示的数越接近0Label1中显示的数越接近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