VB如何让字体随机变大缩小？？

求教，谢谢

Private Sub Command1_Click()
a = Int(Rnd * 41) + 4 '4到40，根据需要自己改
Text1.FontSize = a

End Sub
不用按command1的话，就放入timer里
Private Sub Form_Load()
Timer1.Interval = 100‘越小变化越赽
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
a = Int(Rnd * 41) + 4 '4到40
Text1.FontSize = a
End Sub

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字体本身的大小 ' 这样做的话每次改变了大小之后, 又会在 ' 原基础上再次改变, 所以你见到的是越来越大 ' 解决方法是建立一个数字, 每次加一. ' 再建立一个变量保存最初的字体大小 ' 在原字体大小基础上生成一个随机数来改变大小