二、填空題。
(1)某二叉樹有5個度為2的結點,則該二叉樹中的葉子結點數為 。
(2)設一個隊列的初始狀態為空。現將元素A,B,C,D,E,F,5,4,3,2,1依次入隊,然后再依次退隊,則元素退隊的順序為 。
(3)對模塊獨立性度量的兩個定性標準是耦合性與內聚性。描述模塊間互相連接的緊密程度的是 。
(4)“軟件系統”的系統結構圖如下圖所示:該系統的最大扇出數是 。
(5)數據庫設計包括概念設計、 和物理設計。
(6)設有如下程序:
Option Base 0
Private Sub Command1_Click()
Dim 或【arr】
Dim i As Integer
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 0 To 3
Print arr
Next
End Sub
當運行程序,并單擊命令按鈕后,窗體上顯示5 4 3 2。請填空,使程序能夠完成此項功能。
(7)在窗體上建立一個有4個元素、名稱為Label1的標簽數組,下標從0開始,各元素的Caption屬性值依次為“等”、“級”、“考”、“試”;再畫一個名稱為Timer1的計時器控件,其 Interval屬性設為1000.窗體如圖所示。
程序運行時,從左到右反復顯示這4個字,但每次只顯示1個。請填空,使程序實現上述功能。
Dim i As Integer
Private Sub Form_Load()
For i = 0 To 3
Label1(i).Visible = False
Next
End Sub
Private Sub Timer1_Timer()
If i 3 Then
Label1(i).Visible = True
If i = 0 Then
Label1(3).Visible =
Else
Label1 .Visible = False
End If
i = i + 1
Else
i = 0
End If
End Sub
(8)窗體上有一個名稱為Combo1的組合框,其中已經添加了若干項目。程序運行時,單擊Command1命令按鈕,會把選中的項目從組合框中刪除。請填空。
Private Sub Command1_Click()
Dim str As String
Dim i As Integer
str = RTrim( .Text)
If str > "" Then
For i = 0 To
If Combo1.List(i) = str Then Combo1.RemoveItem
Next i
End If
End Sub
(9)設命令按鈕的單擊事件過程如下:
Private Sub Command1_Click()
Open "e:\file1.txt" For As #1
Print #1, "Testing"
Close #1
Open "e:\file1.txt" For Append As #1
#1, "ABCDEF"
Close #1
End Sub
程序的功能是:建立一個名稱為file1.txt的文件,寫入字符串“Testing”,關閉文件后再次打開,再寫入字符串“ABCDEF”。請填空使程序完整。
微信搜索"考試吧"了解更多考試資訊、下載備考資料
相關推薦: