Question

创建VB工程，运行时可将文本框中的文字字号随机放大和缩小(求程序代码）

窗体中包括下列控件：标签、文本框和三个命令按钮，窗体标题为“字符缩放”，文本框字号为30磅。在文本框输入一串字符；按下“放大”按钮，要求字号放大比例为1～5之间的整数倍，按下“缩小”按钮时字号缩小为任意缩小.

Answer 1

Private Sub Command1_Click()
Dim x
x = Int((4 * Rnd) + 1)
Text1.FontSize = Text1.FontSize * x
End Sub
Private Sub Command2_Click()
On Error Resume Next
Dim x
x = Int((4 * Rnd) + 1)
Text1.FontSize = Text1.FontSize \ x
End Sub

Private Sub Form_Load()
Text1.FontSize = 30
End Sub

Answer 2

放大
Private Sub Command1_Click()
Dim x
x = Int((5 * Rnd) + 1)
Text1.FontSize = x * 30
End Sub
缩小
Private Sub Command2_Click()
Dim x
x = Text1.FontSize
x = x - Int((x * Rnd) + 1)
Text1.FontSize = IIf(x = 0, 30, x)
End Sub