UC知道怎样用VB运用随机函数改变窗体颜色和文本框字体的大小。
来源：百度知道 编辑：UC知道 时间：2024/07/05 16:56:43
在窗体上画一timer控件和一文本框，然后写以下代码：
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Randomize
x = Int(Rnd() * 90 + 10)
Text1.FontSize = x
Randomize
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
Form1.BackColor = RGB(a, b, c)
End Sub