【简答题】
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out4.txt" For Output As #1
Print #1, Cb1.Text, Cb2.Text, CInt(L1.Font.Size), L1.Font
Close #1
End Sub
参考答案
'要求考生编写的程序
Private Sub Cb1_Click()
L1.Font.Size = Cb1.Text
End Sub
Private Sub Cb2_Click()
L1.Font = Cb2.Text
End Sub