计算机二级vb上机题库(3)
(34)某人设计了下面的函数fun，功能是返回参数a中数值的位数
Function fun(a As Integer) As Integer
Dim n%
n = 1
While a \ 10 >= 0
n = n + 1
a = a \ 10
Wend
fun = n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是
A)把语句n = 1改为n = 0
B)把循环条件a \ 10 >= 0改为a \ 10 > 0
C)把语句 a = a \ 10改为a = a Mod 10
D)把语句fun = n改为 fun
(35)在窗体上有一个名称为Check1的复选框数组
(含4个复选框)，还有一个名称为Text1的文本
框，初始内容为空。程序运行时，单击任何复选
框，则把所有选中的复选框后面的方字罗列在文
本框中(见图)。下面能实现此功能的事件过程是
A)Private Sub Check1_Click(Indes As Integer)
Text1.Text =""
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格
End If
Next k
End Sub
B)Private Sub Check1_Click(Index As Integer)
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格
End If
Next k
End Sub
C)Private Sub Check1_Click(Index As Integer)
Text1.Text = ""
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(Index).Caption & " " '双引号中是空格
End If
Next k
End Sub
D)Private Sub Check1_Click(Index As Integer)
Text1.Text = ""
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '双引号中是空格
Exit For
End If
Next k
End Sub
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。
(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】 。
(2)在两种基本测试方法中，【2】 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。
(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】 存储结构。
(4)对下列二叉树进行中序遍历的结果为【4】 。
(5)在E-R图中，矩形表示【5】 。
(6)窗体上有一个组合框，其中已输入了
若干个项目。程序运行时，单击其中一
项，即可把该项与最上面的一项交换。
例如：单击图1中的“重庆”，则与“北
京”交换，得到图2的结果。下面是可
实现此功能的程序，请填空。
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
(7)设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。
Dim [7] As Integer
Private Sub Form_Load()
pos=HScroIII.value
End Sub
Private Sub HScroIII_Change()
Print [8] -pos
pos=HScroIII.value
End Sub
(8)设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click()
CD1.Filter ="文本文件1*.txt(Word 文档)*.doc"
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName<>""Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
(9)下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox(“请输入一个正整数”)
While x>__[11]___
Print x Mod 10;
x=x\10
Wend
Print__[12]__
End Sub
