UC知道创建VB工程，运行时可将文本框中的文字字号随机放大和缩小(求程序代码）
来源：百度知道 编辑：UC知道 时间：2024/09/23 07:39:46
窗体中包括下列控件：标签、文本框和三个命令按钮，窗体标题为“字符缩放”，文本框字号为30磅。在文本框输入一串字符；按下“放大”按钮，要求字号放大比例为1～5之间的整数倍，按下“缩小”按钮时字号缩小为任意缩小.
放大
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
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