银符考试题库-在线练习-二级VISUAL BASIC模拟475

二级VISUAL BASIC模拟475

一、选择题

1. 下列数据结构中，属于非线性结构的是______。

A.循环队列
B.带链队列
C.二叉树
D.带链栈

A B C D

[解析] 树是简单的非线性结构，所以二叉树作为树的一种也是一种非线性结构。

2. 下列数据结构中，能够按照“先进后出”原则存取数据的是______。

A.循环队列
B.栈
C.队列
D.二叉树

A B C D

[解析] 栈是按先进后出的原则组织数据的。队列是先进先出的原则组织数据。

3. 对于循环队列，下列叙述中正确的是______。

A.队头指针是固定不变的
B.队头指针一定大于队尾指针
C.队头指针一定小于队尾指针
D.队头指针可以大于队尾指针，也可以小于队尾指针

A B C D

[解析] 循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。因为是循环利用的队列结构所以对头指针有时可能大于队尾指针有时也可能小于队尾指针。

4. 算法的空间复杂度是指______。

A.算法在执行过程中所需要的计算机存储空间
B.算法所处理的数据量
C.算法程序中的语句或指令条数
D.算法在执行过程中所需要的临时工作单元数

A B C D

[解析] 算法的空间复杂度是指算法在执行过程中所需要的内存空间。所以选择A。

5. 软件设计中划分模块的一个准则是______。

A.低内聚低耦合
B.高内聚低耦合
C.低内聚高耦合
D.高内聚高耦合

A B C D

[解析] 一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。

6. 下列选项中不属于结构化程序设计原则的是______。

A.可封装
B.自顶向下
C.模块化
D.逐步求精

A B C D

[解析] 结构化程序设计的思想包括：自顶向下、逐步求精、模块化、限制使用goto语句，所以选择A。

7. 软件详细设计生产的图如下：
该图是______

A.N-S图
B.PAD图
C.程序流程图
D.E-R图

A B C D

[解析] N-S图提出了用方框图来代替传统的程序流程图，所以A不对。PAD图是问题分析图，它是继承程序流程图和方框图之后提出的又一种主要用于描述软件详细设计的图形表示工具，所以B不对。E-R图是数据库中的用于表示E-R模型的图示工具，所以D不对。根据图中所示表示方法是进行软件详细设计时使用的程序流程图。

8. 数据库管理系统是______。

A.操作系统的一部分
B.在操作系统支持下的系统软件
C.一种编译系统
D.一种操作系统

A B C D

[解析] 数据库管理系统是数据库的机构，它是一种系统软件，负责数据库中数据组织、数据操纵、数据维护、控制及保护和数据服务等。是一种在操作系统之上的系统软件。

9. 在E-R图中，用来表示实体联系的图形是______。

A.椭圆形
B.矩形
C.菱形
D.三角形

A B C D

[解析] 在E-R图中实体集用矩形，属性用椭圆，联系用菱形。

10. 有三个关系R、S和T如下：
则关系T是由关系R和S通过某种操作得到，该操作为______。

A.选择
B.投影
C.交
D.并

A B C D

[解析] 在关系T中包含了关系R与S中的所有元组，所以进行的是并的运算。

11. 在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是______。
A．

B．

C．

D．

A B C D

[解析]

无法重复，

运行，

添加标准EXE工程，

结束运行。D选项正确。

12. 设x是整型变量，与函数IIf(x＞0，-x，x)有相同结果的代数式是______。

A.|x|
B.-|x|
C.X
D.-x

A B C D

[解析] IIF函数是条件函数，本题的含义是如果x＞0条件成立，即x为正数，就返回-x，即x的负数，否则返回x(它本身)，两种情况都是返回负数。根据这一点，选项B符合要求。故B选项正确。

13. 设窗体文件中有下面的事件过程：
Private Sub Commandl_Click()
Dim s
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是______。

A.整型，整型
B.变体型，变体型
C.整型，变体型
D.变体型，整型

A B C D

