怎样在文本框（text1)随机产生100个整数.并输出到in.txt中。请高手帮助解决。谢谢！

Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
For i = 1 To 100
x = Rnd * 100 + 1
Next i
Text1.Text = x
End Sub
txxt1 显示的是单个数，啥原因？

Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
For i = 1 To 100
x = Int(Rnd * 100) + 1
Text1.Text = Text1.Text & " " & i '记得输出到Text1中
Next i
End Sub