2010年3月计算机等级考试二级VB试试题(文字版)

　　二、填空题

　　(1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为 【1】 。

　　(2)设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有 【2】 个元素。

　　(3)设二叉树如下：

　　对该二叉树进行后序遍历的结果为 【3】 。

　　(4)软件是 【4】 、数据和文档的集合。

　　(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号， 【5】 ，成绩)。

　　(6)为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为 【6】 。

　　(7)在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。

　　Private Sub Form_Load()

　　Label1.Caption="欢迎"

　　Timer1.Enabled=False

　　Timer1.Interval= 【7】

　　End Sub

　　Private Sub Timer1_Timer()

　　Label1.Visible= 【8】

　　End Sub

　　Private Sub command1_Click()

　　【9】

　　End Sub

　　(8)有如下程序：

　　Private Sub Form_Click()

　　n=10

　　i=0

　　Do

　　i=i+n

　　n=n-2

　　Loop While n>2

　　Print i

　　End Sub

　　程序运行后，单击窗体，输出结果为 【10】 。

　　(9)在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a(10) As Integer

　　For i=1 To 10

　　a(i)=i

　　Next

　　Call swap ( 【11】 )

　　For i=1 To 10

　　Print a(i);

　　Next

　　End Sub

　　Sub swap(b() As Integer)

　　n=Ubound(b)

　　For i=1 To n / 2

　　t=b(i)

　　b(i)=b(n)

　　b(n)=t

　　【12】

　　Next

　　End Sub

　　上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。

　　(10)在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

　　Private Sub Form_Click()

　　Open "d:\test\smtext1.Txt" For Input As #1

　　Do While Not 【13】

　　Line Input #1, aspect$

　　Whole$=whole$+aspect$+Chr$(13)+Chr$(10)

　　Loop

　　Text1.Text=whole$

　　【14】

　　Open "d:\test\smtext2.Txt" For Output As #1

　　Print #1, 【15】

　　Close #1

　　End Sub

　　运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。