[解析] 变量s定义时没有指明数据类型，默认为Variant变体型。变量a是用整型的类型符号%声明，并同时赋值100，所以变量a的数据类型为整型。故C选项正确。

14. 下面不能在信息框中输出“VB”的是______，

A.MsgBox"VB"
B.x=MsgBox("VB")
C.MsgBox("VB")
D.CallMsgBox"VB"

A B C D

[解析] Msgbox的功能：显示消息提示框，在对话框中显示提示消息，等待用户单击按钮，单击不同的按钮返回不同的整数。
MsgBox函数格式：变量=MsgBox(＜提示内容＞[，样式][，标题])，注意MsgBox函数带括号，有返回值；
MsgBox语句格式：MsgBox(＜提示内容＞[，样式][，标题])，有无括号都可以，无返回值。
选项D中用Call语句调用MsgBox函数，要符合Call语句的语法规则：Call函数名(实参表)，缺少括号，应该为Call MsgBox(”VB”)，语法才正确。故D选项不能输出“VB”，会出错。

15. 下面关于标准模块的叙述中错误的是______。

A.标准模块中可以声明全局变量
B.标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程
C.标准模块中可以包含一些Public过程
D.一个工程中可以含有多个标准模块

A B C D

[解析] 标准模块中可以包含一个Sub Main过程，可以通过“工程属性”对话框中将Sub Main过程设置启动对象。故B选项错误。

16. 下面正确使用动态数组的是______。

A.Dim arr()As lnteger
…
ReDim arr(3,5)
Dim arr()As lnteger
…
B.ReDim arr(50)As String
Dim arr()
…
C.ReDim arr(50)As String
Dim arr(50)As String
…
D.ReDim arr(20)

A B C D

[解析] 动态数组的使用时，先在窗体层、标准模块或过程中声明一个没有下标的数组f括号不能省略)，不指定维数。然后，在过程中用ReDim语句定义带下标的数组，给出数组的维数。注意：用ReDim定义的数组，只能改变数组元素的个数，不能改变数组的维数和数据类型。
本题选项B、C中ReDim语句改变了数组的数据类型，故错误。选项D中声明数组时有下标，应该没有下标，故也错误。选项A正确。

17. 下面是求最大公约数的函数的首部：
Function gcd(ByVal x As Integer,ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是______。

A.Print gcd(8,12),gcd(12,16),gcd(16,8)
B.Print gcd(8,12,16)
C.Print gcd(8),gcd(12),gcd(16)
D.Print gcd(8,gcd(12,16)

A B C D

[解析] 调用函数过程时的实参与函数过程的形参必须是类型、顺序、个数相同。本题中函数过程的形参有2个，调用时实参也要是2个，故排除选项B和C。
选项A虽然语法没错误，但不符合题意。
选项D是正确的。调用函数过程时可以嵌套调用。

18. 若在窗体模块的声明部分声明了如下自定义类型和数组：
Private Type rec
Code As Integer
Caption As String
End Type
Dim arr(5)As rec
则下面的输出语句中正确的是______。

A.Print arr.Code(2),arr.Caption(2)
B.Print arr.Code,arr.Caption
C.Print arr(2).Code,arr(2).Caption
D.Print Code(2),Caption(2)

A B C D

[解析] 定义一个自定义类型的数组，数组元素表示为：数组名(下标).成员名，故选C。

19. 下面程序运行时，若输入395，则输出结果是______。
Private Sub Commandl_Click()
Dim X%
x=InputBox("请输入一个3位整数")
Print x Mod 10, x\100,(x Mod 100)\10
End Sub

A.3 9 5
B.5 3 9
C.5 9 3
D.3 5 9

A B C D

[解析] 本题中x定义为整型变量，通过输入对话框输入395，按“确定”按钮后，InputBox函数把返回值395赋给变量x。表达式395 Mod 10，结果是5，395\100结果为3，(395 Mod 100)\10的结果为9。故B选项正确。

20. 某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Private Sub Commandl_Click()
Open"out.txt"For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是______。

A.把Print"Text1"改为Print≠}2， Text1
B.把Print"Text1"改为Print Text1
C.把Print"Text1"改为Write"Text1"
D.把所有#2改为#1

A B C D

[解析] 要把文本框中的内容写入文本文件中，首先要用Open语句的For Output模式打开文本文件，并为文件制定一个文件号，然后，用Print语句将文本写入文本文件，最后关闭文件。
本题中Click事件过程中第1、3条语句正确。
第2条语句Print语句的格式是：Print#文件号，要写入的内容，原语句错误。
根据格式按选项A修改正确，故A选项正确。

21. VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母______。

A.这3个事件都会触发
B.只触发KeyPress事件
C.只触发KeyDown、KeyUp事件
D.不触发其中任何一个事件

A B C D

[解析] 当用户按下某键时触发KeyDown和KeyPress事件，放开某键时触发KeyUp事件。故每输入一个字符，这3个事件都会触发。故A选项正确。

22. 设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是______。

A.Form1_MouseDown
B.Win_MouseDown
C.Form_MouseDown
D.MouseDown_Form1

A B C D

[解析] 事件过程名格式是：控件名事伴过程名。Form1是窗体控件的名称，Win是窗体的标题，所以窗体的MouseDown事件过程名是：Form1_MouseDown，故选A。

23. 要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。

A.Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
Print X,Y
End Sub
B.Private Sub P1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
Picture.Print X,Y
End Sub
C.Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle)
P1.Print X,Y
End Sub
D.Private Sub Form_MouseMove(Button As Integer,ShiftAs Integer,X As Single,YAsSingle)
P1.Print X,Y
End Sub

