我程序如下:
Option Base 1
Dim i%, a(10)
Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(Rnd * 10000) ’随机产生10个1-4位的数
Text1.Text = Text1.Text & a(i) & vbCrLf '或将vbcrlf改为chr$(13)+chr$(10)
Next i
End Sub
可是运行以后数与数之间只是空格,并不能以列表形式显示?
...全文
933打赏收藏
如何将文本框中的内容以列表形式显示?
我程序如下: Option Base 1 Dim i%, a(10) Private Sub Command1_Click() For i = 1 To 10 a(i) = Int(Rnd * 10000) ’随机产生10个1-4位的数 Text1.Text = Text1.Text & a(i) & vbCrLf '或将vbcrlf改为chr$(13)+chr$(10) Next i End Sub 可是运行以后数与数之间只是空格,并不能以列表形式显示?