1、二级 VISUAL+BASIC 笔试-122 及答案解析(总分：84.00，做题时间：90 分钟)一、选择题(总题数：30，分数：60.00)1.以下叙述中错误的是（分数：2.00）A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS 为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件2.下列描述中正确的是（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体D.软件是程序、数据与相关文档的集合3.在窗体上添加一个文本框，名为 Textl，然后编写如下的 Load 事
2、件过程，则程序的运行结果是Private Sub Form_Load()Text1.Text=“ “Text1.Setfocust=1For k=10 To 6 Step -2t=t(kNext kText1.Text =tEnd Sub（分数：2.00）A.在文本框中显示 120B.文本框仍为空C.在文本框中显示 480D.出错4.以下关于窗体的描述正确的是（分数：2.00）A.只有用于启动的窗体可以有菜单B.窗体事件和其中所有控件事件的代码都放在窗体文件中C.窗体的名字和存盘的窗体文件名必须相同D.开始运行时窗体的位置只能是设计阶段时显示的位置5.如果要改变窗体的标题，则需要设置的属性是（
3、分数：2.00）A.CaptionB.NameC.BackColorD.Borderstyle6.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/27.目录列表框的 Path 属性的作用是（分数：2.00）A.显示当前驱动器或指定驱动器上的路径B.显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的文件名D.只显示当前路径下的文件8.利用 E-R 模型进行数据库的概念设计，可以分成三步：首先设计局部 E-R 模型，然后把各个局部 E-R 模型综合成
4、一个全局的模型，要得到最终的 E-R 模型，还要对全局 E-R 模型进行（分数：2.00）A.简化B.结构化C.最小化D.优化9.软件测试的目的是（分数：2.00）A.证明软件系统中存在错误B.找出软件系统中存在的所有错误C.尽可能多地发现系统中的错误和缺陷D.证明软件的正确性10.下列程序执行后，n 的值为n=0For I=1 To 200If I Mod 4 = 0 Then n = n+1Next I（分数：2.00）A.5050B.50C.51D.3311.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
5、x=InputBox(“Input“)Select Case xCase 1， 3 Print“分支 1”Case Is4Print“分支 2”Case ElsePrint “Else 分支”End SelectEnd Sub程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（分数：2.00）A.分支 1B.分支 2C.Else 分支D.程序出错12.在窗体上画一个名称为 Command1 的命令按钮和三个名称分别为 Label1、Label2、Label3 的标签，然后编写如下代码：Private x As IntegerPrivate Sub Command1_Click()Stat
6、ic y As IntegerDim z As Integern = 102 = n + zy=y+z x = x + zLabel1.Caption =xLabel2.Caption =yLabel3.Caption =zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（分数：2.00）A.10 10 10B.30 30 30C.30 30 10D.10 30 3013.确定一个控件在窗体上的位置的属性是（分数：2.00）A.Width 和 HeightB.Width 或 HeightC.Top 和 LeftD.Top 或 Left14.有以下函数过程：Funct
7、ion Gys (ByVal x As Integer， ByVal y As Integer) As IntegerDo While y0Reminder = x Mod yx = yy= ReminderLoopGys=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是Private Sub Command1_Click()Dim a As IntegerDim b As Integera = 50b = 10x=Gys (a，b)Print xEnd Sub（分数：2.00）A.0B.10C.50D.10015.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分
8、别为 Textl、Labell 和 Commandl，然后编写如下两个事件过程：Prirate SUb Command1 Click()strText = InputBox(“请输入”)Textl.Text = strTextEnd SubPrivate Sub Text1 Change()Labell.Caption = Right(Trim(Text1.Text)， 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是（分数：2.00）A.空B.abcdefC.abcD.def16.以下语句错误的是（分数：2.00）A.If a=1 An
9、d b=2 ThenC=3End IfB.If a=1 ThenC=2Else If a=2 ThenC=2End IfC.If a=1 ThenC=3End IfD.If a=1 ThenC=2Else If a=2 ThenC=2End IfEnd If17.设有如下的记录类型：Type Studentnumber As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是（分数：2.00）A.Student.name=“张红”B.Dim s As Students.name=“张红”C.Dim s As Type Stude
10、nts.name=“张红”D.Dim s As Types.name=“张红”18.在软件设计中，不属于过程设计：工具的是（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图19.在窗体上画一个名称为 Drivel 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel的文件列表框，两个名称分别为 Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Labell 中显示当前文件夹中文件的数量。如图所示。（分数：2.00）A.B.C.D.20.设
11、a=“Visual Basic“，下面使 b=“Basic“的语句是（分数：2.00）A.b=Left(a，8，12)B.b=Mid(a，8，5)C.b=Right(a，5，5)D.b=Left(a，8，5)21.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Text1.Text =“Visual“Me.Text1 = “Basic“Text1 = “Program“End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是（分数：2.00）A.VisualB.Basic
12、C.ProgramD.出错22.以下叙述中错误的是（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D.Visual Basic 中控件的某些属性只能在运行时设置23.在窗体上画一个命令按钮，名称为 Commad1，然后编写如下事件过程：Private Sub Command1 Click()a$=“software and bardware“b$=Right(a$，8)c$=Mid(a$，1，8)MsgBox
13、 a$，b$，c$，1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是（分数：2.00）A.soflware and hardwareB.softwareC.haldwareD.124.在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X = 5： Y = 3Call proc(X， Y)Labell.Caption：XLabel2.Caption：YEnd SubPrivate Sub proc
14、(ByVal a As Integer，ByVal b As Integer)X = a * aY = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（分数：2.00）A.5 和 3B.25 和 3C.25 和 6D.5 和 625.假定有如下事件过程：Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)If Button = 2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是（分数：2.00）A
15、.该过程的功能是弹出一个菜单B.PopForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 X、Y 指明鼠标的当前位置D.BuRon=2 表示按下的是鼠标左键26.Dima(3，-3 to 0，3 to 8)As Stritig 语句定义的数组元素有（分数：2.00）A.1-2 个B.96 个C.120 个D.80 个27.以下合法的 Visual Basic 标识符是（分数：2.00）A.ForLoopB.ConstC.9abcD.a#x28.以下有关数组定义的语句序列中，错误的是（分数：2.00）A.Static arrl(3)arr1(1)=100arrl(2)=“Hello“arr
16、l(3)=123.45B.Dim arr2()As IntegerDim size As IntegerPrivate Sub Command2_Click()size=InputBOX(“输入：”)ReDim arr2(size)End SubC.Option Base 1Private Sub Command3_Click()Dim arr3(3)As IntegerEnd SubD.Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n)As IntegerEnd Sub29.假定有一个菜单项，名为 Menultem，为了在运行时使该
17、菜单项失效(变灰)，应使用的语句为（分数：2.00）A.Menultem.Enabled=FalseB.Menultem.Enabled=TrueC.Menultem.Visible=TrueD.Menultem.Visible=False30.以下叙述中错误的是（分数：2.00）A.在 KeyPtess 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.KeyDown 和 KeyUp 事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的字符二、填
18、空题(总题数：12，分数：24.00)31.设有如下程序段：a$=“BeijingShanghai“b$=Mid(a$，InStr(a$，“g“)+1)执行上面的程序段后，变量 b$的值为_。（分数：2.00）填空项 1:_32.算法复杂度主要包括时间复杂度和 1 复杂度。（分数：2.00）填空项 1:_33.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_34.在关系数据库中，把数据表示成二维表，每一个二维表称为 1。（分数：2.00）填空项 1:_35.计时器控件能有规律的以一定时间间隔触发 1 事件，并执行该事件过程中的程序代码。（分数：2.00）填空项 1:_3
19、6.设有以下函数过程：Functio fun(m As Integer) As IntegerDim k As Integer， sum As Integersum=0For k=m To 1 Step -2sum = sum+ kNext kfun=sumEnd Function若在程序中用语句 s=fun(10)调用此函数，则 s 的值为 _。（分数：2.00）填空项 1:_37.在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Click()Text1.Text=“VB 程序设计“End SubPrivate Sub Text1_Change
20、()Picturel.Print“VB Programming“End Sub程序运行后，单击窗体，则在文本框中显示的内容是 _，而在图片框中显示的内容是 _。（分数：2.00）填空项 1:_38.阅读下面的程序：Private Sub Form_Click()Dim Check As Boolean，Counter As IntegerCheck=TrueCounter=5DoDo While Counter20Counter=Counter+1If Counter=10 ThenCheck=FadtseEXit DoEnd IfLoopLoop Until Check=FalsePrint
21、 CounterEnd Sub程序运行后，单击窗体，输出结果为 _。（分数：2.00）填空项 1:_39.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click()a= Val(InputBox(“请输入一个整数”)b=Val(InputBox(“请输入一个整数”)Print a+bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入 12 和 34，输出结果为 _。（分数：2.00）填空项 1:_40.若 s、i 均为整型变量，执行下列程序段后 s 的值为 _。s=0i=1Dos=s+ii=i+1Loop Until i5（分数：2.00
22、）填空项 1:_41.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序：Function M(x As Integer，y As Integer) As IntegerM=IIf(xy，x，y)End FunctionPrivate Sub Command1 Click()Dim a As Integer， b As Integera=100b=200Print M(a，b)End Sub程序运行后，单击命令按钮，输出结果为 _。（分数：2.00）填空项 1:_42.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base 1Privat
23、e Sub Command1 Click()Dim a(10)As IntegerFor i = 1 To 10a(i)= iNextCall swap(_)For i=1 To 10Print a(i)；NextEnd SubSub swap(b()As Integer)n = _For i=1 To n/2t = b(i)b(i)= b(n)b(n)= t_NextEnd Sub上述程序的功能是：通过调用过程 swap，调换数组中数值的存放位置，即 a(”与 a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空。（分数：2.00）填空项 1:_二级 VIS
24、UAL+BASIC 笔试-122 答案解析(总分：84.00，做题时间：90 分钟)一、选择题(总题数：30，分数：60.00)1.以下叙述中错误的是（分数：2.00）A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B.以.BAS 为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件解析：解析 工程管理器窗口中可以包含多个工程文件，每个工程文件又可以包含多个窗体和多个不同类型的文件。故选项 A 的说法是错误的。2.下列描述中正确的是（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是
25、物理实体D.软件是程序、数据与相关文档的集合 解析：解析 计算机软件是计算机系统中与硬件相互依存的另一部分，包括程序、数据及相关文档的完整集合。选项 D 的描述正确。3.在窗体上添加一个文本框，名为 Textl，然后编写如下的 Load 事件过程，则程序的运行结果是Private Sub Form_Load()Text1.Text=“ “Text1.Setfocust=1For k=10 To 6 Step -2t=t(kNext kText1.Text =tEnd Sub（分数：2.00）A.在文本框中显示 120B.文本框仍为空C.在文本框中显示 480D.出错 解析：解析 本题表面在考查
26、 For 循环控制语句的使用，但解题的关键是理解 Text 文本框 SetFocus 方法的正确使用，在触发窗体 Form 的 Load 事件时，使用 SetFocus 将发生冲突，在 Visual Basic 上调试本题的程序将显示“错误的过程调用或函数”提示。本题选择 D 项。如果删除 SetFocus 方法的使用，文本框中将显示 480。如果用控制按钮的 Click 事件触发该段事件过程，文本框也会得到 480 的答案，对此，考生不妨自己上机一试。4.以下关于窗体的描述正确的是（分数：2.00）A.只有用于启动的窗体可以有菜单B.窗体事件和其中所有控件事件的代码都放在窗体文件中 C.窗体
27、的名字和存盘的窗体文件名必须相同D.开始运行时窗体的位置只能是设计阶段时显示的位置解析：解析 每个窗体都可以通过菜单编辑器来设计自己的菜单，A 是错误的。窗体的名字(Name)与存盘的窗体文件名可以完全不同，这是两个概念，在工程资源管理器中分别显示了存盘的窗体文件名与窗体的名字，故 C 项不正确。窗体可以通过设置属性或使用程序代码来确定自己在运行时的位置，D 项也是错误的。故答案为 B。5.如果要改变窗体的标题，则需要设置的属性是（分数：2.00）A.Caption B.NameC.BackColorD.Borderstyle解析：解析 Caption 属性确定窗体的标题，即显示在窗体标题栏内
28、的内容。而 Name 确定窗体的名称，即窗体在整个程序中的“身份”。 BackColor 用来设置窗体的背景颜色：BorderStyle 确定窗体的边框样式。故本题答案为 A。6.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/2 解析：解析 假设线性表的长度为 n，在最坏情况下，冒泡排序和快速排序需要的比较次数为 n(n-1)/2。由此可见，选项 D 正确。7.目录列表框的 Path 属性的作用是（分数：2.00）A.显示当前驱动器或指定驱动器上的路径 B.
29、显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的文件名D.只显示当前路径下的文件解析：解析 Path 属性因控件而异，目录列表框的 Path 属性只显示当前驱动器或指定驱动器的路径，而不显示相关的文件名及文件。故本题选择 A 项。8.利用 E-R 模型进行数据库的概念设计，可以分成三步：首先设计局部 E-R 模型，然后把各个局部 E-R 模型综合成一个全局的模型，要得到最终的 E-R 模型，还要对全局 E-R 模型进行（分数：2.00）A.简化B.结构化C.最小化D.优化 解析：解析 在概念设计中，按照模块的划分画出各个模块的 E-R 图，然后把这些图合成一张 E-R 图作为全
30、局模型，最后应该对全局 E-R 图进行优化，看是否有重复和不合理的地方。不能只进行简单的合并。故答案为 D。9.软件测试的目的是（分数：2.00）A.证明软件系统中存在错误B.找出软件系统中存在的所有错误C.尽可能多地发现系统中的错误和缺陷 D.证明软件的正确性解析：解析 软件测试的目的不是证明系统的正确或是系统中的错误，而是要发现错误以使编程人员能够改正。系统中的错误和缺陷往往受到很多偶然因素的影响，不可能完全发现，只能是尽可能地发现并改正。10.下列程序执行后，n 的值为n=0For I=1 To 200If I Mod 4 = 0 Then n = n+1Next I（分数：2.00）A
31、.5050B.50 C.51D.33解析：解析 本题考查考生对 For 循环的理解。根据题意，在 Forl 的 200 次循环中，每遇到一次 1 为 4的倍数，变量 n 就加 1。所以本题答案为 B，在 1 到 200 之间，有 50 个数是 4 的倍数。11.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox(“Input“)Select Case xCase 1， 3 Print“分支 1”Case Is4Print“分支 2”Case ElsePrint “Else 分支”End Sele
32、ctEnd Sub程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（分数：2.00）A.分支 1B.分支 2C.Else 分支 D.程序出错解析：解析 本题考查多分支控制结构。根据题意，输入 2 时，满足“Case Else”条件，即执行“Print “Else 分支“”，故正确答案为 C。12.在窗体上画一个名称为 Command1 的命令按钮和三个名称分别为 Label1、Label2、Label3 的标签，然后编写如下代码：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Int
33、egern = 102 = n + zy=y+z x = x + zLabel1.Caption =xLabel2.Caption =yLabel3.Caption =zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（分数：2.00）A.10 10 10B.30 30 30C.30 30 10 D.10 30 30解析：解析 本题主要考查变量的几种定义方式，Private 定义的变量 x 为模块级变量，每单击一次Commandl，x 将在原来的基础上被赋予新值。而 y/2 为过程变量，y 由于以 Static 定义，具有存储数值的功能，为静态变量；而 z 为动态变
34、量，每调用一次该事件过程，2 值都会自动初始化，本题正确答案为C。13.确定一个控件在窗体上的位置的属性是（分数：2.00）A.Width 和 HeightB.Width 或 HeightC.Top 和 Left D.Top 或 Left解析：解析 确定一个控件在窗体中的位置，用 Top 与 Left 属性，前者确定控件与窗体上端的距离，后者确定控件与窗体左端的距离。故正确答案为 c。确定一个控件在窗体上的位置要由这两个属性共同决定。故选项 D 是错误的。A、B 项的 Width 与 Height 属性确定控件本身的高度与长度，故 A、B 项都是错误的。14.有以下函数过程：Function
35、Gys (ByVal x As Integer， ByVal y As Integer) As IntegerDo While y0Reminder = x Mod yx = yy= ReminderLoopGys=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是Private Sub Command1_Click()Dim a As IntegerDim b As Integera = 50b = 10x=Gys (a，b)Print xEnd Sub（分数：2.00）A.0B.10 C.50D.100解析：解析 本首先要读懂 Gys 函数过程的意思，Gys 函数过程
36、返回参数 y 的值，具体过程是先令参数x 的值为 y 的值，y 的值为 x Mod y 的值，再令 Gys 值为 x 的值，据此本题的正确结果为 10，选 B。15.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Textl、Labell 和 Commandl，然后编写如下两个事件过程：Prirate SUb Command1 Click()strText = InputBox(“请输入”)Textl.Text = strTextEnd SubPrivate Sub Text1 Change()Labell.Caption = Right(Trim(Text1.Text)， 3)E
37、nd Sub程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是（分数：2.00）A.空B.abcdefC.abcD.def 解析：解析 本题考查字符串函数。 Trim 表示去掉字符串两边的空白字符。Right 函数返回字符串最后面的 n 个字符。本题首先通过 InputBox 函数输入一个字符串并赋给 strText，然后把 strText 赋给Textl.Text。再经过 Trim 函数和 Right 函数的计算，得出的结果应该是 abcdef 的最后三个字符 def，故正确答案为 D。16.以下语句错误的是（分数：2.00）A.If a=1 And b=
38、2 ThenC=3End IfB.If a=1 ThenC=2Else If a=2 ThenC=2End IfC.If a=1 ThenC=3End IfD.If a=1 ThenC=2Else If a=2 ThenC=2End IfEnd If 解析：解析 本题考查 If 选择控制结构。If 选择控制结构的两种形式为：“If Then End If”与“If ThenElse If ThenEnd If”，选项 D 的写法是错误的，多出了 End If。答案为 D。17.设有如下的记录类型：Type Studentnumber As Stringname As Stringage As
39、IntegerEnd Type则正确引用该记录类型变量的代码是（分数：2.00）A.Student.name=“张红”B.Dim s As Students.name=“张红” C.Dim s As Type Students.name=“张红”D.Dim s As Types.name=“张红”解析：解析 本题主要考查用户定义的记录类型数据。其中 Student 是用户定义的数据类型，Type 是语句标识，故 A、C、D 项皆有错误，只能选 B。18.在软件设计中，不属于过程设计：工具的是（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图 解析：解析 数据
40、流图 DFD，是结构化分析方法最主要的一种图形工具，不属于过程设计工具。19.在窗体上画一个名称为 Drivel 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel的文件列表框，两个名称分别为 Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Labell 中显示当前文件夹中文件的数量。如图所示。（分数：2.00）A.B.C. D.解析：解析 List 属性用来列出表项的内容，可以加下标用“()”括起来配合使用。根据题意，应选择文件列表框的 ListCount 属性，该属性
41、用于返回文件的数量值。故 B、D 项错误。A 项缺少“Label1.Caption=Filel.ListCount”这一语句，从而使得在仅触动 Dirl 的 Change 事件时，Labell 没有反应。20.设 a=“Visual Basic“，下面使 b=“Basic“的语句是（分数：2.00）A.b=Left(a，8，12)B.b=Mid(a，8，5) C.b=Right(a，5，5)D.b=Left(a，8，5)解析：解析 本题仍然考查字符串函数，字符串函数在 Visual Basic 考题中历年都占有很大的比重，考生应给予关注。本题 A、C、D 项都发生了格式上的错误。只有 B 项是
42、正确的，Mid(a，8，5)是从 a 字符串的第 8 位开始截取 5 位，符合题意。21.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Text1.Text =“Visual“Me.Text1 = “Basic“Text1 = “Program“End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是（分数：2.00）A.VisualB.BasicC.Program D.出错解析：解析 本题主要考查文本框 Text 属性的表达方式。在写程序代码时，一般省去窗体名称，例如
43、：Forml.Textl.Text 可以直接写成 Textl.Text。同时，由于 Text 是文本框的属性值，所以也可以省略。对于程序代码所在的窗体，可以用 Me 来代指。故本题中 Textl.Text、Mc.Textl、Textl 都是等价的。由于程序代码按顺序执行，故单击命名按钮后，文本框中最终显示 Program。正确答案为 C。22.以下叙述中错误的是（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
44、 D.Visual Basic 中控件的某些属性只能在运行时设置解析：解析 Visual Basic 工具箱中，并不是所有控件都具有宽度(Width)和高度(Height)属性。比如计时器，它只能在设计时显示，运行时不显示，故本题选 C。A 项与 B 项说明了 Visual Basic 是一个事件驱动的可视化编程工具，这是 Visual Basic 的一个重要特征。D 项的说法也是正确的，大部分控件可以在设计时设置，也可以在运行时通过程序代码设置。但有些只能在运行时设置，比如列表框的 Text 属性。23.在窗体上画一个命令按钮，名称为 Commad1，然后编写如下事件过程：Private S
45、ub Command1 Click()a$=“software and bardware“b$=Right(a$，8)c$=Mid(a$，1，8)MsgBox a$，b$，c$，1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是（分数：2.00）A.soflware and hardwareB.softwareC.haldware D.1解析：解析 MsgBox 函数和 MsgBox 语句历来是考试的重点内容，务必掌握。Right(a$，8)表示返回字符串 aS 从右数的 8 个字符，Mid(a$,1,8)表示从 aS 的第一个字符处向右取 8 个字符。MsgBox 语
46、句后的第三项表示弹出的对话框的标题栏内的内容，选项 C 正确。注意 MsgBox 语句后省略某项参数时，逗号不能省略。24.在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click()X = 5： Y = 3Call proc(X， Y)Labell.Caption：XLabel2.Caption：YEnd SubPrivate Sub proc(ByVal a As Integer，ByVal b As Integer)X =
47、a * aY = b + bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（分数：2.00）A.5 和 3B.25 和 3 C.25 和 6D.5 和 6解析：解析 由于在 Proc 过程中， a、b 的传送方式都是传值，故在“Commandl Click()”事件过程中，变量 x、Y 的地址未发生变化，但由于调用 proc 过程后，变量 x 被赋予了新值 a*a，所以在单击命令按钮后，Label1 显示为 25，Label2 没有发生变化，因为 Y 变量事先未声明，为事件过程变量，在未采用传地址方式下 Sub 过程中的 Y 与事件过程中的 Y 互不干扰。所以本题答案为
48、B。25.假定有如下事件过程：Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)If Button = 2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是（分数：2.00）A.该过程的功能是弹出一个菜单B.PopForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 X、Y 指明鼠标的当前位置D.BuRon=2 表示按下的是鼠标左键 解析：解析 本题主要考查鼠标事件 MouseDown 的各参数的含义。参数 X、Y 指明鼠标当前所在的位置，而 Button=2 表示按下的是右键；1 表示左键；另外 Button=4 表示按下鼠标的中间键。故 D 是错误的。另外“PopupMenu PopForm”表示把在菜单编辑器中定义的菜单表示为弹出式菜单。故选项 A、B 的说法是正确的。26.Dima(3，-3 to 0，3 to 8)As Stritig 语句定义的数组元素有（分数：2.00）A.1-2 个B.96 个 C.120 个D.80 个解析：解析 本题关键在于理解多维数组的定义。根据题意，数组 a
