1、二级 VISUAL+BASIC-59 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B单项选择题/B(总题数：45，分数：100.00)1.下列有关 Visual Basic 特点的描述有误的是_。 A.Visual Basic 是一种可视化、面向对象的程序设计语言 B.Visual Basic 采用事件驱动编程机制 C.Visual Basic 可用于开发 Windows 环境下的各类应用程序 D.Visual Basic 是非面向对象的程序设计语言（分数：4.00）A.B.C.D.2.以下叙述中错误的是_。 A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他
2、文件 B.以.BAS 为扩展名的文件是标准模块文件 C.窗体文件包含该窗体及其控件的属性 D.一个工程中可以含有多个标准模块文件（分数：4.00）A.B.C.D.3.与传统的程序设计语言相比，Visual Basic 最突出的特点是_。 A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术（分数：2.00）A.B.C.D.4.下列不属于 Visual Basic 系统的文件类型是_。 Afrm Bbat Cvbg Dvbp（分数：4.00）A.B.C.D.5.Visual Basic 窗体设计器的主要功能是_。 A.建立用户界面 B.编写源程序代码 C.画图 D.显示文
3、字（分数：4.00）A.B.C.D.6.用标准工具栏中的工具按钮不能执行的操作是_。 A.添加工程 B.打印源程序 C.运行程序 D.打开工程（分数：2.00）A.B.C.D.7.Visual Basic 6.0 集成环境的主窗口中不包括_。 A.标题栏 B.状态栏 C.菜单栏 D.工具栏（分数：2.00）A.B.C.D.8.结构化程序设计主要强调的是_。 A.程序的规模 B.程序的效率 C.程序设计语言的先进性 D.程序易读性（分数：2.00）A.B.C.D.9.以下不属于对象的基本特点的是_。 A.分类性 B.多态性 C.继承性 D.封装性（分数：2.00）A.B.C.D.10.下列选项中
4、不属于结构化程序设计方法的主要原则的是_。 A.自顶向下 B.逐步求精 C.模块化 D.可复用（分数：2.00）A.B.C.D.11.运行下列程序后，显示的结果为_。 R1=21R2=34If R1R2 Then Print R2 Else Print R1 A.21 B.34 C.55 D.2134（分数：2.00）A.B.C.D.12.如果 A 为整数且|A|=100，则打印“OK“，否则打印“Error“，表示这个条件的单行格式 If 语句是_。 A.If Int(A)=A And Sqr(A)=100 Then Print “OK“ Else Print “Error“ B.If Fi
5、x(A)=A And Abs(A)=100 Then Print “OK“ Else Print “Error“ C.If Int(A)=A And (A=100, A=-100) Then Print “OK“ Else Print “Error“ D.If Fix(A)=A And A=100 And A=-100 Then Print “OK“ Else Print “Error“（分数：2.00）A.B.C.D.13.下列程序的执行结果是_。 a=75If a90 Then i=4If a80 Then i=3If a70 Then i=2If a60 Then i=1Print “i
6、=“;i A.i=1 B.i=2 C.i=3 D.i=4（分数：4.00）A.B.C.D.14.有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是_。 A.16 B.3 C.6 D.8（分数：2.00）A.B.C.D.15.有一程序段，其功能是：当 x0 时，y=x；当-2=x=0 时，y=-x,当 x-2 时，产生一个“输入错误”信息框。则下列程序空白处应为_。Private Sub Form_Click()x % = InputBox(“请输入 x 的值：“)If
7、x0 Theny=x_y=-xElseMsgBox “输入错误“End IfPrint yEnd Sub A.Else x=-2 And x=0 Then B.ElseIf x=-2 And x=0 Then C.ElseIf x=-2 And x=0 D.Else If x=-2 And x=0 Then（分数：2.00）A.B.C.D.16.执行下面的程序段后，变量 c 的值为_。a=29b=33Select Case b/10Case 0c=a*10+bCase 1 To 9c=a*100+bCase 10 To 99c=a*1000+bEnd SelectPrint c A.29 B.
8、2933 C.33 D.3329（分数：2.00）A.B.C.D.17.下述程序的功能是_。x=“(a+B)*A)-(a*b+C)“n=Len(x)m=0For k=1 To np$=Mid(x,k,1)If p$=“(“ Thenm=m-1ElseIf p$=“)“ Thenm=m+1End IfNext kIf m0 Thenprint “:-(“Elseprint “:-)“End If A.统计输入的字符串中括号的总数 B.统计输入的字符串中匹配的括号的对数 C.检查输入的字符串中的括号是否能够匹配 D.删除字符串的括号（分数：2.00）A.B.C.D.18.下述程序段中，与其他 3
9、个程序段作用不同的是_。 A.s=0 i=0 While i100 s=s+1 Wend B.s=0 i=0 While i100 i=i+1 Wend C.s=0 i=1 Do While i100 s=s+1 i=i+1 Loop D.s=0 i=0 Do Until i=100 s=s+1 i=i+1 Loop（分数：2.00）A.B.C.D.19.下面的数组声明语句中正确的是_。 A.Dim A3,4As Integer B.Dim A(3,4)As Integer C.Dim A3;4As Integer D.Dim A(3;4)As Integer（分数：2.00）A.B.C.D.
10、20.有如下程序：Dim arr (3,3)For j=1 To 3For k=1 To 3arr(j,k)=(j-1)*3+kNext kNext jFor j=2 To 3For k=2 To 3Print arr(k,j);Next kPrintNext j运行程序后，输出的结果是_。 A.25 36 B.58 69 C.47 58 D.59 68（分数：2.00）A.B.C.D.21.有如下的程序段：Dim a(4) As IntegerDim b(4) As IntegerFor k=0 To 2a(k+1)=Val(InputBox(“Enter data:“)b(3-k)=a(k
11、+1)Next kPrint b(k)程序运行后，依次输入 1，3，5，输出的结果是_。 A.1 B.3 C.5 D.0（分数：2.00）A.B.C.D.22.有如下的程序段：Dim t(10)For k=2 To 10t(k)=10-kNext kx=6Print t(2+t(x)程序运行后，输出结果为_。 A.2 B.3 C.4 D.5（分数：2.00）A.B.C.D.23.设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(30)As IntegerFor i=1 To 30a(i)=Int(Rnd*100)Nex
12、tFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItemIf arrItem90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是_。 A.a 数组中的数据是 30 个 100 以内的整数 B.语句 For Each arrItem In a 有语法错误 C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数 D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环（分数：2.00）A.B.C.D.24.设有如下程序：Option Base
13、0Private Sub Form_Click()Dim aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是_。 A.4321 B.5432 C.6543 D.7654（分数：2.00）A.B.C.D.25.下列过程定义语句中合法的是_。 A.Sub Proc(ByVal n() B.Sub Proc(n)As Integer C.Function Proc() D.Function Proc(ByVal n)（分数：2.00）A.B.C.D.
14、26.Sub 过程与 Function 过程最根本的区别是_。 A.Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以 B.Function 过程可以有参数，Sub 过程不可以 C.两种过程参数的传递方式不同 D.Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值（分数：2.00）A.B.C.D.27.运行以下程序后，输出结果为_。Private Sub Command1_Click()a=1:b=2:c=3Call test(a,b+3,(c)Print “main:“;a;b;cEnd SubPrivate Function
15、 test(p,m,n)p=p+1:m=m+1:n=n+1Print “sub:“;p;m;nEnd Function A.sub:2 6 4 main:1 2 3 B.sub:2 6 4 main:2 2 3 C.sub:2 6 4 main:2 6 4 D.sub:2 6 4 main:1 6 4（分数：2.00）A.B.C.D.28.以下关于 Visual Basic 的参数传递的描述不正确的是_。 A.形式参数表和实际参数表中对应的变量名必须相同 B.形式参数表和实际参数表中对应的变量个数必须相同 C.形式参数表和实际参数表中对应的变量类型必须相同 D.形式参数表和实际参数表中对应的书
16、写顺序必须对应相同（分数：2.00）A.B.C.D.29.下列关于过程的叙述中不正确的是_。 A.过程的传值调用是将实参传送给形参 B.过程的传址调用是将实参在内存的地址传递给形参 C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向的 D.无论过程传值调用还是传址调用，参数传递都是双向的（分数：2.00）A.B.C.D.30.要想在过程调用后返回两个结果，下面的过程定义语句中合法的是_。 A.Sub Proc(ByVal n,ByVal m) B.Sub Proc(n,ByVal m) C.Sub Proc(n,m) D.Sub Proc(ByVal n,m)（分数：2.00）A.B
17、.C.D.31.下列说法正确的是_。 A.KeyDown 事件在 KeyPress 事件前发生 B.KeyPress 过程不可以使用 Call 语句来调用 C.MouseUp 事件在 Click 事件之后发生 D.控件响应 Click 事件后不再响应 MouseUp 事件（分数：2.00）A.B.C.D.32.窗体上有文本框 Text1，执行下列程序后在文本框输入 123abc，单击按钮后输出结果为_。Private Sub From_Load()Text1.Text=“End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Char=Chr
18、(KeyAscii)KeyAscii=Asc(UCase(Char)Eud SubPrivate Sub Command1_Click()Print Text1.Text End Sub A.123ABC B.ABC C.!#ABC D.123abc（分数：2.00）A.B.C.D.33.运行下列程序，按下回车键后输出结果为_。Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a=Array(237,126,87,48,498)m1=a(1)m2=1If KeyAscii=13 ThenFor i=2 To 5If a(i)m
19、1 Thenm1=a(i)m2=iEnd IfNext iEnd IfPrint m1Print m2End Sub A.48 4 B.237 1 C.498 5 D.498 4（分数：2.00）A.B.C.D.34.运行下列程序，在文本框中输入字符“a“，则输出结果为_。Private Sub Form_Load()Text1.Text=“End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Text1.Text=KeyCodePrint Text1.TextEnd Sub A.a B.65 C.A D.
20、97（分数：2.00）A.B.C.D.35.以下叙述中错误的是_。 A.在 KeyPress 事件过程中不能识别键盘的按下与释放 B.在 KeyPress 事件过程中不能识别回车键 C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视做相同的字母 D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视做不同的字符（分数：2.00）A.B.C.D.36.有如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If (Button An
21、d 1)=1 ThenPrint “你好棒啊!“End IfEnd Sub程序运行后，为了在窗体上输出“你好棒啊!”，应当按下的鼠标键是_。 A.左键 B.右键 C.同时按下左键和右键 D.按什么都不显示（分数：2.00）A.B.C.D.37.下列控件不支持 MouseDown 事件的是_。 A.HsrcollBar B.Command Button C.PictureBox D.TextBox（分数：2.00）A.B.C.D.38.下列操作会执行“Form_MouseUp“过程的是_。 A.单击“结束”按钮 B.单击窗体可用区域 C.在窗体的可用区域移动鼠标 D.放开鼠标按键时（分数：2.0
22、0）A.B.C.D.39.下列说法错误的是_。 A.对象的操作由对象的属性、事件和方法来描述 B.Visual Basic 是面向对象的程序设计，Visual Basic 中只有窗体和控件两种对象 C.属性是对象的特征，不同的对象有不同的属性 D.对象事件在代码窗口中体现为过程（分数：2.00）A.B.C.D.40.下列关于 Visual Basic“方法”的概念的说法错误的是_。 A.方法是对象的一部分 B.方法是预先规定好的操作 C.方法是对事件的响应 D.方法用于完成某些特定功能（分数：2.00）A.B.C.D.41.如果设置窗体的 ControlBox 属性值为 False，则_。 A
23、.ControlBox 仍起作用 B.窗口边框上的最大化和最小化按钮消失 C.窗口边框上的最大化和最小化按钮失效 D.运行时还可以看到窗口左上角显示的控制框，可以单击该控制框进行窗体的移动和关闭等操作（分数：2.00）A.B.C.D.42.下列说法正确的是_。 A.窗体的属性包括 Name、Caption、Height、Visible、Paint 等 B.窗体是 Visual Basic 的一个控件 C.窗体的所有属性都可以在运行阶段设置 D.窗体相当于一个容器，可以把其他控件放在其上（分数：2.00）A.B.C.D.43.刚建立一个新的标准 EXE 工程后，不在工具箱中出现的控件是_。 A.
24、单选按钮 B.图片框 C.通用对话框 D.文本框（分数：2.00）A.B.C.D.44.下列说法错误的是_。 A.事件是可以由窗体或控件识别的操作 B.事件可以由用户操作触发，也可以由来自操作系统或其他应用程序的消息触发 C.大多数对象都能够识别 Click 事件 D.在面向对象的程序设计中，编程人员以“过程”为中心来考虑应用程序的结构（分数：2.00）A.B.C.D.45.下列可以激活属性窗口的操作是_。 A.用鼠标双击窗体的任何部位 B.执行“工程”菜单中的“属性窗口”命令 C.按 Ctrl+F4 键 D.按 F4 键（分数：2.00）A.B.C.D.二级 VISUAL+BASIC-59
25、(1)答案解析(总分：100.00，做题时间：90 分钟)一、B单项选择题/B(总题数：45，分数：100.00)1.下列有关 Visual Basic 特点的描述有误的是_。 A.Visual Basic 是一种可视化、面向对象的程序设计语言 B.Visual Basic 采用事件驱动编程机制 C.Visual Basic 可用于开发 Windows 环境下的各类应用程序 D.Visual Basic 是非面向对象的程序设计语言（分数：4.00）A.B.C.D. 解析：2.以下叙述中错误的是_。 A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B.以.BAS 为扩展名的
26、文件是标准模块文件 C.窗体文件包含该窗体及其控件的属性 D.一个工程中可以含有多个标准模块文件（分数：4.00）A. B.C.D.解析：3.与传统的程序设计语言相比，Visual Basic 最突出的特点是_。 A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术（分数：2.00）A.B.C. D.解析：4.下列不属于 Visual Basic 系统的文件类型是_。 Afrm Bbat Cvbg Dvbp（分数：4.00）A.B. C.D.解析：5.Visual Basic 窗体设计器的主要功能是_。 A.建立用户界面 B.编写源程序代码 C.画图 D.显示文字（分数
27、：4.00）A. B.C.D.解析：6.用标准工具栏中的工具按钮不能执行的操作是_。 A.添加工程 B.打印源程序 C.运行程序 D.打开工程（分数：2.00）A.B. C.D.解析：7.Visual Basic 6.0 集成环境的主窗口中不包括_。 A.标题栏 B.状态栏 C.菜单栏 D.工具栏（分数：2.00）A.B. C.D.解析：8.结构化程序设计主要强调的是_。 A.程序的规模 B.程序的效率 C.程序设计语言的先进性 D.程序易读性（分数：2.00）A.B.C.D. 解析：9.以下不属于对象的基本特点的是_。 A.分类性 B.多态性 C.继承性 D.封装性（分数：2.00）A. B
28、.C.D.解析：10.下列选项中不属于结构化程序设计方法的主要原则的是_。 A.自顶向下 B.逐步求精 C.模块化 D.可复用（分数：2.00）A.B.C.D. 解析：11.运行下列程序后，显示的结果为_。 R1=21R2=34If R1R2 Then Print R2 Else Print R1 A.21 B.34 C.55 D.2134（分数：2.00）A.B. C.D.解析：12.如果 A 为整数且|A|=100，则打印“OK“，否则打印“Error“，表示这个条件的单行格式 If 语句是_。 A.If Int(A)=A And Sqr(A)=100 Then Print “OK“ El
29、se Print “Error“ B.If Fix(A)=A And Abs(A)=100 Then Print “OK“ Else Print “Error“ C.If Int(A)=A And (A=100, A=-100) Then Print “OK“ Else Print “Error“ D.If Fix(A)=A And A=100 And A=-100 Then Print “OK“ Else Print “Error“（分数：2.00）A.B. C.D.解析：13.下列程序的执行结果是_。 a=75If a90 Then i=4If a80 Then i=3If a70 The
30、n i=2If a60 Then i=1Print “i=“;i A.i=1 B.i=2 C.i=3 D.i=4（分数：4.00）A. B.C.D.解析：14.有如下程序：a=1:b=2:c=3a=a+b:b=b+c:c=b+aIf a3 Thena=b-a:b=c-a:c=b+aEnd IfPrint a+b+c运行后，输出的结果是_。 A.16 B.3 C.6 D.8（分数：2.00）A. B.C.D.解析：15.有一程序段，其功能是：当 x0 时，y=x；当-2=x=0 时，y=-x,当 x-2 时，产生一个“输入错误”信息框。则下列程序空白处应为_。Private Sub Form_C
31、lick()x % = InputBox(“请输入 x 的值：“)If x0 Theny=x_y=-xElseMsgBox “输入错误“End IfPrint yEnd Sub A.Else x=-2 And x=0 Then B.ElseIf x=-2 And x=0 Then C.ElseIf x=-2 And x=0 D.Else If x=-2 And x=0 Then（分数：2.00）A.B. C.D.解析：16.执行下面的程序段后，变量 c 的值为_。a=29b=33Select Case b/10Case 0c=a*10+bCase 1 To 9c=a*100+bCase 10
32、To 99c=a*1000+bEnd SelectPrint c A.29 B.2933 C.33 D.3329（分数：2.00）A.B. C.D.解析：17.下述程序的功能是_。x=“(a+B)*A)-(a*b+C)“n=Len(x)m=0For k=1 To np$=Mid(x,k,1)If p$=“(“ Thenm=m-1ElseIf p$=“)“ Thenm=m+1End IfNext kIf m0 Thenprint “:-(“Elseprint “:-)“End If A.统计输入的字符串中括号的总数 B.统计输入的字符串中匹配的括号的对数 C.检查输入的字符串中的括号是否能够匹配
33、 D.删除字符串的括号（分数：2.00）A.B.C. D.解析：18.下述程序段中，与其他 3 个程序段作用不同的是_。 A.s=0 i=0 While i100 s=s+1 Wend B.s=0 i=0 While i100 i=i+1 Wend C.s=0 i=1 Do While i100 s=s+1 i=i+1 Loop D.s=0 i=0 Do Until i=100 s=s+1 i=i+1 Loop（分数：2.00）A. B.C.D.解析：19.下面的数组声明语句中正确的是_。 A.Dim A3,4As Integer B.Dim A(3,4)As Integer C.Dim A3
34、;4As Integer D.Dim A(3;4)As Integer（分数：2.00）A.B. C.D.解析：20.有如下程序：Dim arr (3,3)For j=1 To 3For k=1 To 3arr(j,k)=(j-1)*3+kNext kNext jFor j=2 To 3For k=2 To 3Print arr(k,j);Next kPrintNext j运行程序后，输出的结果是_。 A.25 36 B.58 69 C.47 58 D.59 68（分数：2.00）A.B. C.D.解析：21.有如下的程序段：Dim a(4) As IntegerDim b(4) As Int
35、egerFor k=0 To 2a(k+1)=Val(InputBox(“Enter data:“)b(3-k)=a(k+1)Next kPrint b(k)程序运行后，依次输入 1，3，5，输出的结果是_。 A.1 B.3 C.5 D.0（分数：2.00）A. B.C.D.解析：22.有如下的程序段：Dim t(10)For k=2 To 10t(k)=10-kNext kx=6Print t(2+t(x)程序运行后，输出结果为_。 A.2 B.3 C.4 D.5（分数：2.00）A.B.C. D.解析：23.设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub
36、Command1_Click()Dim a(30)As IntegerFor i=1 To 30a(i)=Int(Rnd*100)NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItemIf arrItem90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是_。 A.a 数组中的数据是 30 个 100 以内的整数 B.语句 For Each arrItem In a 有语法错误 C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数 D.If arrItem90
37、语句的作用是当数组元素的值大于 90 时退出 For 循环（分数：2.00）A.B. C.D.解析：24.设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim I As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是_。 A.4321 B.5432 C.6543 D.7654（分数：2.00）A.B.C. D.解析：25.下列过程定义语句中合法的是_。 A.Sub Proc(ByVal n() B.Sub P
38、roc(n)As Integer C.Function Proc() D.Function Proc(ByVal n)（分数：2.00）A.B.C.D. 解析：26.Sub 过程与 Function 过程最根本的区别是_。 A.Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以 B.Function 过程可以有参数，Sub 过程不可以 C.两种过程参数的传递方式不同 D.Sub 过程的过程名不能返回值，而 Function 过程能通过过程名返回值（分数：2.00）A.B.C.D. 解析：27.运行以下程序后，输出结果为_。Private Sub Comm
39、and1_Click()a=1:b=2:c=3Call test(a,b+3,(c)Print “main:“;a;b;cEnd SubPrivate Function test(p,m,n)p=p+1:m=m+1:n=n+1Print “sub:“;p;m;nEnd Function A.sub:2 6 4 main:1 2 3 B.sub:2 6 4 main:2 2 3 C.sub:2 6 4 main:2 6 4 D.sub:2 6 4 main:1 6 4（分数：2.00）A.B. C.D.解析：28.以下关于 Visual Basic 的参数传递的描述不正确的是_。 A.形式参数表
40、和实际参数表中对应的变量名必须相同 B.形式参数表和实际参数表中对应的变量个数必须相同 C.形式参数表和实际参数表中对应的变量类型必须相同 D.形式参数表和实际参数表中对应的书写顺序必须对应相同（分数：2.00）A. B.C.D.解析：29.下列关于过程的叙述中不正确的是_。 A.过程的传值调用是将实参传送给形参 B.过程的传址调用是将实参在内存的地址传递给形参 C.过程的传值调用参数是单向传递的，过程的传址调用参数是双向的 D.无论过程传值调用还是传址调用，参数传递都是双向的（分数：2.00）A.B.C.D. 解析：30.要想在过程调用后返回两个结果，下面的过程定义语句中合法的是_。 A.S
41、ub Proc(ByVal n,ByVal m) B.Sub Proc(n,ByVal m) C.Sub Proc(n,m) D.Sub Proc(ByVal n,m)（分数：2.00）A.B.C. D.解析：31.下列说法正确的是_。 A.KeyDown 事件在 KeyPress 事件前发生 B.KeyPress 过程不可以使用 Call 语句来调用 C.MouseUp 事件在 Click 事件之后发生 D.控件响应 Click 事件后不再响应 MouseUp 事件（分数：2.00）A. B.C.D.解析：32.窗体上有文本框 Text1，执行下列程序后在文本框输入 123abc，单击按钮后
42、输出结果为_。Private Sub From_Load()Text1.Text=“End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char)Eud SubPrivate Sub Command1_Click()Print Text1.Text End Sub A.123ABC B.ABC C.!#ABC D.123abc（分数：2.00）A. B.C.D.解析：33.运行下列程序，按下回车键后输出结果为_。Option Base 1Private Sub Fo
43、rm_KeyPress(KeyAscii As Integer)a=Array(237,126,87,48,498)m1=a(1)m2=1If KeyAscii=13 ThenFor i=2 To 5If a(i)m1 Thenm1=a(i)m2=iEnd IfNext iEnd IfPrint m1Print m2End Sub A.48 4 B.237 1 C.498 5 D.498 4（分数：2.00）A.B.C. D.解析：34.运行下列程序，在文本框中输入字符“a“，则输出结果为_。Private Sub Form_Load()Text1.Text=“End Sub Private
44、Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Text1.Text=KeyCodePrint Text1.TextEnd Sub A.a B.65 C.A D.97（分数：2.00）A.B. C.D.解析：35.以下叙述中错误的是_。 A.在 KeyPress 事件过程中不能识别键盘的按下与释放 B.在 KeyPress 事件过程中不能识别回车键 C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视做相同的字母 D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视做不同的字符（分数：2.00）A.B. C.D.解析：36.有如下事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If (Button And 1)=1 ThenPrint “你好棒啊!“End IfEnd Sub程序运行后，为了在窗体上输出“你好棒啊!”，应当按下的鼠标键是_。 A.左键 B.右键 C.同时按下左键和右键 D.按什么都不显示（分数：2.00）A.B.C.D. 解析：37.下列控件不支持 MouseDow
