VB 求这道题的代码 谢谢高手

画好控件后，代码如下：
Private Sub cmd1_Click()
if label1.fontsize>2 then ' 防止字体缩小至为字号 0 , 否则自动还原为 字号12
Label1.FontSize = Label1.FontSize - 2
else
Label1.FontSize = 12
end if
End Sub

Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub

Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.Font = ""
Label1.FontSize = 12

End Sub

祝你好运!!!

Private Sub cmd1_Click()
On Error Resume Next '这句是必须的 不然点到第六次会产生错误
也可以用if label1.fontsize>2 then 来代替
Label1.FontSize = Label1.FontSize - 2
End Sub

Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.FontSize = 12
Cmd1.Caption="缩小"
Cmd2.Caption="还原"
End Sub

画好控件后，代码如下：
Private Sub cmd1_Click()
Label1.FontSize = Label1.FontSize - 2
End Sub

Private Sub cmd2_Click()
Label1.FontSize = 12
End Sub

Private Sub Form_Load()
Label1.AutoSize = True
Label1.Caption = "计算机等级考试"
Label1.Font = ""
Label1.FontSize = 12

End Sub