二、填空题
(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。请填空。