Question

用一个变量在程序开始运行时记住标签中原始字体的大小

整一题是这样，提示的第二个要求不会，求解答
创建VB工程，界面如右所示，编程实现运行时可将标签中的文字字号随机放大（1~5整数倍）和（任意比例）缩小以及还原（原来字号）。界面如右图所示。
【提示】
1）将标签的AotuSize属性设置为False及True，看看有什么区别？
2）用一个变量在程序开始运行时记住标签中原始字体的大小（想想放在什么事件过程中？）；这个变量还会在“还原”按键中使用，其说明语句要放在通用-声明中；
3）每次按放大或缩小按键都会在当前的基础上放大或缩小；
4）字体放大到一定程度会出现“溢出”的错误提示，可以先不管。

Answer 1

Dim LblFontSize As Integer '设置一个全局变量

Private Sub Form_Load()
LblFontSize = Label1.FontSize '保存标签中原始字体的大小
End Sub

Private Sub Command1_Click() '还原原来字号
Label1.FontSize = LblFontSize '恢复标签中原始字体的大小
End Sub

Answer 2

Dim LblFontSize As Integer '设置一个全局变量 Private Sub Form_Load() LblFontSize = Label1.FontSize '保存标签中原始字体的大小 End Sub Private Sub Command1_Click() '还原原来字号 Label1.FontSize = LblFontSize '恢复标签中原始字体的大小 End Sub

Answer 3

Dim x As Integer
Private Sub Form_Load()
x = Label1.FontSize
End Sub
Private Sub Command1_Click()
Dim x
x = Int(Rnd * 5 + 1)
Label1.FontSize = Label1.FontSize * Val(x)
End Sub
Private Sub Command2_Click()
Dim x
x = Label1.FontSize
x = x - Int(Rnd * x + 1)
Label1.FontSize = x
End Sub

Private Sub Command3_Click()
Label1.FontSize = x
End Sub

Answer 4

Dim x
Private Sub Command1_Click()
Label1.FontSize = Label1.FontSize * Int(Rnd * 5 + 1)
End Sub
Private Sub Command2_Click()
Label1.FontSize = Label1.FontSize * Rnd()
End Sub
Private Sub Command3_Click()
Label1.FontSize = x
End Sub
Private Sub Form_Load()
x = Label1.FontSize
End Sub