1、二级 VISUAL+BASIC 笔试-225 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.单击命令按钮时，下列程序段的执行结果为( )。Private Sub Command1_Crick()Print Myfunc(24,18)End SubPublic Function MyFunc(m As Integer,n As Integer)As IntegerDo WhilemnDo While mn:m=m-n:LoopDo While mn:n=n-m:LoopLoopMyFunc=mEnd Function（分数：2.00）A.2
2、B.4C.6D.82.用 Print 方法在 Form1 窗体中显示出 4 个星号的正确代码为( )。（分数：2.00）A.Debug.Print“*“B.Print*C.Form1_Print“*“D.Form1.Print“*“3.窗体上有一个按钮和一个滚动条，则下列程序的功能是( )。Sub Command1_Click()HScroll1.LargeChange=5End Sub（分数：2.00）A.将滚动条的最大值设为 5B.将滚动条最大改变值改变 5C.将滚动条的最小值设为 5D.将滚动条最小改变值改为 54.如果将布尔常量值 True 赋值给一个整型变量，则整型变量的值为( )。
3、（分数：2.00）A.0B.-1C.TrueD.False5.在窗体上画一个名称为 text1 的文本框和一个名称为 label1 的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。Private Sub Text1_Label 1.Caption=Text1.TextEnd Sub（分数：2.00）A.FocusB.CrickC.ChangD.LostFocus6.下列事件过程运行后输出结果是( )。Private Sub Command1_Click()Print Format$(123.456,“#.#%“)End Sub（分数：2.00）A
4、.123.46%B.123.45%C.123.456%D.12345.6%7.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click()Dim city As Variantcity=Array(“北京“，“上海“，“天津“，“重庆“)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。（分数：2.00）A.空白B.错误提示C.北京D.上海8.对象.cls 方法对( )控件有效。（分数：2.00）A.窗体、图像框B.窗体、图片框C.屏幕、窗体D.图像框
5、、图片框9.若要使标签控件显示时不覆盖其背景内容，应设置标签的( )属性。（分数：2.00）A.BackColorB.BorderStyleC.ForeColorD.BackStyle10.下列叙述中错误的是( )。（分数：2.00）A.启动 Visual Basic 进入编程环境后，工具箱中只有内部控件B.启动 Visual Basic 进入编程环境后，窗口中会自动建立名为 Forml 的窗体C.启动 Visual Basic 进入编程环境后，属性窗口一定同时打开D.启动 Visual Basic 进入编程环境后，只要存盘就会生成一个工程文件11.要使文本框只具有垂直滚动条，则就( )。（分
6、数：2.00）A.将其 Multiline 设置为 True，同时将 Scrollbars 属性设置为 0B.将其 Multiline 设置为 True，同时将 Scrollbars 属性设置为 1C.将其 Multiline 设置为 True，同时将 Scrollbars 属性设置为 2D.将其 Multiline 设置为 True，同时将 Scrollbars 属性设置为 312.已知 x 代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )。（分数：2.00）A.If x=60 ThenPrint“及格“Else If x=70 ThenPrint“中“Else If
7、x=80 ThenPrint“良“Else If x=90 ThenPrint“优“ElsePrint“不及格“End IfB.If x90 ThenPrint“良“Else If x80 ThenPrint“中“Else If x70 ThenPrint“及格“Else If x60 ThenPrint“不及格“ElsePrint“优“End IfC.If x=90 thenPrint“优“Else If x=80 ThenPrint“良“Else If x=70 ThenPrint“中“Else If x=60 ThenPrint“及格“ElsePrint“不及格“End IfEnd Se
8、lectD.Select Case xCase x=90Print“优“Case x=80Print“良“Case x=70Print“中“Case x=60Print“及格“Case ElsePrint“不及格“13.设 a=“a“，b=“b“，c=“c“，d=“d“，执行语句 x=IIf(ab) Or (cd)，“A“，“B“)后，x 的值为( )。（分数：2.00）A.“a“B.“b“C.“B“D.“A“14.以下叙述中，错误的是( )。（分数：2.00）A.一个 Visual Basic 应用程序可以含有多个标准模块文件B.一个 Visual Basic 工程可以含有多个窗体文件C.标
9、准模块文件可以属于某个指定的窗体文件D.标准模块文件的扩展名是.bas15.要使标签能够显示所需要的文本，则在程序中应设置( )属性的值。（分数：2.00）A.CaptionB.TextC.NameD.AutoSize16.下列程序段的执行结果为( )。a=“ABBACDDCBA“For I=6 To 2 Step-2x=Mid(a,I,I)y=Left(a,I)z=Right(a，I)z=x&y&zNext IPrint z（分数：2.00）A.ABCB.AABAABC.BBABBAD.ABBABA17.下列叙述中正确的是( )。（分数：2.00）A.线性链表是线性表的链式存储结构B.栈与队
10、列是非线性结构C.双向链表是非线性结构D.只有根结点的二叉树是线性结构18.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是( )。（分数：2.00）A.，B.；C.、D.：19.设 a=2，b=3，c=4，下列表达式的值是( )。Not a=c Or 4*c=b2 And ba+c（分数：2.00）A.-1B.1C.TrueD.False20.执行下列程序后，变量 a 的值为( )。Dim i As IntegerDim a As Integera=0For i=1 To 100 Step 2a=a+1Next i（分数：2.00）A.1B.10C.50D.10021.多分支选择结
11、构的 Case 语句中“变量值列表”不能是( )。（分数：2.00）A.常量值的列表，如 Case1,3,5B.变量名的列表，如 Case x,y,zC.To 表达式，如 Case 10 To 20D.Is 关系表达式，如 Case Is2022.选择循环结构的作用是( )。（分数：2.00）A.提高程序运行速度B.控制程序的流程C.便于程序的阅读D.方便程序的调试23.执行以下程序段a$=“abbacddcba“For i=6 To 2 Step-2X=Mid(a,i,i)Y=Left(a,i)Z=Right(a,i)z=UCase(X&Y&z)Next iPrint z输出结果为( )（分
12、数：2.00）A.ABCB.BBABBAC.ABBABAD.AABAAB24.要使某控件在运行时不可显示，应对属性( )进行设置。（分数：2.00）A.EnabledB.VisibleC.BackColorD.Caption25.若要在图片框中绘制一个椭圆，使用的方法是( )。（分数：2.00）A.CircleB.LineC.PointD.Pset26.定义过程语句中的参数表列可以是( )。（分数：2.00）A.常量或变量名B.表达式或变量名C.数组元素或变量名D.变量名或数组名27.要使菜单项 MenuOne 在程序运行时失效，使用的语句是( )。（分数：2.00）A.MenuOne. Vi
13、sible=TrueB.MenuOne. Visible=FalseC.MenuOne. Enabled=TrueD.MenuOne. Enabled=False28.用标准工具栏中的工具按钮不能执行的操作是( )。（分数：2.00）A.添加工程B.打印源程序C.运行程序D.打开工程29.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nForj=2 To Sqr(i)If i Mod j=0 Then Exit ForNe
14、xt jIf jSqr(i) Then Print iNext iEnd Sub该事件过程的功能是( )。（分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数D.输出 n 以内能被 j 整除的数30.单击滚动条的滚动箭头时，产生的事件是( )。（分数：2.00）A.ClickB.ScrollC.ChangeD.Move31.表达式 Int(-17.8)+Sgn(17.8)的值是( )。（分数：2.00）A.18B.-17C.-18D.-1632.在窗体上建立通用对话框需要添加的控件是( )。（分数：2.00）A.Data 控件B.Form 控件C.Comm
15、onDialog 控件D.VBComboBox 控件33.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下：Private Sub Command1_Click()Dim a As Integera=10Call g(Form2,a)End SubPrivate Sub g(f As Form，x As Integer)y=IIf(x10,100,-100)f.Showf.Caption=yEnd Sub运行以上的程序，正确的结果是( )。（分数：2.00）A.Form1 的 Ca
16、ption 属性值为 100B.Form2 的 Caption 属性值为-100C.Form1 的 Caption 属性值为-100D.Form2 的 Caption 属性值为 10034.表达式 X+1X 是( )。（分数：2.00）A.算术表达式B.非法表达式C.字符串表达式D.关系表达式35.以下说法不正确的是( )。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组中的所有元素进行初始化二、填空题(总题数：13，分数：30.00)36.数据管理技
17、术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 1。（分数：2.00）填空项 1:_37.在 Select case 结构中，使用“To 表达式”来指定一个范围时，必须把 1 的值写在前面。（分数：2.00）填空项 1:_38.一个控件在窗体上的位置由 1 和 Top 属性决定。（分数：2.00）填空项 1:_39.在 VB6.0 中，要显示程序代码，必须在 1 窗口。（分数：2.00）填空项 1:_40.程序测试分为静态分析和动态测试。其中 1 是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。（分数：2.00）填空项 1:_
18、41.用窗体的 Caption 属性可以设置窗体的 1。（分数：2.00）填空项 1:_42.若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为 1。（分数：2.00）填空项 1:_43.设窗体中已经加入了文件列表框(File1)、目录列表框(Dir1)、驱动器列表框(Drive1)，完成下列程序使这三个控件可以同步变化。Private Sub Dir1_Change()_End SubPrivate Sub File1_Click()MsgBox File 1.FileNameEnd Sub（分数：2.00）填空项 1:_打开“部件”对话框的另一种方法是单击主菜单中的 (9) 菜
19、单项，然后在弹出的下拉菜单中选择 (10) 子菜单。（分数：4.00）填空项 1:_填空项 1:_44.要将窗体定义成一个对话框，且具有以下属性：包含控制菜单框和标题栏，不包含最大化和最小化按钮，运行时不能改变尺寸。可以将窗体的 BorderStyle 属性设置为 1。（分数：2.00）填空项 1:_45.过程(Sub)和函数(Function)二者中， 1 可以直接返回值。（分数：2.00）填空项 1:_在执行 KeyPress 事件过程时，KeyAscii 是所按键的 (13) 值。对于有上档字符和下档字符的键，当执行KeyDown 事件过程时，KeyCode 是 (14) 字符的 ASC
20、II 值。（分数：4.00）填空项 1:_填空项 1:_46.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请填空。Private Sub Form_Click()Dim i As IntegerOpen“Num.txt“For Output As #1For i=1 To 8_Next iClose #1End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-225 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.单击命令按钮时，下列程序段的执行结果为( )。Private Sub Co
21、mmand1_Crick()Print Myfunc(24,18)End SubPublic Function MyFunc(m As Integer,n As Integer)As IntegerDo WhilemnDo While mn:m=m-n:LoopDo While mn:n=n-m:LoopLoopMyFunc=mEnd Function（分数：2.00）A.2B.4C.6 D.8解析：2.用 Print 方法在 Form1 窗体中显示出 4 个星号的正确代码为( )。（分数：2.00）A.Debug.Print“*“B.Print*C.Form1_Print“*“D.Form1
22、.Print“*“ 解析：3.窗体上有一个按钮和一个滚动条，则下列程序的功能是( )。Sub Command1_Click()HScroll1.LargeChange=5End Sub（分数：2.00）A.将滚动条的最大值设为 5B.将滚动条最大改变值改变 5 C.将滚动条的最小值设为 5D.将滚动条最小改变值改为 5解析：4.如果将布尔常量值 True 赋值给一个整型变量，则整型变量的值为( )。（分数：2.00）A.0B.-1 C.TrueD.False解析：5.在窗体上画一个名称为 text1 的文本框和一个名称为 label1 的标签，要求如下程序运行时，在文本框中输入的内容立即在标签
23、中显示，在下划线上填入的内容是( )。Private Sub Text1_Label 1.Caption=Text1.TextEnd Sub（分数：2.00）A.FocusB.CrickC.Chang D.LostFocus解析：6.下列事件过程运行后输出结果是( )。Private Sub Command1_Click()Print Format$(123.456,“#.#%“)End Sub（分数：2.00）A.123.46%B.123.45%C.123.456%D.12345.6% 解析：7.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程：Option Base
24、0Private Sub Command1_Click()Dim city As Variantcity=Array(“北京“，“上海“，“天津“，“重庆“)Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。（分数：2.00）A.空白B.错误提示C.北京D.上海 解析：8.对象.cls 方法对( )控件有效。（分数：2.00）A.窗体、图像框B.窗体、图片框 C.屏幕、窗体D.图像框、图片框解析：9.若要使标签控件显示时不覆盖其背景内容，应设置标签的( )属性。（分数：2.00）A.BackColorB.BorderStyleC.ForeCol
25、orD.BackStyle 解析：10.下列叙述中错误的是( )。（分数：2.00）A.启动 Visual Basic 进入编程环境后，工具箱中只有内部控件 B.启动 Visual Basic 进入编程环境后，窗口中会自动建立名为 Forml 的窗体C.启动 Visual Basic 进入编程环境后，属性窗口一定同时打开D.启动 Visual Basic 进入编程环境后，只要存盘就会生成一个工程文件解析：11.要使文本框只具有垂直滚动条，则就( )。（分数：2.00）A.将其 Multiline 设置为 True，同时将 Scrollbars 属性设置为 0B.将其 Multiline 设置为
26、 True，同时将 Scrollbars 属性设置为 1C.将其 Multiline 设置为 True，同时将 Scrollbars 属性设置为 2 D.将其 Multiline 设置为 True，同时将 Scrollbars 属性设置为 3解析：12.已知 x 代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )。（分数：2.00）A.If x=60 ThenPrint“及格“Else If x=70 ThenPrint“中“Else If x=80 ThenPrint“良“Else If x=90 ThenPrint“优“ElsePrint“不及格“End IfB.If
27、x90 ThenPrint“良“Else If x80 ThenPrint“中“Else If x70 ThenPrint“及格“Else If x60 ThenPrint“不及格“ElsePrint“优“End IfC.If x=90 thenPrint“优“Else If x=80 ThenPrint“良“Else If x=70 ThenPrint“中“Else If x=60 ThenPrint“及格“ElsePrint“不及格“End IfEnd Select D.Select Case xCase x=90Print“优“Case x=80Print“良“Case x=70Prin
28、t“中“Case x=60Print“及格“Case ElsePrint“不及格“解析：13.设 a=“a“，b=“b“，c=“c“，d=“d“，执行语句 x=IIf(ab) Or (cd)，“A“，“B“)后，x 的值为( )。（分数：2.00）A.“a“B.“b“C.“B“D.“A“ 解析：14.以下叙述中，错误的是( )。（分数：2.00）A.一个 Visual Basic 应用程序可以含有多个标准模块文件B.一个 Visual Basic 工程可以含有多个窗体文件C.标准模块文件可以属于某个指定的窗体文件 D.标准模块文件的扩展名是.bas解析：15.要使标签能够显示所需要的文本，则在
29、程序中应设置( )属性的值。（分数：2.00）A.Caption B.TextC.NameD.AutoSize解析：16.下列程序段的执行结果为( )。a=“ABBACDDCBA“For I=6 To 2 Step-2x=Mid(a,I,I)y=Left(a,I)z=Right(a，I)z=x&y&zNext IPrint z（分数：2.00）A.ABCB.AABAABC.BBABBA D.ABBABA解析：17.下列叙述中正确的是( )。（分数：2.00）A.线性链表是线性表的链式存储结构 B.栈与队列是非线性结构C.双向链表是非线性结构D.只有根结点的二叉树是线性结构解析：18.在一行内写
30、多条语句时，语句之间要用某个符号分隔。这个符号是( )。（分数：2.00）A.，B.；C.、D.： 解析：19.设 a=2，b=3，c=4，下列表达式的值是( )。Not a=c Or 4*c=b2 And ba+c（分数：2.00）A.-1B.1C.TrueD.False 解析：20.执行下列程序后，变量 a 的值为( )。Dim i As IntegerDim a As Integera=0For i=1 To 100 Step 2a=a+1Next i（分数：2.00）A.1B.10C.50 D.100解析：21.多分支选择结构的 Case 语句中“变量值列表”不能是( )。（分数：2.
31、00）A.常量值的列表，如 Case1,3,5B.变量名的列表，如 Case x,y,z C.To 表达式，如 Case 10 To 20D.Is 关系表达式，如 Case Is20解析：22.选择循环结构的作用是( )。（分数：2.00）A.提高程序运行速度B.控制程序的流程 C.便于程序的阅读D.方便程序的调试解析：23.执行以下程序段a$=“abbacddcba“For i=6 To 2 Step-2X=Mid(a,i,i)Y=Left(a,i)Z=Right(a,i)z=UCase(X&Y&z)Next iPrint z输出结果为( )（分数：2.00）A.ABCB.BBABBA C.
32、ABBABAD.AABAAB解析：24.要使某控件在运行时不可显示，应对属性( )进行设置。（分数：2.00）A.EnabledB.Visible C.BackColorD.Caption解析：25.若要在图片框中绘制一个椭圆，使用的方法是( )。（分数：2.00）A.Circle B.LineC.PointD.Pset解析：26.定义过程语句中的参数表列可以是( )。（分数：2.00）A.常量或变量名B.表达式或变量名C.数组元素或变量名D.变量名或数组名 解析：27.要使菜单项 MenuOne 在程序运行时失效，使用的语句是( )。（分数：2.00）A.MenuOne. Visible=T
33、rueB.MenuOne. Visible=FalseC.MenuOne. Enabled=TrueD.MenuOne. Enabled=False 解析：28.用标准工具栏中的工具按钮不能执行的操作是( )。（分数：2.00）A.添加工程B.打印源程序 C.运行程序D.打开工程解析：29.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nForj=2 To Sqr(i)If i Mod j=0 Then Exit ForN
34、ext jIf jSqr(i) Then Print iNext iEnd Sub该事件过程的功能是( )。（分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数 D.输出 n 以内能被 j 整除的数解析：30.单击滚动条的滚动箭头时，产生的事件是( )。（分数：2.00）A.ClickB.ScrollC.Change D.Move解析：31.表达式 Int(-17.8)+Sgn(17.8)的值是( )。（分数：2.00）A.18B.-17 C.-18D.-16解析：32.在窗体上建立通用对话框需要添加的控件是( )。（分数：2.00）A.Data 控件B.
35、Form 控件C.CommonDialog 控件 D.VBComboBox 控件解析：33.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下：Private Sub Command1_Click()Dim a As Integera=10Call g(Form2,a)End SubPrivate Sub g(f As Form，x As Integer)y=IIf(x10,100,-100)f.Showf.Caption=yEnd Sub运行以上的程序，正确的结果是( )。（分数：
36、2.00）A.Form1 的 Caption 属性值为 100B.Form2 的 Caption 属性值为-100 C.Form1 的 Caption 属性值为-100D.Form2 的 Caption 属性值为 100解析：34.表达式 X+1X 是( )。（分数：2.00）A.算术表达式B.非法表达式C.字符串表达式D.关系表达式 解析：35.以下说法不正确的是( )。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型 C.使用 ReDim 语句可以改变数组每一维的大小D.使用 ReDim 语句可以对数组中的所有元素进行初始化解析：二
37、、填空题(总题数：13，分数：30.00)36.数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 1。（分数：2.00）填空项 1:_ （正确答案：数据库系统 或 数据库系统阶段 或 数据库 数 据库管理技术阶段）解析：37.在 Select case 结构中，使用“To 表达式”来指定一个范围时，必须把 1 的值写在前面。（分数：2.00）填空项 1:_ （正确答案：较小）解析：38.一个控件在窗体上的位置由 1 和 Top 属性决定。（分数：2.00）填空项 1:_ （正确答案：Left）解析：39.在 VB6.0 中，要显示程序代码，必须在 1
38、窗口。（分数：2.00）填空项 1:_ （正确答案：代码）解析：40.程序测试分为静态分析和动态测试。其中 1 是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。（分数：2.00）填空项 1:_ （正确答案：静态分析）解析：41.用窗体的 Caption 属性可以设置窗体的 1。（分数：2.00）填空项 1:_ （正确答案：标题）解析：42.若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为 1。（分数：2.00）填空项 1:_ （正确答案：-）解析：43.设窗体中已经加入了文件列表框(File1)、目录列表框(Dir1)、驱动器列表框(Drive1
39、)，完成下列程序使这三个控件可以同步变化。Private Sub Dir1_Change()_End SubPrivate Sub File1_Click()MsgBox File 1.FileNameEnd Sub（分数：2.00）填空项 1:_ （正确答案：Did.Path=Drive1.Drive,File1.Path=Dir1.path）解析：打开“部件”对话框的另一种方法是单击主菜单中的 (9) 菜单项，然后在弹出的下拉菜单中选择 (10) 子菜单。（分数：4.00）填空项 1:_ （正确答案：工程）解析：填空项 1:_ （正确答案：部件）解析：44.要将窗体定义成一个对话框，且具有
40、以下属性：包含控制菜单框和标题栏，不包含最大化和最小化按钮，运行时不能改变尺寸。可以将窗体的 BorderStyle 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：1-Fixed Single）解析：45.过程(Sub)和函数(Function)二者中， 1 可以直接返回值。（分数：2.00）填空项 1:_ （正确答案：函数）解析：在执行 KeyPress 事件过程时，KeyAscii 是所按键的 (13) 值。对于有上档字符和下档字符的键，当执行KeyDown 事件过程时，KeyCode 是 (14) 字符的 ASCII 值。（分数：4.00）填空项 1:_ （正确答案：键面字符的 ASCII 码）解析：填空项 1:_ （正确答案：下档）解析：46.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请填空。Private Sub Form_Click()Dim i As IntegerOpen“Num.txt“For Output As #1For i=1 To 8_Next iClose #1End Sub（分数：2.00）填空项 1:_ （正确答案：Print #1,i）解析：
