二、填空題

　　(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。請填空。