Question

怎样运用VB随机函数改变窗体颜色和文本框字体的大小。

谢谢大家我很急，摆脱各位大虾！！！！~~~~

Answer 1

在窗体上画一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