VB题 求答案 让字体变大到70停止，缩小到2停止

Question

如题所述

Answer 1

Dim a%

Private Sub Command1_Click()       '加大键

a = a + 10

If a >= 70 Then a = 70: Exit Sub      '加大到70就停止

Label1.Font.Size = a                       '设定Label1的字体大小

End Sub

Private Sub Command2_Click()     '缩小键

a = a - 10

If a <= 2 Then a = 2: Exit Sub        ' 缩小到2就停止

Label1.Font.Size = a                     '设定Label1的字体大小

End Sub

追问

不能运行。。。

追答

不可能,直接复制我的代码不能运行???那出现什么错误提示了?????
Dim a%
Private Sub Command1_Click() '加大键
a = a + 10
If a >= 70 Then a = 70 '加大到70就停止
Label1.Font.Size = a '设定Label1的字体大小
End Sub

Private Sub Command2_Click() '缩小键
a = a - 10
If a <= 2 Then a = 2 ' 缩小到2就停止
Label1.Font.Size = a '设定Label1的字体大小
End Sub

Answer 2

Dim I As Boolean

Dim J As Boolean

Private Sub SMALLER_Click()

Timer1.Enabled = True

J = True

End Sub

Private Sub SMALLER_lostfocus()

J = False

End Sub

Private Sub STOP_Click()

Timer1.Enabled = False

End Sub

Private Sub form_LOAD()

Form1.BackColor = VBBALACK

Label1.BackColor = VBBALACK

Label1.ForeColor = vbRed

Label1.FontSize = 35

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Private Sub BIGGER_Click()

Timer1.Enabled = True

I = True

End Sub

Private Sub BIGGER_lostfocus()

I = False

End Sub

Private Sub Timer1_Timer()

Label1.Move (Form1.ScaleWidth - Label1.Width) / 2, (Form1.ScaleHeight - Label1.Height) / 2

If I And Label1.FontSize < 70 Then

Label1.FontSize = Label1.FontSize + 20

ElseIf J And Label1.FontSize < 70 And Label1.FontSize - 20 > 0 Then

Label1.FontSize = Label1.FontSize - 20

ElseIf Label1.FontSize >= 70 Then

Label1.FontSize = 2

End If

End Sub

追问

完全不懂。