(9) 在一個(gè)窗體上有兩個(gè)命令按鈕，cmdMax和cmdMin。單擊cmdMax時(shí)，窗體上顯示"字體由小變大"，字號(hào)每次增加2；單擊cmdMin時(shí)，窗體上顯示"字體由大變小"，字號(hào)每次減小2。請(qǐng)?zhí)羁铡?BR>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) 下列程序的功能是：將數(shù)據(jù)1，2，…，10寫(xiě)入順序文件Base.txt中，請(qǐng)?zhí)羁铡?BR>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) 下面的程序用于根據(jù)文本框Text中輸入的內(nèi)容進(jìn)行以下處理：
若Text為1，則打印"您的成績(jī)?yōu)閮?yōu)秀！"；若Text為2，則打印"您的成績(jī)?yōu)榱己茫?
若Text為3，則打印"您的成績(jī)?yōu)橐话?；否則打印"您的成績(jī)一般以下！"，請(qǐng)?zhí)羁铡?BR>Private Sub Command1_Click()
   Select Case Val(Text1.Text)
      Case 【13】
         Print "您的成績(jī)?yōu)閮?yōu)秀！"
      Case 【14】
         Print "您的成績(jī)?yōu)榱己茫?
      Case 【15】
         Print "您的成績(jī)?yōu)橐话?
      Case Else
         Print "您的成績(jī)一般以下！"
   End Select
End Sub
正確答案:  1.(1) 2.(2) 3.(3)

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問(wèn)：考試吧計(jì)算機(jī)等級(jí)考試欄目