[求助]为什么不行?
Dim n As Integer, s As String
Private Sub Form_Click()
If n = 1 Then
Form1.FontName = "黑体"
Print s
n = n + 1
Else
If n = 2 Then
Form1.FontName = "楷体_GB2312"
Print s
n = n + 1
Else
Cls
n = 1
End If
End If
End Sub
Private Sub form1_load()
n = 1
s = "欢迎VB"
Form1.FontSize = 18
End Sub
