【计算机类职业资格】二级VISUAL+BASIC笔试334及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试334及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试334及答案解析.doc（13页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试 334 及答案解析(总分：76.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.以下关于窗体的描述中，错误的是（分数：2.00）A.执行 UnLoadForml 语句后，窗体 Forml 消失，但仍在内存中B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽2.设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As I

2、nteger a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（分数：2.00）A.4 3 21B.543 2C.6 54 3D.7 6 543.下列叙述中正确的是（分数：2.00）A.在窗体的 Form Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用过程时，所有局部变量被系统初始化为 0 或空字符

3、串4.假定有如下事件过程： Privte Sub Form_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x28 x=x*3 n=n+1 Loop Print x，n End Sub 程序运行后，单击窗体，输出结果是（分数：2.00）A.81 4B.56 3C.28 1D.243 55.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为（分数：2.00）A.命令按钮移动

4、到距窗体左边界、上边界各 500 的位置B.窗体移动到距屏幕左边界、上边界各 500 的位置C.命令按钮向左、上方向各移动 500D.窗体向左、上方向各移动 5006.代数|3e+lgx+arctgy|对应的 Visual Basic 表达式是（分数：2.00）A.Abs(e3+Lg(+L/Tg( )B.Abs(Exp(3)+Log(/Log(10)+Atn()C.Abs(Exp(3)+Log(+Atn( )D.Abs(Exp(3)+Log(+1/Atn( )7.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下代码： Option Base 1 Prirate Sub Comm

5、and1 Click() d = 0 c = 10 x=Array(10， 12， 21， 32，24) For i=1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（分数：2.00）A.89B.99C.23D.778.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 The

6、n f = m Else f = 1 End If End Function Private Sub Commandl Click() Dim i As Integer S = 0 For i=1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是（分数：2.00）A.11B.10C.9D.89.设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为

7、 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.10B.15C.25D.2410.在窗体上画一个名称为 Command1 的命令按钮和两个名称分别为 Text1、Text2 的文本框，然后编写如下事件过程： Private Sub Command1_Click()

8、n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2， 4， 6 x = 20 Case Is 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框 Text1 中输入 10，然后单击命令按钮，则在 Text2 中显示的内容是（分数：2.00）A.10B.20C.30D.4011.设有如下关系表： （分数：2.00）A.T=RSB.T=RSC.T=RSD.T=R/S12.在窗体上面一个名称为 Commandl 的命令按钮，然后编写如下程序： Opt

9、ion.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i) x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.1 2B.1 2 3C.3 4 5D.4 513.编制一个好的程序，首先要保证它的正确性和可靠性，还应强调良好的编程风格，在选择标识符的名字时应考虑（分数：2.00）A

10、.名字长度越短越好，以减少源程序的输入量B.多个变量共用一个名字，以减少变量名的数目C.选择含义明确的名字，以正确提示所代表的实体D.尽量用关键字作名字，以使名字标准化14.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(“ “) For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是（分数：2.00）A.3B.4C.5D.615.在

11、窗体上画三个单选按钮，组成一个名为 chkOption 的控件数组。用于标识各个控件数组元素的参数是（分数：2.00）A.TagB.IndexC.ListlndexD.Name16.编写了如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print “AAAA“ End If End Sub 程序运行后，为了在窗体上输出“AAAA“，应按下的鼠标键是（分数：2.00）A.左B.右C.同时按下左和右D.按鼠标键没有反应17.假定窗体上有一个文本框，名为 txt

12、l，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为（分数：2.00）A.TxtMultiLine=True TxtScrollBars=0B.TxtMultiLine=True TxtScrollBars=2C.TxtMulfiLine=False TxtScrollBars=0D.TxtMultiLine=False TxtScrollBars=318.执行以下程序段 Dim x As Integer， i As Integer x=0 For i=20 To Step -2 x=x+i/5 Next i 后，x 的值为（分数：2.00）A.16B.17C.

13、18D.1919.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X， Y End Sub 程序运行时，三次单击命令按钮 Commandl 后，窗体上显示的结果为（分数：2.00）A.15 16B.15 6C.15 15D.5 620.窗体的 MouseDown 事件过程 Form MouseDown (Button As Integer，Shift As Int

14、eger，X As Single，Y As Single) 有 4 个参数，关于这些参数，正确的描述是（分数：2.00）A.通过 Button 参数判定当前按下的是哪一个鼠标键B.Shift 参数只能用来确定是否按下 Shift 键C.Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键D.参数 X、Y 用来设置鼠标当前位置的坐标21.阅读下面的程序段： For i=1 To 3 For j=i To 3 For k= 1 To 3 a=a+i Next k Next j Next i 执行上面的 3 重循环后，a 的值为（分数：2.00）A.3B.9C.14D.3022.以下叙述中

15、错误的是（分数：2.00）A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.除分隔线外，所有菜单项都能接收 Click 事件D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见23.下列叙述中正确的是（分数：2.00）A.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令24.以下定义数组或给数组元素赋值的语句中，正确的是（分数：2.00）A.Dim a As Variant a=Array(1，2，3，4，5)B.Dim a (

16、10) As Integer a=Array(1，2，3，4，5)C.Dim a%(10) a(1)=“ABCDE“D.Dim a (3)，b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a25.在窗体上画一个名称为 Labell、标题为“ViSBalBasic 考试”的标签，两个名称分别为 Command1 和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500，如图所示。 （分数：2.00）A.标签的移动方向为自右向左B.单击“停止”按钮后再单击“开始”按钮，标签从

17、停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现，重新移动D.标签按指定的时间间隔移动26.设有语句 Open “c：/Test.Dat“ For Output As #1“ 则以下叙述错误的是（分数：2.00）A.该语句打开 C 盘根目录下一个已存在的文件 TesDatB.该语句在 C 盘根目录下建立一个名为 TesDat 的文件C.该语句建立的文件的文件号为 1D.执行该语句后，就可以通过 Print#语句向文件 TesDat 中写入信息27.在窗体上有一个文本框控件，名称为 TxtTime；一个计时器控件，名称为 Timer1，要求每一秒钟在文本框中显示一次当前的时间。程

18、序为： Private Sub Timerl _ TxtTime.text=Time End Sub 在下划线上应填入的内容是（分数：2.00）A.EnabledB.VisibleC.IntervalD.Timer28.下列模式中，能够给出数据库物理存储结构与物理存取方法的是（分数：2.00）A.内模式B.外模式C.概念模式D.逻辑模式29.下面程序运行时，内层循环的循环总次数是 For M=1 To 3 For N=0 To M-1 Next N Next M（分数：2.00）A.6B.5C.3D.430.函数 String(n,“str“)的功能是（分数：2.00）A.把数值型数据转换为字

19、符串B.返回由 n 个字符组成的字符串C.从字符串中取出 n 个字符D.从字符串中第 n 个字符的位置开始取子字符串二、B填空题/B(总题数：8，分数：16.00)31.在窗体上画两个标签，其名称分别为 Label1 和 Label2，Caption 属性分别为“数值”及空白；然后画_个名称为 Hscrolll 的水平滚动条，其 Min 的值为 0，Max 的值为 100。程序运行后，如果单击滚动条两端的箭头，则在标签 Label2 中显示滚动条的值，如图所示。请在_处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_32.把窗体的 KeyPreview 属性设置为 True，

20、然后编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后，如果直接按键盘上的“A”键(即不按住 Shift 键)，则在窗体上输出的字符分别是_和_。（分数：2.00）填空项 1:_33.数据结构分为逻辑结构和存储结构，循环队列属于 1 结构。（分数：2.00）填空项 1:_34.标准模块和

21、窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块_。 Type comp re As Single im As Single End Type Public C As comp 窗体模块 Private Sub Commandl_Click() Dim a As comp，b As comp a.re=InputBox(“输入 a 的实部”) a.im=InputBox(“输入 a 的虚部”) b.re=InputBox(“输入 b 的实部”) b.im=InputBox(“输入 b 的虚部”) _ Print “c“=“； c.re； “+“； c.im； “i“ En

22、d Sub Private Sub s(_) c.re = r1.re + r2.re c.im = r1.im + r2.im End Sub（分数：2.00）填空项 1:_35.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Textl、Labell 和 Commandl，然后编写如下两个事件过程： Private Sub Commandl_Click() S$=InputBox(“请输入一个字符串”) Textl.Text=S$ End Sub Private Sub Text1_Change() Labell.Caption=UCase(Mid(Text1.Text，7)

23、End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBasic“，则在标签中显示的内容是_。（分数：2.00）填空项 1:_36.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为 Listl、Commandl 和 Labell，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如下图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 （分数：2.

24、00）填空项 1:_37.设有如下程序 Option Base 1 Private Sub Command1_Click() Dim arrl Dim Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54， 866， 43) Min=_ For i=2 To 8 If arrl(i)Min Then Next i Print “最小值是：”；Min End Sub 以上程序的功能是：用 Arcay 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。（分数：2.00）填空项 1:_38.在窗体上画一个

25、名称为 Lablel 的标签和一个名称为 Listl 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Labell 中显示所选中的项目，如图所示。请在_处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 334 答案解析(总分：76.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.以下关于窗体的描述中，错误的是（分数：2.00）A.执行 UnLoadForml 语句后，窗体 Forml 消失，但仍在内存中 B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabl

26、ed 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽解析：解析 本题考查窗体的方法与属性。在执行 UnLoadForm1 语句后，窗体 Form1 从内存中卸载，并从屏幕中消失。只有在执行 Hide 方法时，Form1 才会消失但仍在内存中，故选择 A。2.设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 -

27、i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（分数：2.00）A.4 3 21B.543 2C.6 54 3 D.7 6 54解析：解析 本题综合考查 For 循环控制语句与用 Array 函数为数组进行初始赋值注意，由于“Option Base 0”，故数组的下标下界为 0，所以 a(5)应该是数组 a 的第六个元素“6”，以此类推，可知正确答案为 C。3.下列叙述中正确的是（分数：2.00）A.在窗体的 Form Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局

28、部变量同名，但其作用域只限于该过程 D.在调用过程时，所有局部变量被系统初始化为 0 或空字符串解析：解析 本题考查局部变量与全局变量。在事件过程中定义的变量都不是全局变量，故 A 项表述错误。局部变量的作用域仅限于所定义的过程，故 B 项叙述不正确。在 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程，不能在其他过程中被调用，C 项表述正确。在调用过程时，如果局部变量用 Static 关键字定义，就不会被初始化为 0 或空字符串，D 项表述错误。4.假定有如下事件过程： Privte Sub Form_Click() Dim x As Integer

29、，n As Integer x=1 n=0 Do While x28 x=x*3 n=n+1 Loop Print x，n End Sub 程序运行后，单击窗体，输出结果是（分数：2.00）A.81 4 B.56 3C.28 1D.243 5解析：解析 本题考查 DoLoop 循环控制结构。DoLoop 循环控制结构是考试重点内容，历次考试都会有至少 2 个题目涉及该知识点，务必掌握。题目非常简单，目的是对 x 进行一定的计算，同时输出循环次数。x 初值为 1，满足条件，执行后面语句，当 x=27，n=3 时，继续执行循环，执行 x=x*3，后，x为 81，n=4，已经不满足条件，循环结束。所

30、以最后的结果 x=81，n=4，选项 A正确。5.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为（分数：2.00）A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.窗体移动到距屏幕左边界、上边界各 500 的位置 C.命令按钮向左、上方向各移动 500D.窗体向左、上方向各移动 500解析：解析 Move 是表示控件或窗体移动的方法。后接两个参数，分别表示要移动到某点的横坐标值与纵坐标值。对于窗体来说，横坐标与纵坐标分

31、别表示窗体距离屏幕左边界与上边界的长度。本题表示单击Command1 控制按钮后，窗体移动到(500,500)处。故答案为 B。答案 A 与 C 是错误的，因为当方法前省去主体时，一般指窗体。 D 项错在 Move 方法并不是使窗体移动多大的距离，而是使窗体达到指定的位置。6.代数|3e+lgx+arctgy|对应的 Visual Basic 表达式是（分数：2.00）A.Abs(e3+Lg(+L/Tg( )B.Abs(Exp(3)+Log(/Log(10)+Atn() C.Abs(Exp(3)+Log(+Atn( )D.Abs(Exp(3)+Log(+1/Atn( )解析：解析 本题考查 V

32、isual Basic 内部数学函数。Visual Basic 有它自己的一套数学符号，编程时要遵守这套规则，否则系统将无法编译程序。本题中绝对值用 Abs 表示；3e 用 Exp(3)表示。由于 Visual Basic 没有提供与 lg 对应的函数，故 lgx 表示为 Log(x)/Log(10)，arctg 用 Atn 表示。故答案为 B。7.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下代码： Option Base 1 Prirate Sub Command1 Click() d = 0 c = 10 x=Array(10， 12， 21， 32，24) For i

33、=1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（分数：2.00）A.89B.99C.23 D.77解析：解析 本题考查 For 循环控制语句。首先使用 Array 为数组 x 赋值。For 循环表示当 x(i)值大于c 时就执行： d=d+x(i) c=x(i) 表示如果 x(i)c 则令 d 加 x(i)，并且赋 x(i)给变量 c。否则，执行d=d-c 语句要注意 c 的值在不断发生变化，根据题意，最终答案

34、为 C。8.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Commandl Click() Dim i As Integer S = 0 For i=1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是（分数：2.00）A.11B.10C.9 D.8解析：解析 本题考查 F

35、unction 函数过程的建立与调用。f 函数过程令参数 m 在是 2 的倍数的情况下返回 m 值，在 m 不是 2 的倍数的情况下，返回 1。在 For 循环中调用，此过程，执行五次循环，i 值分别为1，2、3、4、5。当 i 为 2、4 的时候，f(i)值为 2、4，其他情况下为 1，故 s 值为 1+1+1+2+4=9，正确答案为 C。9.设有如下通用过程： Public Sub Fun(a()， ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1

36、的命令按钮，然后编写如下的事件过程： Private Sub Commandl Click() Dim arr(5) As Variant For i=1 To 5 arr(i) =i Next n = 10 Call Fun(arr()， n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.10 B.15C.25D.24解析：解析 本题主要考查传值与传地址的区别。Fun 过程中参数 a()的传送方式为传地址，参数 x 的传送方式为传值。当在 Command1 的 Click 事件过程调用该过程时，变量仅仅复制了一个变量副本传

37、送给Fun 过程，而它自己本身并没有发生变化所以当调用完毕 Fun 过程后，再将 n 值赋给 Textl 的 Text 属性时，文本框中显示的内容仍为 10。正确答案为 A。10.在窗体上画一个名称为 Command1 的命令按钮和两个名称分别为 Text1、Text2 的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2， 4， 6 x = 20 Case Is 10 x = 30 Case 10 x = 40 End Select Text2

38、.Text = x End Sub 程序运行后，如果在文本框 Text1 中输入 10，然后单击命令按钮，则在 Text2 中显示的内容是（分数：2.00）A.10 B.20C.30D.40解析：解析 本题为一简单的多分支控制结构语句。Case 语句的表达式有三种形式，一种为“表达式(，表达式)”；一种为“表达式 To 表达式”；还有一种比较特殊，为 Is 关系运算表达式。三者可以混用。由于在 Text1 中输入 10，满足“Case 1 To 20”的条件，故执行“x=10”的语句。最终 Text2 的Text 属性值为 10，故正确答案为 A。11.设有如下关系表： （分数：2.00）A.

39、T=RSB.T=RS C.T=RSD.T=R/S解析：解析 选项 A、B、C 分别进行交运算、并运算、笛卡尔积运算，选项 D 不是关系运算。T 由属于关系 R 以及关系 S 的元组组成，简单来说，就是 S 和 R 的元组之和，是并运算，选项 B 正确。12.在窗体上面一个名称为 Commandl 的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i

40、=1 To 5 If a(i) x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.1 2B.1 2 3C.3 4 5D.4 5 解析：解析 本题主要考查考生对程序代码的阅读理解能力。用 Array 函数为数组 a(5)赋值，其元素分别为 1、2、3、4、5。第一个 For i 循环把 a(i)数组中的元素逐个加到变量 Sum 上，然后求出 Sum 浮点除5 的结果(为 3)，赋值给变量 x。第二个 Fori 循环表示当 a(i)大于 3 时，则用 Print 语句输出该元素。据此，正确答案为 D。13.编制一

41、个好的程序，首先要保证它的正确性和可靠性，还应强调良好的编程风格，在选择标识符的名字时应考虑（分数：2.00）A.名字长度越短越好，以减少源程序的输入量B.多个变量共用一个名字，以减少变量名的数目C.选择含义明确的名字，以正确提示所代表的实体 D.尽量用关键字作名字，以使名字标准化解析：解析 标识符的名字应该能反映出它所代表的实际东西，应有一定的意义。名字不是越长越好，应当选择精练的意义明确的名字。必要时可以使用缩写名字，但这时要注意缩写规则要一致，并且给每个名字加注释。同时，在一个程序中，一个变量只有一种用途。14.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：

42、Private Sub Command1_Click() x = 0 n=InputBox(“ “) For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是（分数：2.00）A.3B.4C.5D.6 解析：解析 本题考查 For 循环控制语句的嵌套。当输入 3 时，For i 执行三次，对应的 Forj 循环执行一次，二次、三次，Forj 每执行一次，x 都加 1，故最终结果为 6，选 D。15.在窗体上画三个单选按钮，组成一个名为 chkOption

43、 的控件数组。用于标识各个控件数组元素的参数是（分数：2.00）A.TagB.Index C.ListlndexD.Name解析：解析 主要考查控件数组的标识。控件数组由于有相同的 Name 属性，故可以通过 Index 作为下标访问不同的控件。故本题选 B。16.编写了如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print “AAAA“ End If End Sub 程序运行后，为了在窗体上输出“AAAA“，应按下的鼠标键是（分数：2.00）A.左B

44、.右C.同时按下左和右D.按鼠标键没有反应 解析：解析 本题表明考查考生对鼠标键的理解，实际上设置了一个陷阱，即该事件过程响应的是KeyDown 事件，按下鼠标键，不会调动该事件过程，故选 D。另外，值得一提的是，(Button And 3)=3 表示同时按下鼠标左右键。17.假定窗体上有一个文本框，名为 txtl，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为（分数：2.00）A.TxtMultiLine=True TxtScrollBars=0B.TxtMultiLine=True TxtScrollBars=2 C.TxtMulfiLine=False

45、TxtScrollBars=0D.TxtMultiLine=False TxtScrollBars=3解析：解析 本题考查文本框的属性。MultiLine 如果设置为 True，可以使用多行文本，即在文本框中输入或输出文本时可以换行，并在下一行接着输入或输出。ScrollBars 用来确定文本框中有没有滚动条，可以取 0、1、2、3 四个值，其含义分别为：0 表示没有滚动条；1 表示只有水平滚动条； 2 表示只有垂直滚动条；3 表示同时具有水平滚动条与垂直滚动条，故本题应选择 B 项。18.执行以下程序段 Dim x As Integer， i As Integer x=0 For i=20

46、To Step -2 x=x+i/5 Next i 后，x 的值为（分数：2.00）A.16B.17C.18 D.19解析：解析 本题考查 For 循环结构。For 循环是最基本的循环语句，一般格式为：For 循环变量=初值 To 终值 Step 步长，步长省略时默认为 1。在本题考生应该注意 i/5 的值，“/”是整除，而不是四舍五入。第 1 次循环，i=20，i/5=4，第 2 次循环，i=18，i/5=3 而不是 4，第 3 次循环 i=16， i/5=3，依次类推，最后结果是 18，选项 C 正确19.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序： Privat

47、e Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X， Y End Sub 程序运行时，三次单击命令按钮 Commandl 后，窗体上显示的结果为（分数：2.00）A.15 16B.15 6 C.15 15D.5 6解析：解析 本题考查 Static 的用法。Static 用于在过程中定义静态变量及数组变量。与 Dim 不同，如果用 Static 定义了一个变量，则每次引用该变量时，其值都会继续保留本题中，三次单击命令按钮意味着每次 Y 值加 5，

48、X 值也加 5。由于在事件过程中事先给 Y 赋值 1，所以每次单击按钮，Y 值都被初始化为 1，但 X 继续保留上次的值，即在第三次单击命令按钮时，X 连加了 3 次 5， Y 值为 1 加 5，故正确选项为 D。20.窗体的 MouseDown 事件过程 Form MouseDown (Button As Integer，Shift As Integer，X As Single，Y As Single) 有 4 个参数，关于这些参数，正确的描述是（分数：2.00）A.通过 Button 参数判定当前按下的是哪一个鼠标键 B.Shift 参数只能用来确定是否按下 Shift 键C.Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键D.参数 X、Y 用来设置鼠标当前位置的坐标解析：解析 本题考查 MouseDown 事件过程的 4 个参数。Button 参数用来判定当前按下的是哪一个鼠标键。Button 值为 1 时表示按下左键；为 2 时，表示按下右键；为 4 时，表示按下中间键故 A 项是正确的。Shift 参数用来判断 Shift、 Ctrl 和 Alt 键的状态，故 B、C 项说法有误。X、Y 参数用来获取鼠标的位置，而不是设置鼠标当前的位置，两者有根本的区别，考生应予以关注，D 项说法错误。21.阅读下面的程序段： For i=1 To 3 F