在VB中使字体随机变大1-3倍

Question

在容器内放入一个label1和一个command1 点击command1后label1中的字体随机放大1~3倍，我使用的是rnd函数 但是做出来后label1中的字体一直在放大 或者有很多变化的大小。 这个代码该怎么写？

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim RndNum As Integer
Static FntSze As Integer
Static Turn As Long

Turn = Turn + 1
' 原型: Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)
RndNum = Int((3 - 1 + 1) * Rnd + 1)

Cls
Print "Size multiple: " & RndNum
' 用于调试输出字体倍数...

If Turn = 1 Then
FntSze = Label1.FontSize
Label1.FontSize = Label1.FontSize * RndNum
Else
Label1.FontSize = FntSze * RndNum
End If
End Sub

' 提问题所遇见的字体一直放大的原因是因为
' 把字体的大小作为随机数x字体本身的大小
' 这样做的话每次改变了大小之后, 又会在
' 原基础上再次改变, 所以你见到的是越来越大
' 解决方法是建立一个数字, 每次加一.
' 再建立一个变量保存最初的字体大小
' 在原字体大小基础上生成一个随机数来改变大小