(9) 在一個窗體上有兩個命令按鈕，cmdMax和cmdMin。單擊cmdMax時，窗體上顯示"字體由小變大"，字號每次增加2；單擊cmdMin時，窗體上顯示"字體由大變小"，字號每次減小2。請填空。
Private Sub Form_Load()
   Form1.Caption="字體變化示范"
   cmdMax.Caption="字體變大"
   cmdMin.Caption="字體變小"
End Sub
Private Sub cmdMax_Click()
     【9】
   Form1.Print "字體由小變大"
End Sub
Private Sub cmdMin_Click()
     【10】
   Form1.Print "字體由大變小"
End Sub
正確答案:  1.(Form1.FontSize = Form1.FontSize + 2) 2.(Form1.FontSize)

(10) 下列程序的功能是：將數據1，2，…，10寫入順序文件Base.txt中，請填空。
Private Sub Form_Click()
   Dim i As Integer
   Open 【11】 As #1
   For i=1 To 10
        【12】
   Next i
   Close #1
End Sub

正確答案:  1.("Base.txt" For Output) 2.(Print #1, i)

(11) 下面的程序用于根據文本框Text中輸入的內容進行以下處理：
若Text為1，則打印"您的成績為優秀！"；若Text為2，則打印"您的成績為良好！"
若Text為3，則打印"您的成績為一般"；否則打印"您的成績一般以下！"，請填空。
Private Sub Command1_Click()
   Select Case Val(Text1.Text)
      Case 【13】
         Print "您的成績為優秀！"
      Case 【14】
         Print "您的成績為良好！"
      Case 【15】
         Print "您的成績為一般"
      Case Else
         Print "您的成績一般以下！"
   End Select
End Sub
正確答案:  1.(1) 2.(2) 3.(3)

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目