A B C D

[解析] 当鼠标在图片框P1中移动时，就会触发P1的鼠标移动事件，即P1 MouseMove事件，故排除B选项；鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标，说明是在图片框上输出数据，所以用P1的Print语句实现。故C选项正确。

24. 为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为______。

A B C D

[解析] 窗体的BorderStyle属性是用来设置窗体的边框样式的。属性值1为Fixed Single，3为Fixed Dialog，4为Fixed ToolWindow，设置为这3个属性值都不能改变窗口大小。2是Sizable，表示窗体大小可以改变。故选B。

25. 为了对多个控件执行操作，必须选中这些控件。下列不能选中多个控件的操作是______。

A.按住Alt键，不要松开，然后单击每个要选中的控件
B.按住Shift键，不要松开，然后单击每个要选中的控件
C.按住Ctrl键，不要松开，然后单击每个要选中的控件
D.拖动鼠标画出一个虚线矩形，使所选中的控件位于这个矩形内

A B C D

[解析] 按住Alt键只能选中单个控件，不能同时选中多个控件。故选A。

26. 在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为______。

A.Text1.Clear
B.Text1.Visible=False
C.Text1.Hide
D.Text1.Enabled=False

A B C D

[解析] 文本框没有Clear和Hide方法，故A、C选项错误；Enabled属性设置文本框可用不可用，属性值为True时可在文本框中输入数据，为False时文本框为灰色，内容不能修改，故D选项错误；Visible属性用来设置文本框显示或隐藏，当属性值为True时文本框显示，为False时文本框隐藏，故B选项正确。

27. 以下能够触发文本框Change事件的操作是______。

A.文本框失去焦点
B.文本框获得焦点
C.设置文本框的焦点
D.改变文本框的内容

A B C D

[解析] 改变文本框中的内容时就会触发它的Change事件，故选D。

28. 假定在图片框Picture1中装入了一个图片，在程序运行中，为了清除该图片f注意，清除图片，而不是删除图片框)，应采用的正确方法是______。

A.单击图片框，然后按Del键
B.执行语句Picturel.Picture=LoadPicture("")
C.执行语句Picture1.Picture=""
D.执行语句：Picture1.Cls

A B C D

