Question

vb如何在同一文本框中分行显示随机数据的多个结果 下面是一段显示给出的8个数据的随机结果

这是我的程序：这里只能做到在文本框2中显示一个结果，我要能显示多个结果的，请高手帮忙补充，要快哦！！！
Private Function Rnd2(a As Long, b() As Long)
ReDim b(a) As Long
For i = 1 To a
Randomize
j = Int(Rnd * a)
While b(j) <> 0
j = Int(Rnd * a)
Wend
b(j) = i
Next
End Function

Private Sub Command1_Click()
Dim N() As Long
Text2.Text = ""
Call Rnd2(8, N)
For i = 0 To 7
Text2.Text = (Text2.Text & Mid(Text1.Text, N(i), 1))
Text2.Text = Text2.Text & vbCrLf & pokemon

Next
End Sub

Private Sub Form_Load()
Text1.Text = "请输入一个8位数"
End Sub

Private Sub Text1_GotFocus()
With Text1
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

Answer 1

123456jkyla

Answer 2

Call Rnd2(8, N)里面的N没有赋值