Question

VB文本框字体随机放大1-3倍

Randomize
不管是写
Text1.FontSize = Rnd + 3
或者是
Text1.FontSize = Rnd * 3
都没用，都是随机放大或者缩小
我想要的是只随机放大1-3倍
所有方法都试了还是不行啊
还是放大缩小都随机出现
怎么回事啊？

Answer 1

Private Sub Command1_Click()
Randomize
Text1.FontSize = Text1.FontSize * Int(Rnd() * 3)
End Sub

Private Sub Command2_Click()
Text1.FontSize = OldSize '还原原来大小。
End Sub

Private Sub Form_Load()
Dim OldSize
OldSize = Text1.FontSize '记录原来的text1的字体大小。
End Sub

Answer 2

Text1.FontSize = int(Text1.text.fontsize)*Rnd * 3

Answer 3

放大3倍：
Text1.FontSize = Text1.FontSize * 3

缩小3倍：
Text1.FontSize = Text1.FontSize / 3

Answer 4

随机放大1-3倍:

Option Explicit

Private Sub Command1_Click()
Randomize
Text1.FontSize = Text1.FontSize * Int(Rnd * 3 + 1)
End Sub