[CODE]Private Sub Text1_Change()
Randomize
Text1.Text = Int(90000000 * Rnd + 10000000)
End Sub[/CODE]
楼上的朋友,运行后怎么一点反应都没有呢
对不起,明白了,应该是这样
Private Sub Form_Load()
Randomize
Text1.Text = Int(90000000 * Rnd + 10000000)
End Sub
[此贴子已经被作者于2007-5-17 21:42:45编辑过]