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

二、填空题

1. 对于顺序存储的栈，因为栈的空间是有限的，在运算时，可能发生栈的上溢。

插入

[解析] 入栈运算即栈的插入，先将栈顶指针进1，然后新元素插入到栈顶指针指向的位置。当栈顶指针指向存储空间的最后一个位置时，则栈空间已满，不能再进行入栈操作，否则会发生栈的“上溢”错误。

2. 在最坏情况下，堆排序需要比较的次数为。

O(nlog 2n)

[解析] 在最坏情况下，冒泡排序所需要的比较次数为n(n-1)/2；简单插入排序所需要的比较次数为n{n-1)/2；希尔排序所需要的比较次数为O(n＾1.5)；堆排序所需要的比较次数为O(nlog 2n)，

3. 在深度为5的满二叉树中，叶子结点的个数为。

[解析] 此题用的是二叉树的基本性质1，即在二叉树的第k层上，最多有2^k-1(k≥1)个结点，此题叶子结点位于第5层，所以叶子结点数为2^5-1，即16。

4. 结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、和限制使用goto语句。

模块化

[解析] 结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、模块化和限制使用goto语句。
自顶向下：程序设计时，应先考虑总体，后考虑细节；先考虑全局目标，后考虑局部目标。不要一开始就过多追求众多的细节，先从最上层总目标开始设计，逐步使问题具体化。
逐步求精：对复杂问题，应设计一些子目标作过渡，逐步细化。
模块化：一个复杂问题，肯定是由若干稍简单的问题构成。模块化是把程序要解决的总目标分解为分目标，再进一步分解为具体的小目标，把每个小目标称为一个模块。
限制使用goto语句。

5. 在数据库管理系统提供的数据定义语言，数据操纵语言和数据控制语言中，负责数据的模式定义与数据的物理存取构建。

数据定义语言

[解析] 数据库系统提供的数据语言有以下三种。
数据定义语言：负责数据的模式定义与数据的物理存取构建；
数据操纵语言：负责数据的操纵，如查询与增、删、改等；
数据控制语言：负责数据完整性、安全性的定义与检查以及并发控制故障恢复等。

6. 下面程序运行后，单击命令按钮，输出的结果是。
Private Sub Command1_Click()
Dim aYo(1 To 5)，i%，s#
For i=1 To 5
a(i)=i
Next
s=Fun(A)
Print“s=”;s：
End Sub
Function Fun(a() As Integer)
Dim t# .i%
t=1
For i=LBound(a) To UBound(a)
t=t*a(i)
Next
Fun=t
End Function

s=120

[解析] 程序首先调用循环语句为数组a、b赋值，其中a(i)=i，b(i)=i，且数组a的上下界分别为1和5，接着将数组a作为参数调用Fun过程。在Fun过程中，定义了两个变量t及i，i作为循环语句For的变量，它的初始值和终值分别为数组的上下界，循环体为t=t*a(i)，即将a (i)的值乘以t，然后再赋给t，当循环结束后，程序返回的就是数组a中各元素的积，输出结果为：s=120。

7. 首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是。

Do-loop

[解析] 本题考查的是Do-loop结构的循环语句，不管是否满足条件，都要先执行一次。

8. 下列程序的作用是将三个数按从大到小进行排序，请填空。
If a＜b Then
d=a
a=b
b=d
End If
If a＜c Then
d=a
a=c
c=d
End If
If Then
d=b
b=c
c=d
End If
Print a,b,c

b＜c

[解析] 此题即使看不懂程序也应该可以从前两个If语句找到基本排列规律，这是应试的一种基本技能。从第一个If来看，d首先储存了较小的a，最后赋值给之前较大的b，所以最后一空应该是首先d储存的b变量是最初较小的值，而后一行d值赋给了c，则c为较大值。答案bcc。

9. 下列程序运行后的输出结果是
Private Sub f(k,s)
s=1
For i=1 To k
s=s*i
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub

[解析] 本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量s按十传送。子过程f()求n!，sum的计算过程为1!+2!+3!=1+2+6=90

10. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
Private Sub Command1_Click()
Dim M As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print M(2+M(x))
End Sub
程序运行后，单击命令按钮，输出结果是。

[解析] M(x)=M(6)=12-6=6。最终输出为M(2+6)=12-8=4。

11. 下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请将程序补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt"For Output As#1
For i=1 To 8

Next
Close#1
End Sub

Print#1，i

[解析] 使用Print语句可以将数据写入顺序文件中。

12. 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下，请填空。
Private Sub Command1_Click()
Form1.Hide
Form2.
End Sub

Show

[解析] Show用于显示窗体，Hide隐藏窗体对象，但不能使其卸载。调用Show方法时，若指定的窗体没有加载，将自动加载窗体；调用Hide方法时，若指定的窗体还没有加载，Hide方法将加载窗体，但不显示。

13. 下列程序用来计算1+2+…+n，当和大于100时停止计算，请填空。
Private Sub Form_Click()
Dim n as integer,s as integer,I as integer,k as integer
s=0
k=0
n=inputbox(“请输入n的值“)
For i=1 to 100
k=k+1
s=s+1

Next i
Print s
End Sub

if s＞100 then exit for

[解析] 依题意，用变量s来记录1到n的累加和，当累加和s大于100时停止计算，故加入退出循环条件“if s＞100 then exit for”。

14. 在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click()
Open”c:\test.dat" For As#1
For i=1 to Len(Text1.text)
print #1,mid(Text1.Text,i,1)
Next
Close#1
End Sub

output

[解析] 文件的打开方法中，output是指定顺序输出方式。

15. 在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的Multiline属性设置为True，然后编写如下的事件过程，请在空白处填上适当的内容，将程序补充完整。
Private Sub Form_Click()
Open”d:\test\smtext1.txt" For input As#1
Do While Not EOF()
Line Input#1，aspect$
whole $=whole $+aspect $+Chr $(13)+Chr $(10)
Loop Text1.text=whole$
Close#1
Open "d:\test\smtext2.txt" For output As#1
Print#1，
Close #1
End Sub

text1.text

[解析] “print#文件号”是文件操作的固定用法，表示把数据写入文件中。#后跟文件号，文件号后面记得要有逗号。