1、二级 VISUAL+BASIC 笔试-419 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.一个栈的初始状态为空。现将元素 1、2、3、4、5、A、B、C、D、E 依次入栈，然后再依次出栈，则元素出栈的顺序是( )A12345ABCDE BEDCBA54321CABCDEl2345 D54321EDCBA（分数：2.00）A.B.C.D.2.下列叙述中正确的是( )A循环队列有队头和队尾两个指针，因此，循环队列是非线性结构B在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C在循环队列中，只需要队尾指针就能反映队列中元素的动态变
2、化情况D循环队列中元素的个数是由队头指针和队尾指针共同决定的（分数：2.00）A.B.C.D.3.在长度为 n 的有序线性表中进行二分查找，最坏情况下需要比较的次数是( )AO(n) BO(n2)CO(log2 n) DO(n log2 n)（分数：2.00）A.B.C.D.4.下列叙述中正确的是( )A顺序存储结构的存储空间一定是连续的，链式存储结构的存储空间不一定是连续的B顺序存储结构只针对线性结构，链式存储结构只针对非线性结构C顺序存储结构能存储有序表，链式存储结构不能存储有序表D链式存储结构比顺序存储结构节省存储空间（分数：2.00）A.B.C.D.5.数据流图中带有箭头的线段表示的是
3、( )A控制流 B事件驱动C模块调用 D数据流（分数：2.00）A.B.C.D.6.在软件开发中，需求分析阶段可以使用的工具是( )AN-S 图 BDFD 图CPAD 图 D程序流程图（分数：2.00）A.B.C.D.7.在面向对象方法中，不属于“对象”基本特点的是( )A一致性 B分类性C多态性 D标识唯一性（分数：2.00）A.B.C.D.8.一间宿舍可住多个学生，则实体宿舍和学生之间的联系是( )A一对一 B一对多C多对一 D多对多（分数：2.00）A.B.C.D.9.在数据管理技术发展的三个阶段中，数据共享最好的是( )A人工管理阶段 B文件系统阶段C数据库系统阶段 D三个阶段相同（分
4、数：2.00）A.B.C.D.10.有三个关系 R、S 和 T 如下：（分数：2.00）A.B.C.D.11.在设计窗体时双击窗体的任何地方，可以打开的窗口是( )A代码窗口 B属性窗口C工程资源管理器窗口 D工具箱窗口（分数：2.00）A.B.C.D.12.若变量 a 未事先定义而直接使用(例如 a0)，则变量 a 的类型是( )AInteger BStringCBoolean DVariant（分数：2.00）A.B.C.D.13.为把圆周率的近似值 3.14159 存放在变量 pi 中，应该把变量 pi 定义为( )ADim pi As Integer BDim pi(7)As Inte
5、gerCDim pi As Single DDim pi As Long（分数：2.00）A.B.C.D.14.表达式 2*32+4*2/2+32 的值是( )A30 B31C49 D48（分数：2.00）A.B.C.D.15.下列不能输出“Program”的语句是( )APrint Mid(“VBProgram“,3,7) BPrint Right(“VBProgram“,7)CPrint Mid(“VBProgram“,3) DPrint Left(“VBProgram“,7)（分数：2.00）A.B.C.D.16.窗体上有一个名称为 Frame1 的框架，如下图所示，若要把框架上显示的“
6、Frame1”改为汉字“框架”，下列正确的语句是( )（分数：2.00）A.B.C.D.17.下列叙述中错误的是( )A在通用过程中,多个形式参数之间可以用逗号作为分隔符B在 Print 方法中，多个输出项之间可以用逗号作为分隔符C在 Dim 语句中，所定义的多个变量可以用逗号作为分隔符D当一行中有多个语句时，可以用逗号作为分隔符（分数：2.00）A.B.C.D.18.设窗体上有一个列表框控件 List1，含有若干列表项。下列能表示当前被选中的列表项内容的是( )AList1.List BList1.ListIndexCList1.Text DList1.Index（分数：2.00）A.B.C
7、.D.19.设 a4，b5，c6，执行语句 Print ab And bc 后，窗体上显示的是( )ATrue BFalseC出错信息 D0（分数：2.00）A.B.C.D.20.执行下列语句：strInputInputBox(“请输入字符串“，“字符串对话框“，“字符串“)将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strInput 的内容是( )A“请输入字符串“ B“字符串对话框“C“字符串“ D空字符串（分数：2.00）A.B.C.D.21.窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a()As Intege
8、r,m As IntegerPrivate Sub Command1 Click()m=InputBox(“请输入一个正整数“)ReDim a(m)End SubPrivate Sub Command2 C1ick()m=InputBox(“请输入一个正整数“)ReDim a(m)End Sub运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组 a 中元素的个数是( )A5 B6 C10 D11（分数：2.00）A.B.C.D.22.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程：Pr
9、ivate Sub Command1_Click()Counter=0For i=1 To 4For j=6 To 1 Step-2Counter=Counter+1Next jNext iLabel1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是( )A11 B12 C16 D20（分数：2.00）A.B.C.D.23.在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click()Dim M(10)AS IntegerFor k=1 To 10M(k)=12-kNext kx=
10、8Print M(2+M(x)End Sub运行程序，单击命令按钮，在窗体上显示的是( )A6 B5 C7 D8（分数：2.00）A.B.C.D.24.下列关于过程及过程参数的描述中，错误的是( )A调用过程时可以用控件名称作为实际参数B用数组作为过程的参数时，使用的是“传地址”方式C只有函数过程能够将过程中处理的信息传回到调用的程序中D窗体(Form)可以作为过程的参数（分数：2.00）A.B.C.D.25.在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码：Private X As IntegerPrivate
11、Sub Command1_Click()X=5:Y=3Call proc(x,y)Label1.Caption=xLabet2.Caption=yEnd SubPrivate Sub proc(a As Integer，ByVal b As Integer)X=a*aY=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )A25 和 3 B5 和 3 C25 和 6 D5 和 6（分数：2.00）A.B.C.D.26.在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声
12、明：Private Type Personname As String*8major As String*20End TypeDim P AS Person（分数：2.00）A.B.C.D.27.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i10 Then Exit ForNextText1.Text Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示
13、的值是( )A2 B3 C4 D5（分数：2.00）A.B.C.D.28.假定有以下循环结构：Do Until 条件表达式循环体Loop则下列描述正确的是( )A如果“条件表达式”的值是 0，则一次循环体也不执行B如果“条件表达式”的值不为 0，则至少执行一次循环体C不论“条件表达式”的值是否为真，至少要执行一次循环体D如果“条件表达式”的值恒为 0，则无限次执行循环体（分数：2.00）A.B.C.D.29.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim I,NumRandomizeDOFor I=1 To 1000Num=Int(
14、Rnd*100)Print Num；Select Case NumCase 12Exit ForCase 58Exit DOCase 65,68,92EndEnd SelectNext ILoopEnd Sub上述事件过程执行后，下列描述中正确的是( )ADo 循环执行的次数为 1000 次B在 For 循环中产生的随机数小于或等于 100C当所产生的随机数为 12 时结束所有循环D当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束（分数：2.00）A.B.C.D.30.在窗体上面一个名为 Command1 的命令按钮，然后编写如下代码：Option Base 1Private S
15、ub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step-1s=s+a(i)*jj=j*10Next iPrint SEnd Sub运行上面的程序，其输出结果是( )A1234 B12 C34 D4321（分数：2.00）A.B.C.D.31.设有如下通用过程：Public Function Fun(xStr As String)As StringDim t Str As String，strL As IntegertStF=“ “strL=Len(xStr)i=1Do While i=strL/2tStr=Tstr_Next i
16、End Sub程序运行后，单击窗体，结果如图所示，请填空。（分数：2.00）填空项 1:_45.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim ArrArr=Array(43,68,-25,65,-78,12,-79,43,-94,72)pos=0neg=0For k=1 To 10If Arr(k)0 Then_Else_ End IfNext kPrint pos,negEnd Sub以上程序的功能是计算并输出数组 Arr 中 10 个数的正数之和 pos 与负数之和 neg，请
17、填空。（分数：4.00）填空项 1:_46.在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As IntegerSum=0n=InputBox(“Enter a number“)n=Val(n)For i=1 To nsum=_Next iPrint SumEnd SubFunction fun(t As Integer)As LongP=1For i=1 To tp=P*iNext i_ End Function以上程序的功能是，计算 1! +2! +3! +n!，其中 n 从键盘中输入，请填空。（分数：
18、4.00）填空项 1:_47.在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load()Open“d:/temp/dat,txt“For Output As#1Text1.Text=“ “End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)=_ThenClose#1EndElseWrite#1,_Text1.Text=“ “End IfEnd IfEnd Sub以上程序的功能是在 D 盘 temp 文件夹下建立一个
19、名为 dat.txt 的文件，在文本框中输入字符，每次按Enter 键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。（分数：4.00）填空项 1:_二级 VISUAL+BASIC 笔试-419 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.一个栈的初始状态为空。现将元素 1、2、3、4、5、A、B、C、D、E 依次入栈，然后再依次出栈，则元素出栈的顺序是( )A12345ABCDE BEDCBA54321CABCDEl2345 D54321EDCBA（分数：2.
20、00）A.B. C.D.解析：解析 栈是按照“先进后出”或“后进先出”的原则组织数据的。所以出栈顺序是 EDCBA54321。2.下列叙述中正确的是( )A循环队列有队头和队尾两个指针，因此，循环队列是非线性结构B在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D循环队列中元素的个数是由队头指针和队尾指针共同决定的（分数：2.00）A.B.C.D. 解析：解析 循环队列中元素的个数是由队头指针和队尾指针共同决定的，元素的动态变化也是通过队头指针和队尾指针来反映的。3.在长度为 n 的有序线性表中进行二分查找，最坏情况下需
21、要比较的次数是( )AO(n) BO(n2)CO(log2 n) DO(n log2 n)（分数：2.00）A.B.C. D.解析：解析 对于长度为 n 的有序线性表，在最坏情况下，二分法查找只需比较 log2n 次，而顺序查找需要比较 n 次。4.下列叙述中正确的是( )A顺序存储结构的存储空间一定是连续的，链式存储结构的存储空间不一定是连续的B顺序存储结构只针对线性结构，链式存储结构只针对非线性结构C顺序存储结构能存储有序表，链式存储结构不能存储有序表D链式存储结构比顺序存储结构节省存储空间（分数：2.00）A. B.C.D.解析：解析 顺序存储方式主要用于线性的数据结构，它把逻辑上相邻的
22、数据元素存储在物理上相邻的存储单元里，结点之间的关系由存储单元的邻接关系来体现，而链式存储结构的存储空间不一定是连续的。5.数据流图中带有箭头的线段表示的是( )A控制流 B事件驱动C模块调用 D数据流（分数：2.00）A.B.C.D. 解析：解析 数据流图是从数据传递和加工的角度，来刻画数据流从输入到输出的移动变换过程。其中带箭头的线段表示数据流，沿箭头方向表示传递数据的通道，一般在旁边标注数据流名。6.在软件开发中，需求分析阶段可以使用的工具是( )AN-S 图 BDFD 图CPAD 图 D程序流程图（分数：2.00）A.B. C.D.解析：解析 在软件开发中，需求分析阶段常使用的工具有数
23、据流图(DFD)、数据字典(DD)、判断树和判断表。7.在面向对象方法中，不属于“对象”基本特点的是( )A一致性 B分类性C多态性 D标识唯一性（分数：2.00）A. B.C.D.解析：解析 对象具有如下特征：标识唯一性、分类性、多态性、封装性、模块独立性。8.一间宿舍可住多个学生，则实体宿舍和学生之间的联系是( )A一对一 B一对多C多对一 D多对多（分数：2.00）A.B. C.D.解析：解析 两个实体集间的联系可以有下面几种：一对一联系、一对多或多对一联系、多对多联系。由于一个宿舍可以住多个学生，所以它们的联系是一对多联系。9.在数据管理技术发展的三个阶段中，数据共享最好的是( )A人
24、工管理阶段 B文件系统阶段C数据库系统阶段 D三个阶段相同（分数：2.00）A.B.C. D.解析：解析 数据管理技术的发展经历了三个阶段：人工管理阶段、文件系统阶段和数据库系统阶段。人工管理阶段无共享，冗余度大；文件管理阶段共享性差，冗余度大；数据库系统管理阶段共享性大，冗余度小。10.有三个关系 R、S 和 T 如下：（分数：2.00）A.B.C.D. 解析：解析 在实际应用中，最常用的连接是一个叫自然连接的特例。它满足下面的条件：两关系间有公共域；通过公共域的相等值进行连接。通过观察三个关系 R、S、T 的结果可知，关系 T 是由关系 R 和 s进行自然连接得到的。11.在设计窗体时双击
25、窗体的任何地方，可以打开的窗口是( )A代码窗口 B属性窗口C工程资源管理器窗口 D工具箱窗口（分数：2.00）A. B.C.D.解析：解析 可以用以下 4 种方法进入事件过程(即打开“代码窗口”)：(1)双击窗体或窗体上的控件。(2)执行“视图”菜单中的“代码窗口”命令。(3)按【F7】键。(4)单击“工程资源管理器”窗口中的“查看代码”命令。12.若变量 a 未事先定义而直接使用(例如 a0)，则变量 a 的类型是( )AInteger BStringCBoolean DVariant（分数：2.00）A.B.C.D. 解析：解析 任何变量都属于一定的数据类型，包括基本类型和用户定义的数据
26、类型。在 Visual Basic中，可以用下面几种方式来规定一个变量的类型：(1)使用类型说明符来标识。(2)通过定义变量来指明其数据类型。(3)用 Deftype 语句在窗体的标准模块、窗体模块的声明部分，定义一组以该语句中指定范围内的字母和以这些字母开头的变量名的数据类型。(4)未经显示定义或用类型说明符标记的变量，其数据类型被隐式地说明为变体类型(Variant)。13.为把圆周率的近似值 3.14159 存放在变量 pi 中，应该把变量 pi 定义为( )ADim pi As Integer BDim pi(7)As IntegerCDim pi As Single DDim pi
27、As Long（分数：2.00）A.B.C. D.解析：解析 Visual Basic 的数值数据分为整型数和浮点数两类，其中整型数又分为整数(Integer，取值范围为-3276832767)和长整数(Long，取值范围为-21474836482147483647)，浮点数分为单精度浮点数(Single，取值范围为负数：-3.402823E+38-1.401298E-45，正数：1.401298E-453.402823E+38)和双精度浮点数(Double)。定义变量的语句格式为：Declare 变量名 As 数据类型。其中，Declare 可以是Dim、Static、Redim、Publi
28、c 或 Private。14.表达式 2*32+4*2/2+32 的值是( )A30 B31C49 D48（分数：2.00）A.B. C.D.解析：解析 在 VisualBasc 的常见运算符中，幂运算符()优先级最高，其次是取负(-)、乘(*)、浮点除(/)、整除(/)、取模(Mod)、加(+)、减(-)、字符串连接(第 3 次：s=34+(2)+100=234,i=100*10=1000；第 4 次：s=234+a(1)*1000=1234。31.设有如下通用过程：Public Function Fun(xStr As String)As StringDim t Str As String
29、，strL As IntegertStF=“ “strL=Len(xStr)i=1Do While i=strL/2tStr=Tstr_Next iEnd Sub程序运行后，单击窗体，结果如图所示，请填空。（分数：2.00）填空项 1:_ （正确答案：Rightq(a$,i)(或 Rights(a$,i)或 Midq(a$,7-i,i)或Mid$(a$,7-i,i)）解析：解析 从程序运行结果来看，本题 For 循环语句中循环体的功能是，每执行一次循环体，就在窗体上输出一行字符，并且输出的字符内容为从字符串“ABCDFG”右侧起取出的 i(i 为循环变量)个字符。能实现上述功能的表达式可以是：
30、Right(a$,i)或 Midq(a$,7-i,i)。45.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim ArrArr=Array(43,68,-25,65,-78,12,-79,43,-94,72)pos=0neg=0For k=1 To 10If Arr(k)0 Then_Else_ End IfNext kPrint pos,negEnd Sub以上程序的功能是计算并输出数组 Arr 中 10 个数的正数之和 pos 与负数之和 neg，请填空。（分数：4.00）填空项 1
31、:_ （正确答案：pos=pos 十 Arr(k)(或 pos=Arr(k)+pos)neg=neg-Arr(k)(或neg=Arr(k)+neg）解析：解析 本题中，当数组元素的值为正数(即大干 0)时，应将其值累加到变量 pos，故第一个空处语句应为 pos=pos+Arr(k)。当数组元素的值为负数(即小于 0)时，应将其值累加到变量 neg，故第二个空处语句应为 neg=neg+Art(k)。46.在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As IntegerSum=0n=InputBox(“
32、Enter a number“)n=Val(n)For i=1 To nsum=_Next iPrint SumEnd SubFunction fun(t As Integer)As LongP=1For i=1 To tp=P*iNext i_ End Function以上程序的功能是，计算 1! +2! +3! +n!，其中 n 从键盘中输入，请填空。（分数：4.00）填空项 1:_ （正确答案：Sum+fun(i)(或 fun(i)+Sum)fun=p）解析：解析 在自定义函数中返回值应使用语句：过程名=表达式。调用函数并应使用语句：变量名=函数名(参数列表)。本题中自定义函数名为 fu
33、n，调用该函数时的参数为循环变量 i，即 fun(i)，故第一个空处应填入的累加表达式为 Sum+fun(i)；在自定义函数 fun 中应将累乘积作为函数返回值，故第二个空处应填入 fun=p。47.在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load()Open“d:/temp/dat,txt“For Output As#1Text1.Text=“ “End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)=_Th
34、enClose#1EndElseWrite#1,_Text1.Text=“ “End IfEnd IfEnd Sub以上程序的功能是在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按Enter 键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。（分数：4.00）填空项 1:_ （正确答案：“END“Text1.Text(或 Text1)）解析：解析 KeyPress(KeyAscii As Integer)事件是在对象具有焦点时，按下键盘上的键时触发的事件，KeyAscii 参数是所按键的 Ascii 的代码，Enter 键的 Ascii 代码值为 13。本题源程序通过文本框的 KeyPress 事件过程，每当在文本框中按下一个键时，先判断其是否为 Enter 键，若是则继续判断文本框中当前内容的大写是否为“END”，若是则结束程序(故第一个空处应填入“END”)，否则将当前文本框中的内容写入数据文件，故第二个空处应填入 Text1.Text。
