求VB代码。编写一个按钮，一个文本。按按钮则出现7个随机阿拉伯数字。要求只有上面得。谢谢！

Private Sub Command1_Click()
Text1.Text = Int(Rnd() * 8999999) + 1000000
End Sub

编程时尽量不要使用 Text1.Text = Text1.Text & "" 这种连接操作，这样的效率很低

Private Sub Command1_Click()
Dim i As Integer
Randomize
Text1.Text = ""
For i = 1 To 7
Text1.Text = Text1.Text & " " & Int(Rnd * 10)
Next i
End Sub