我程序如下:
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
可是运行以后数与数之间只是空格,并不能以列表形式显示?
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
可是运行以后数与数之间只是空格,并不能以列表形式显示?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货