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

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

VB.NET中某些控件的字体属性是只读的，所以只可以使用大颂NEW方法\x0d\x0a（例子： Label1.Font = New Font("宋体", 9)）\x0d\x0a如果是VB6.0中可以直接使用Lable1.Font.Size=Lable1.Font.Size + 3\x0d\x0a(这里使用的滚乎郑例子是Lable控件，如果你使用的是Command控件直接改一下就顷缺好)

Private Sub Command1_Click() '世冲放大

   Text1.FontSize = 1.2 简态* Text1.FontSize

End Sub

Private Sub Command2_Click() '缩小

   Text1.FontSize = Text1.FontSize / 1.2

End Sub

Private Sub Form_Load()

   Text1.Text = "VB程序搜咐歼设计"

End Sub

---