[解析] A选项按Del键不能删除图片；C选项中Pictue属性值不能为空字符串，语法错误；D选项中Cls方法只能清除图片上显示的内容，不能清除图片。要将图片框中的图片清除，用B选项方法可以。故B选项正确。

29. 要想使列表框只允许单选列表项，应设置的属性为______。

A.Style
B.Selected
C.MultiSelect
D.Enabled

A B C D

[解析] 列表框的Style属性是设置列表框的外形；
Selected属性在程序运行中设置或返回列表项的选中状态；
Enabled属性设置列表框可用不可用；
MultSelect用来设置选择列表项的方式。0为默认，只允许单选列表项；1为复选，可同时选中一个或多个列表项，但要一个一个选中；2也为复选，可一个一个选中列表项，也可连续选中。故选C。

30. 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是( 1。

A B C D

[解析] 程序中For循环的结束有两种情况，一种是循环完指定的次数，一种是达到一定的条件后直接退出循环。由于在循环体中循环变量i的值被修改：i=i+3，因此，每次循环开始时i的取值为0，4，8，i为8时执行i=i+3=11，n=n+1=3，这时i的值大于10，退出For循环，因此For循环执行了3次，即n的值为3。所以在文本框中会显示3。

31. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Diml,Num
Randomize
Do
For I=1 To 1000
Num=lnt(Rnd*100)
Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65,68,92
End
End Select
Next1
Loop
End Sub
上述事件过程执行后，下列描述中正确的是______。

A.Do循环执行的次数为1000次
B.在For循环中产生的随机数小于或等于100
C.当所产生的随机数为12时结束所有循环
D.当所产生的随机数为65、68或92时窗体关闭、程序结束

A B C D

[解析] 程序Do循环中嵌套了For循环，Do循环没有设置结束条件，而是在For循环体中的Select语句中设置了退出Do循环和For循环及结束程序的分支，因此Do循环的次数无法确定。随机函数Rnd产生[0，1)之间的一个数，包括0但不包含1，因此Rnd*100的范围是大于等于0小于100。随机数为65、68或92时结束程序关闭窗体，为58时退出Do循环，为12时退出For循环进入下一次Do循环。

32. 在窗体上画一个名为Commandl的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Commandl_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Nexti
Print s
End Sub
运行上面的程序，其输出结果是______。

A.1234
B.12
C.34
D.4321

A B C D

33. 设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
tStr=""
strL=Len(xStr)
i=1
Do While i＜=strL/2
tStr=tStr&Mid(xStr,i,1)& Mid(xStr,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：
Private Sub Commandl_Click()
Dim Sl As String
SI="abcdef'
Print UCase(Fun(S1)
End Sub
程序运行后，单击命令按钮，输出结果是______。

A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC

A B C D

[解析] 通用过程Fun的主要功能在于
tStr=tStr&Mid(xStr,i,1)& Mid(xStr,strL-i+1,1)
这一句。其中Mid(xStr,i,1)的意思是从字符串的左边开始依次取一个字符，Mid(xStr,strL-i+1,1)的意思是从串的右边开始依次取一个字符。整个这条一语句的用意就是从一个字符串两端依次各取一对字符连成一个字符串。因此当Fun过程的参数为“abcdef”时，返回值为“afbecd”，Ucase("afbecd")结果为“AFBECD”，这就是输出结果。

34. 某人为计算n!(0＜n＜=12)编写了下面的函数过程：
Private Function fun(n As Integer)As Long
Dimp As Long
p=1
For k=n-1 To 2 Step-1
p=p*k
Nextk
fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是______。

A.把p=1改为p-n
B.把For k=n-1 To 2 Step-1改为For k-1 To n-1
C.把For k=n-1 To 2 Step-1改为For k-1 Ton
D.把For k=n-1 To 2 Step-1改为For k=2 To n

A B C D

[解析] 原程序的错误在于没有把n的值乘进去。而B选项中把For k=n-1 To 2 Step-1改为For k=1 To n-1，依然没有把n乘进去。

35. 假定有以下函数过程：
Function Fun(S As String)As String
Dim sl As String
Fori=1 To Len(S)
sl=LCase(Mid(S,i,1))+s1
Nexti
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim Str1 As String,Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。

A.ABCDEFG
B.abcdefg
C.GFEDCBA
D.gfedcba

A B C D

[解析] 程序中过程Fun的For循环的功能是从参数字符串中依次取出一个字符经Lcase函数转为小写字母后存入另一个字符串变量的首部，即将输入的字符串转为小写并倒序排列。函数Len用于返回字符串的长度，过程中字符串的长度做为For循环的终值。Mid是字符串中部截取函数，用来从指定位置开始截取指定个数的字符。过程中使用Mid(S,i,1)，通过循环依次取出字符串的字符，然后使本次取出的字符连接到之前取出的字符前面，实现了字符串倒序排列。程序中输入字符串为“abcdefg”，倒序并转为小写后为“gfedcba”。

36. 为计算aⁿ的值，某人编写了函数power如下：
Private Function power(a As Integer,n As Integer)As Long
Dim S As Long
p=a
Fork=1 Ton
p=p*a
Nextk
power=p
End Function
在调试时发现是错误的，例如Print power(5,4)的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是______。

A.把For k=1 Ton改为For k=2 Ton
B.把p=p*a改为p=p^n
C.把For k=1 Ton改为For k=1 To n-1
D.把p=a改为p=1

A B C D

[解析] 程序中计算aⁿ的算法有误，由于已经将a的值赋给了p，在后边的For循环中再乘n次a显然就多乘了一次a，因此，要改正此程序或者将p=a改为p=1，或者将for k=1 ton改成fork=1 to n-1或for k=2 to n。而B选项将p=p*a改为p=p^n将会导致p=p^n执行n次，得不到正确结果。

37. 某人编写了下面的程序：
Private Sub Commandl_Click()
Dim a As Integer,b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
pro a
pro b
Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
While(n＞0)
Print n Mod 10;
n=n\10
Wend
Print
End Sub
此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是______。

A.把过程pro的形式参数n As Integer改为ByVal n As Integer
B.把Call pro(a+b)改为pro a+b
C.把n=n\10改为n=n/10
D.在pro b语句之后增加语句c%=a+b，再把Call pro(a+b)改为pro c

A B C D

[解析] 在过程定义中过程的形式参数定义时如果没有ByVal指明参数的传递方式，那么默认为地址传递，这样过程中对形参的改变将影响到实参的值。本程序中过程定义语句PrivateSub pro(n As Integer)说明形参n为按地址传递的，而在过程内语句n=n\10改变了形参的值，因此，a、b的值就不再是最初输入的值了，表达式a+b就不是期望的两个输入数的和。因此得不到正确结果。
只要把Private Sub pro(n As Integer)改为Private Sub pro(ByVal n As Integer)，程序即可得到正确结果，因此A选项正确。

38. 在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
c=1234
c1=Trim(Str(c)
For i=1 To 4
Print______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在横线处应填入的内容为______。

A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)

A B C D

[解析] 程序中使用Str(c)将数值1234转换成为一个字符串“1234”，又使用Trim函数去除了字符串首尾可能存在的空格，保证了字符串中只有1、2、3、4这4个字符。在For循环中从左边递次输出这些字符就需要使用Left()函数，Left是左部截取函数，可以截取字符串左边指定个数的字符串，以Left(c1,i)的形式即可每次循环取出期望的字符串。因此答案为B。

39. 假定有以下程序段：
For i=1 To 3
Forj=5 To 1 Step-1
Print i*j
Nextj
Next i
则语句Printi*j的执行次数是______。

A.15
B.16
C.17
D.18

A B C D

40. 在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Commandl)，然后编写如下事件过程：
Private Sub Commandl_Click()
x=0
Do While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。

A.1和0
B.2和72
C.3和50
D.4和168

A B C D

一、选择题

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

深色：已答题浅色：未答题