怎么样在vb中成行显示一个随机数，又怎么换行啊，

来源：百度知道 编辑：UC知道 时间：2024/05/24 12:00:45
我是一个初学者，望学姐学哥们帮帮忙啊 ，先谢谢了啊

Private Sub Command1_Click()
Dim S As Long, I As Long, J As Long, nStr As String

For J = 1 To 5 '显示5行
For I = 1 To 10 '每行显示10个
S = 1 + 20 * Rnd() '产生一个 1 到 20 之间的随机数
nStr = nStr & S & "," '合成字符串
Next
nStr = nStr & vbCrLf '添加换行符
Next

'显示到窗体
Me.AutoRedraw = True
Me.Cls
Me.Print nStr

'显示到文本框
Text1.Text = nStr
End Sub

一个随机数中间换行吗？先转换为字符串，看看其长度，每固定长度时插入一个 VBCRLF。