一、填空題(每空2分,共30分)
(1)對下列二叉樹進行中序遍歷的結果 【1】 。
(2)按照軟體測試的一般步驟,整合測試應在 【2】 測試之後進行。
(3)軟體工程三要素包括方法、工具和過程,其中, 【3】 支援軟體開發的各個環節的控制和管理。
(4)資料庫設計包括概念設計、 【4】 和物理設計。
(5)在二維表中,元組的 【5】 不能再分成更小的資料項。
(6)在窗體上畫一個文字框、一個標籤和一個命令按鈕,其名稱分別為Text1、Label1和Command1,然後編寫如下兩個事件過程:
Private Sub Command1_Click( )
S$=InputBox("請輸入一個字串")
=S$
End Sub
Private Sub Text1_Change( )
ion=UCase(Mid(, 7))
End Sub
程式執行後,單擊命令按鈕,將顯示一個輸入對話方塊,如果在該對話方塊中輸入字串“VisualBasic”,則在標籤中顯示的內容是 【6】 。
(7)在窗體上畫一個命令按鈕,其名稱為Command1,然後編寫如下事件過程:
Private Sub Command1_Click( )
a$="National Computer Rank Examination"
n=Len(a$)
s=0
For i=1 To n
b$=Mid(a$, i, 1)
If b$="n" Then
s=s+1
End If
Next i
Print s
End Sub
程式執行後,單擊命令按鈕,輸出結果是 【7】 。
(8)為了在執行時把d:pic資料夾下的圖形檔案a.jpg裝入圖片框Picture1,所使用的語句為 【8】 。
(9)設有如下程式:
Private Sub Form_Click( )
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程式執行後,單擊窗體,結果如圖所示,請填空
(10)在窗體上畫一個命令按鈕,其名稱為Command1,然後編寫如下程式碼:
Option Base 1
Private Sub Command1_Click( )
Dim Arr
Arr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)
pos=0
neg=0
For k=1 To 10
If Arr(k)>0 Then
【10】
Else
【11】
End If
Next k
Print pos, neg
End Sub
以上程式的`功能是,計算並輸出陣列Arr中10個數的正數之和pos與負數之和neg,請填空。
(11)在窗體上畫一個名為Command1的命令按鈕,然後編寫如下程式:
Private Sub Command1_Click( )
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= 【12】
Next i
Print Sum
End Sub
Function fun(t As Integer)As Long
p=1
For i=1 To t
p=p*i
Next i
【13】
End Function
以上程式的功能是,計算1!+2!+3!+…+n!,其中n從鍵盤輸入,請填空。
(12)在窗體上畫一個文字框,名稱為Text1,然後編寫如下程式:
Private Sub Form_Load( )
Open "d:temp" For Output As #1
=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If UCase()= 【14】 Then
Close #1
End
Else
Write #1, 【15】
=""
End If
End If
End Sub
以上程式的功能是:在D盤temp資料夾下建立一個名為dat.txt的檔案,在文字框中輸入字元,每次按回車鍵都把當前文字框中的內容寫入檔案dat.txt,並清除文字框中的內容:如果輸入“END”,則不寫入檔案,直接結束程式。請填空。
【參考答案】
(1)DBXEAYFZC
(2)單元
(3)過程
(4)邏輯設計
(5)分量
(6)BASIC
(7)4
(8)Picture1.picture=
"d:pica.jpg"或
Picture1.Picture=
LoadPicture("d:pica.jpg")
(9)Right(a$,i)或者Mid(a$,7-i)
(10)pos=pos+Arr(k)
(11)neg=neg+Arr(k)
(12)sum+fun(i)
(13)fun=p
(14)END
(15)或Text1