2007年9月全国计算机等级考试二级VB模拟试题(11)及答案

(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)