1、计算机二级考试 VISUAL+BASIC模拟题四 2014年及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(每小题 1分，共 40小题，共 40分(总题数：40，分数：40.00)1.下列叙述中中正确的是( )。（分数：1.00）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.上述三种说法都不对2.下列叙述中正确的是( )。（分数：1.00）A.在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B.在栈中，栈顶指针不变，栈中元素随栈底
2、指针的变化而动态变化C.在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D.上述三种说法都不对3.软件测试的目的是( )。（分数：1.00）A.评估软件可靠性B.发现并改正程序中的错误C.改正程序中的错误D.发现程序中的错误4.下面描述中，不属于软件危机表现的是( )。（分数：1.00）A.软件过程不规范B.软件开发生产率低C.软件质量难以控制D.软件成本不断提高5.软件生命周期是指( )。（分数：1.00）A.软件产品从提出、实现、使用维护到停止使用退役的过程B.软件从需求分析、设计、实现到测试完成的过程C.软件的开发过程D.软件的运行维护过程6.面向对象方法中，继承是指( )。（分
3、数：1.00）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制7.层次型、网状型和关系型数据库划分原则是( )。（分数：1.00）A.记录长度B.文件的大小C.联系的复杂程度D.数据之间的联系方式8.一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是( )。（分数：1.00）A.一对一B.一对多C.多对多D.多对一9.数据库设计中反映用户对数据要求的模式是( )。（分数：1.00）A.内模式B.概念模式C.外模式D.设计模式10.有三个关系 R、S 和 T如下： （分数：1.00）
4、A.自然连接B.交C.投影D.并11.在 Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是( )。（分数：1.00）A.B.C.D.12.在 Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是( )。（分数：1.00）A.工程资源管理器窗口B.属性窗口C.工具箱窗口D.代码窗口13.下列叙述中错误的是( )。（分数：1.00）A.列表框和组合框都有 List属性B.列表框有 Selected属性，而组合框没有C.列表框和组合框都有 Style属性D.组合框有 Text属性，而列表框没有14.设窗体上有一个命令按钮数组，
5、能够区分数组中各个按钮的属性是( )。（分数：1.00）A.NameB.IndexC.CaptionD.Left15.滚动条可以响应的事件是( )。（分数：1.00）A.LoadB.ScrollC.ClickD.MouseDown16.设 a=5，b=6，c=7，d=8，执行语句 x=IIf(ab)And(cd)，10，20)后，X 的值是( )。（分数：1.00）A.10B.20C.30D.20017.语句 Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是( )。（分数：1.00）A.-36B.1C.-1D.-7218.在窗体上画一个图片框，再在图片框中画一个命令
6、按钮，位置如图所示，则命令按钮的 Top属性值是( )。（分数：1.00）A.200B.300C.500D.70019.在窗体上画一个名称为 Command1的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1 Click() a$=”software and hardware” b$=Right(a$，8) c$=Mid(a$，L，8) MsgBox a$，bs，CS，1 End sub 则在弹出的信息框标题栏中显示的标题是( )。（分数：1.00）A.software and bardwareB.hardwareC.softwareD.120.在窗体上画一
7、个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。（分数：1.00）A.Private Sub Text1 Change()Label1Caption=Text1TextEnd SubB.Private Sub Label1 Change()Label1Caption=Text1TextEnd SubC.Private Sub Text1 Click()Label1Capnon=Text1textEnd SubD.Private Sub Label1 Click()Label1
8、Caption=Text1TextEnd sot21.以下说法中错误的是( )。（分数：1.00）A.如果把一个命令按钮的 Default属性设置为 True，则按回车健与单击该命令按钮的作用相同B.可以用多个命令按钮组成命令按钮数组C.命令按钮只能识别单击(Click)事件D.通过设置命令按钮的 Enabled属性，可以使该命令按钮有效或禁用22.以下关于局部变量的叙述中错误的是( )。（分数：1.00）A.在过程中用 Dim语句或 Static语句声明的变量是局部变量B.局部变量的作用域是它所在的过程C.在过程中用 Stalic语句声明的变量是静态局部变量D.过程执行完毕，该过程中用 Di
9、m或 Static语句声明的变量即被释放23.以下程序段的输出结果是( )。 x=1 y=4 Do Until y4 x= x * y y=y+1 Loop Print X（分数：1.00）A.1B.4C.8D.2024.如果执行一个语句后弹出如图所示的窗口，则这个语句是( )。 （分数：1.00）A.InputBox(“输人框“，“请输入 VB数据“)B.x=InputBox(“输入框“，“请输入 VB数据“)C.InputBox(“请输入 VB数据“，“输入框“)D.x=InputBox(“清输入 VB数据“，“输入框“)25.有如下事件过程： Private Sub Form Click
10、() Dim n As Integcr x=0 n=InputBox(“请输入一个整数“) For i=1 To i For i=1 To i x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入 5，则在窗体上显示的内容是( )。（分数：1.00）A.13B.14C.15D.1626.请阅读程序： Sub subP(b()As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Commandl Click() Dim a(1 To 4)As Integer a(1)
11、=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是( )。（分数：1.00）A.2468B.5678C.10121416D.出错27.Fibonacci数列的规律是：前 2个数为 1，从第 3个数开始，每个数是它前 2个数之和，即1，1，2，3，5，8，13，21，34，55，89，某人编写了下面的函数，判断大于 1的整数 X是否是Fibonacci数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Inte
12、ger)As Boolean Dim ii As Integer，b As Integer，C As Integer，flag As Boolean flag=False a=1：b=1 Do While x c=a+b a=b b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数 X，函数都返回 False，程序需要修改。下面的修改方案中正确的是( )。（分数：1.00）A.把 a=b与 b=C的位置互换B.把 c=a+b移到 b=C之后C.把 Do While xbD.把 If x=b Then flag=T
13、rue改为 If x=a Then flag True28.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Coinmand1 Click() Dim a$，b$，c$，k a=“ABCD“ b=“123456“ c=“ k=1 Do While k=0 s=s+a i)*j i=i-1 j=j*1c Loop Print S End Sub 运行上面的程序，单击命令按钮，则输出结果是( )。（分数：1.00）A.4321B.123C.234D.123431.下列可以打开随机文件的语句是( )。（分数：1.00）A.Open“file 1da
14、t“For Input As#1B.Open“file1dat“For Append As#1C.Open“file1dat“For Output As#1D.Open“file1dat“For Randow As#1 Len=2032.有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。（分数：1.00）A.Private Sub Vorm Click()PopupMenu cutEnd SubB.Private Sub Command1 Click()PopupMenu editEnd SubC.Private Sub For
15、m Click()PopupMenu editEnd SubD.Private Sub Form Click()PopupMenu cutPopupMenu pasteEnd Sub33.请阅读程序 0ption Base 1 Private Sub Fo,m Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨
16、窗体，则输出结果是( )。（分数：1.00）A.B.C.D.34.下面函数的功能应该是：删除字符串 str中所有与变量 ch相同的字符，并返回删除后的结果。例如：若 str=“ABCDABCD“，ch=“B“，则函数的返回值为：“ACDACD“ Function delchar(str As String，ch As String)As String Dim k As Inlegcr，temp As String，ret As String ret=“ For k=1 To Len(str) temp=Mid(str，k，1) If temp=ch Then ret=rettemp End I
17、f Next k delchar=ret En d Function 但实际上函数有错误，需要修改，下面的修改方案中正确的是( )。（分数：1.00）A.把 ret=rettemp 改为 ret=tempB.把 If temp=ch Then改为 If tempb)And(cd)，10，20)后，X 的值是( )。（分数：1.00）A.10B.20 C.30D.200解析：【解析】函数 IIf(ab)And(Cd)，10，20)有三个参数，第一个参数为布尔型，如果第一个参数为真，就返回第二个参数的值，若为假则返还第二个参数的值，所以选 B。17.语句 Print Sgn(-62)+Abs(-6
18、2)+Int(-62)的输出结果是( )。（分数：1.00）A.-36B.1C.-1 D.-72解析：【解析】sgn(x)是符号函数，此函数的值有三个：当 x0时，sgn(x)=1；当 x=0时，sgn(x)=0；当x18.在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示，则命令按钮的 Top属性值是( )。（分数：1.00）A.200 B.300C.500D.700解析：【解析】top 值是距离包含它的容器顶端的距离，又因为命令按钮在图片框里面，所以选 A。19.在窗体上画一个名称为 Command1的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Comm
19、and1 Click() a$=”software and hardware” b$=Right(a$，8) c$=Mid(a$，L，8) MsgBox a$，bs，CS，1 End sub 则在弹出的信息框标题栏中显示的标题是( )。（分数：1.00）A.software and bardwareB.hardware C.softwareD.1解析：【解析】MsgBox 函数的格式为：MsgBox(msg，type，title，helpfile，context)，该函数有 5个参数，除第二个参数外，其余参数都是可选的。Mid 函数用于提取字符串中的指定位数，函数调用格式为 Mid(strin
20、g，start，length)，其中 start为必要参数，为 Long型，为被取出部分的首字符的位置。如果 start超过 strin9的字符势，Mid 返回空串。Right 函数格式为 Right(string，length)，返回值为 String型，其中包含从字符串右边取出的指定数量的字符。所以选 B。20.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。（分数：1.00）A.Private Sub Text1 Change()Label1Caption=
21、Text1TextEnd Sub B.Private Sub Label1 Change()Label1Caption=Text1TextEnd SubC.Private Sub Text1 Click()Label1Capnon=Text1textEnd SubD.Private Sub Label1 Click()Label1Caption=Text1TextEnd sot解析：【解析】文本框控件的 change事件是当控件的文本区中的文字发生变化时触发。Click 事件是当用户点击该控件时触发的。所以根据题意要求，用户输入文本，则表桥中立即显示，也就是说当用户向文本框输入时执行，所以应使
22、用文本框控件的 change事件，语句 label1Caption=Text1text 的作用是将用户的输入传给标签控件的属性 Caption显示，故选 A。21.以下说法中错误的是( )。（分数：1.00）A.如果把一个命令按钮的 Default属性设置为 True，则按回车健与单击该命令按钮的作用相同B.可以用多个命令按钮组成命令按钮数组C.命令按钮只能识别单击(Click)事件 D.通过设置命令按钮的 Enabled属性，可以使该命令按钮有效或禁用解析：【解析】VB 中命令按钮可执行的事件包括 Click事件、Dragdrop 事件、Drag()ver 事件、gotFocus 事件、ke
23、yDown 事件、keyPress 事件、keyUp 事件、lostFoucus 事件、MouseMove 事件、MouseDown事件、MouseUp 事件等。所以选 C。22.以下关于局部变量的叙述中错误的是( )。（分数：1.00）A.在过程中用 Dim语句或 Static语句声明的变量是局部变量B.局部变量的作用域是它所在的过程C.在过程中用 Stalic语句声明的变量是静态局部变量D.过程执行完毕，该过程中用 Dim或 Static语句声明的变量即被释放 解析：【解析】static 用于定义静态变量，dim 定义的是动态变量。静态变量的生存期是程序的整个运行时间，而动态变量的生存期是
24、所在的过程结束，即过程结束该动态变量即被销毁。而变量的可见性是指变量在程序的哪些部分可供调用，过程中定义的变量在此过程结束后销毁。故本题选 D。23.以下程序段的输出结果是( )。 x=1 y=4 Do Until y4 x= x * y y=y+1 Loop Print X（分数：1.00）A.1B.4 C.8D.20解析：【解析】本题考查的是 do until循环语句。do until 是直到型循环，当条件为假时执行循环体，直到为真结束。本题中首先 y=4，循环条件 y4，所以关系表达式的结果为假，执行循环体中的语句，直到 x=4，y=5。然后再次进入循环判断。因为 y=5，所以循环判断表
25、达式结果为真，不执行循环体，循环结束。Print x 打印 X中的值，故选 B。24.如果执行一个语句后弹出如图所示的窗口，则这个语句是( )。 （分数：1.00）A.InputBox(“输人框“，“请输入 VB数据“)B.x=InputBox(“输入框“，“请输入 VB数据“)C.InputBox(“请输入 VB数据“，“输入框“)D.x=InputBox(“清输入 VB数据“，“输入框“) 解析：【解析】InputBox 函数在一对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 Strin9。InputBox 语法 InputBox(prompt，title，defau
26、lt，xpos，ypos，helpfile，context)，其中 Prompt是必需的，其余可选，参数 Prompt是作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024个字符。Title 可选，显示对话框标题栏中的字符串表达式。所以选 D。25.有如下事件过程： Private Sub Form Click() Dim n As Integcr x=0 n=InputBox(“请输入一个整数“) For i=1 To i For i=1 To i x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入 5，
27、则在窗体上显示的内容是( )。（分数：1.00）A.13B.14C.15 D.16解析：【解析】本题考查嵌套 for循环语句，因为 n=5，所以外层循环执行 5次，内层循环为 1i 次，所以循环体 x=x+1共执行 1+2+3+4+5=15次，故答案为 C。26.请阅读程序： Sub subP(b()As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Commandl Click() Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To
28、4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是( )。（分数：1.00）A.2468 B.5678C.10121416D.出错解析：【解析】本题考查数组为参数在函数间的传递。本题中，当用户点击控件 Command1时，控件的Commandl Click()事件过程被触发，在此过程中首先定义了一个包含 4个元素的数组 a，并赋值。然后以数组 a为参数传递给过程 subP，在过程 subP中执行 for循环，分别给 a中的 4个元素赋值为2、4、6、8。函数执行结束返回过程 Command1_Click()，利用 for循环打印输出 a数组中的值
29、，所以选A。27.Fibonacci数列的规律是：前 2个数为 1，从第 3个数开始，每个数是它前 2个数之和，即1，1，2，3，5，8，13，21，34，55，89，某人编写了下面的函数，判断大于 1的整数 X是否是Fibonacci数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer)As Boolean Dim ii As Integer，b As Integer，C As Integer，flag As Boolean flag=False a=1：b=1 Do While x c=a+b a=b b=c If x=b
30、Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数 X，函数都返回 False，程序需要修改。下面的修改方案中正确的是( )。（分数：1.00）A.把 a=b与 b=C的位置互换B.把 c=a+b移到 b=C之后C.把 Do While xb D.把 If x=b Then flag=True改为 If x=a Then flag True解析：【解析】本题中程序思路是利用 for循环求得斐波那契数列，然后和 x比对，若 x是斐波那契数列中的值，则返回布尔值 Frue，若不是则返回 false。题目源程序中循环条件是 x28.在窗体
31、上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Coinmand1 Click() Dim a$，b$，c$，k a=“ABCD“ b=“123456“ c=“ k=1 Do While k=0 s=s+a i)*j i=i-1 j=j*1c Loop Print S End Sub 运行上面的程序，单击命令按钮，则输出结果是( )。（分数：1.00）A.4321B.123C.234D.1234 解析：【解析】此程序的作用是将数组 a中 a(o)、a(1)、a(2)、a(3)作为千位、百位、十位、个位组成一个新数，i 是数组的下标，作用是依次取 a
32、(3)、a(2)、a(1)、a(O)，s=s+a(i)*J 的作用是将取到的数依次放到个位、百位、十位、千位，这是因为 J四次循环的取值分别为 l、10、100、1000。所以 S四次循环的取值为 4、4+30、34+200、324、324+1000。31.下列可以打开随机文件的语句是( )。（分数：1.00）A.Open“file 1dat“For Input As#1B.Open“file1dat“For Append As#1C.Open“file1dat“For Output As#1D.Open“file1dat“For Randow As#1 Len=20 解析：【解析】本题主爵考
33、查随机文件与顺序文件的特点与区别及文件操作的特点。Visual Basic 中有3种文件访问的类型：顺序文件、随机文件、二进制文件。随机文件又称直接存取文件，简称随机文件或直接文件。随机文件的每个记录都有一个记录号，在写入数据时只要指定记录号，就可以把数据直接存入指定位置。而在读取数据时，只要给出记录号，就可直接读取。在记录文件中，可以同时进行读、写操作，所以能快速地查找和修改每个记录，不必为修改某个记录而像顺序文件那样对整个文件进行读、写操作。其优点是数据存取较为灵活，方便，速度快，容易修改，主要缺点是占空间较大，数据组织复杂。顺序文件：顺序文件将文件中的记录一个接一个地按顺序存放。 二进制
34、访问能提供对疋件的完全控制，因为文件中的字节可以代表任何东西，当要使文件的尺寸尽量小时，应使用二进制访问。 在文件处理过程中，执行完 Open操作后，程序将生成一个文件指针，程序可以调用 LOF函数来获得返回给文件分配的字节数。在随机文件中，每个记录的长度是固定的，记录中的每个字段的长度也是固定的。因为是操作随机文件，所以选 D。32.有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。（分数：1.00）A.Private Sub Vorm Click()PopupMenu cutEnd SubB.Private Sub Comm
35、and1 Click()PopupMenu editEnd SubC.Private Sub Form Click()PopupMenu editEnd Sub D.Private Sub Form Click()PopupMenu cutPopupMenu pasteEnd Sub解析：【解析】PopupMenu 方法用来显示弹出式菜单，其格式为：对象PopupMenu 菜单名，Flags ，X，Y，BoldCommand 根据题意，为了显示菜单，要把 PopupMenu方法放到 Form_Click事件中，菜单名为 edit，所以选 C。33.请阅读程序 0ption Base 1 Pri
36、vate Sub Fo,m Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨窗体，则输出结果是( )。（分数：1.00）A.B.C. D.解析：【解析】本题利用嵌套 for循环给数组 Arr赋值。结果是 Arr(3，3)=7，Arr(3，4)=8，Arr(4，3) =9，Arr(4，4)=10，其他与后面程序
37、无关。然后再次利用嵌套循环输出，输出顺序为 Arr(3，3)，Arr(4，3)，print，Arr(3，4)，Arr(4，4)，所以结果为 C。34.下面函数的功能应该是：删除字符串 str中所有与变量 ch相同的字符，并返回删除后的结果。例如：若 str=“ABCDABCD“，ch=“B“，则函数的返回值为：“ACDACD“ Function delchar(str As String，ch As String)As String Dim k As Inlegcr，temp As String，ret As String ret=“ For k=1 To Len(str) temp=Mid(
38、str，k，1) If temp=ch Then ret=rettemp End If Next k delchar=ret En d Function 但实际上函数有错误，需要修改，下面的修改方案中正确的是( )。（分数：1.00）A.把 ret=rettemp 改为 ret=tempB.把 If temp=ch Then改为 If tempi(1)Then temp=i(k)：i(k)=i(1)：i(1)=temp Next i Next k Text1Text=“ For j=1 To 100 Text1Text=Text1Text i(j)Space(5) Next j End Sub 调试并运行程序。 按题目要求存盘。)解析：
