Question

VB编程的问题，高手帮我

在文本框输入以字符串，对字号进行放大和缩小，缩放比例由随机函数产生。
要求：1、单击“放大”按钮，将文本光中的字体放大，放大的倍数有随机函数产生(Rnd),
范围在1-3倍,倍数表达式为:Int(Rnd*3+1) 为了使每次运行时产生不同的放大倍数，程序初始时应执行Randomize语句。
2、同样，单击“缩小”，进行缩小，缩小的倍数也通过上述方法实现。
3、在放大和缩小操作时，为了防止程序运行是错误（字体过大或过小），不应连续进行放大或缩小。也就是对已执行放大操作后，“放大”按钮呈暗淡色（不可操作），“缩小”可用;缩小亦然。
4、单击“还原”，字体大小恢复成初始状态，“放大”、“缩小”按钮也改变为可操作状态。

Answer 1

窗体上有三个命令按钮，command1,command2,command3和一个text1
代码如下：

Dim ys As Single
Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + (Int(Rnd * 3 + 1))
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.FontSize = Text1.FontSize - (Int(Rnd * 3 + 1))
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
Command1.Enabled = True
Command2.Enabled = True
Text1.FontSize = ys
End Sub

Private Sub Form_Load()
ys = Text1.FontSize
Command1.Caption = "放大"
Command2.Caption = "缩小"
Command3.Caption = "还原"
End Sub

Answer 2

dim ss
ss=text1.fontsize '记录当前大小
大:
text1.fontsize=ss*int(rnd*3+1)
小:
text1.fontsize=ss/int(rnd*3+1)
还原:text1.fontsize=ss

放大和缩小只是一次操作,不需要关闭其他按钮