1.基本操作(2小題，每題15分，共計30分)
(1) 在名稱為Form1的窗體上畫一標籤(名稱為Label1，標題為空白，BorderStyle屬性為1，Visible屬性為False)、一個文字框(名稱為Text1，Text屬性為空白)和一個命令按鈕(名稱為Command1,標題為“顯示”)，如圖1所示。然後編寫命令按鈕的Click事件過程。程式執行後，在文字框中輸入“計算機等級考試”，然後單擊命令按鈕，則文字框消失，並在標籤內顯示文字框中的內容，執行後的窗體如圖2所示。要求程式中不得使用任何變數。
Private Sub Command1_Click()
ble = True
ble = False
ion =
End Sub
(2)在名稱為Form1的窗體上畫一個文字框(名稱為Text1)和一個水平滾動條(名稱為HScroll1)，如圖1所示。在屬性視窗中對滾動條設定如下屬性：
Min 500
Max 2000
Largechange 50
Smallchange 20
編寫適當的事件過程。程式執行後，如果移動滾動條上的滾動框，則可擴大或縮小文字框的高度，並使得文字框的`寬度始終是其高度的1.2倍。執行後的窗體如圖2所示。要求程式中不得使用任何變數。
Private Sub HScroll1_Change()
ht = e
h = ht * 1.2
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生資料夾下有一個工程檔案，請在窗體上畫兩個單選按鈕(名稱分別為Option1Option2，標題分別為“新增專案”和“刪除專案”)，一個列表框(名稱為List1)和一個文字框(名稱為Text1)，如圖1所示。編寫窗體的Click事件過程。程式執行後，如果選擇“新增專案”單擊按鈕，然後單擊窗體，則從鍵盤上輸入要新增的專案(內容任意，不少於三個)，並新增到列表框中;如果選擇“刪除專案”單選按鈕，然後單擊窗體，則從鍵盤上輸入要刪除的專案，將其從列表框中刪除。程式的執行情況如圖2所示。
在考生資料夾下有一個工程檔案(相應的窗體檔名為)，可以實現上述功能。但這個程式不完整，請把它補充完整。
Private Sub Form_Click()
If e = True Then
= InputBox("請輸入要新增的專案")
tem
End If
If e = True Then
= InputBox("請輸入要刪除的專案")
For i = 0 To Count - 1
If (i) = Then
veItem i
End If
Next i
End If
End Sub
(2)在考生資料夾下有一個工程檔案(相應的窗體檔名為)，其功能是通過呼叫過程Sort將陣列按降序排序，請裝入該檔案。程式執行後，在四個文字框中各輸入一個整數(如圖1所示)，然後單擊命令按鈕，即可使陣列按降序排序，並在文字框中顯示出來(如圖2所示)。這個程式不完整，請把它補充完整，並能正確執行。
Option Base 1
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
Start = LBound(a)
Finish = UBound(a)
For i = Finish To 2 Step -1
For j = 1 To i - Start
If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(), Val(), Val(), Val())
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
Sort arr2()
= arr2(1)
= arr2(2)
= arr2(3)
= arr2(4)
End Sub
3.綜合應用(1小題,計30分)
在窗體上建立三個選單(名稱分別為Read、Calc和Save,分別為“讀入資料”、“計算並輸出”、和“存檔”)，然後畫一個文字框(名稱為Text1,MultiLine屬性設定為True,ScrollBars屬性設定為2)(如圖所示)。程式執行後，如果執行“讀入資料”命令，則讀入檔案中的100個整數，放入一個數組中，陣列的下界為1;如果單擊“計算並輸出”按鈕，則把該陣列中小於50的元素在文字框中顯示出來，求出它們的和，並把所求得的和在窗體上顯示出來;如果單擊“存檔”按鈕，則把所求得的和存入考生資料夾下的檔案中。
在考生資料夾下有一個工程檔案，考生可以裝入該檔案。窗體檔案中的ReadData過程可以把檔案中的100個整數讀入Arr陣列中;而WriteData過程可以把指定的整數值寫到考生資料夾下指定的檔案中(整數值通過計算求得，檔名為)。
Option Base 1
Dim Arr(100) As Integer
Dim Sum As Integer '儲存累加和
Sub ReadData()
Open & "" & "" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
