参考答案

Private Sub C1_Click()
    T1 = "等级考试"
End Sub
Private Sub C2_Click()
    T1.Height = 2 * Me.T1.Height
    T1.Width = 2 * T1.Width
    T1.FontSize = 3 * Form1.T1.FontSize
End Sub