如何让名字显示多个，在线等，急！！！

Question

每次单击都只能显示一个，改了i的值没有用，print x 全都是数字，如何让它显示多个，比方说51个人，数字也是一到五十一的范围，但我想让它一次性显示出20个人怎么弄？在线等，班级需要！！

Answer 1

'名字数组
Private StrNames() As String
'名字数
Private NumNames As IntegerPrivate Sub Command1_Click()
    Dim i  As Integer
    Dim NumChoose As Integer
    Dim NameChoose As String
    
    '要抽取的名字数
    NumChoose = 20
    
    '开始抽取
    Text1.Text = ""
    NameChoose = ""
    Randomize
    For i = 1 To NumChoose
        '抽取姓名
        NameChoose = StrNames(Int((NumNames * Rnd) + 1))
        
        '防止重复抽取
        While InStr(1, Text1.Text, NameChoose) <> 0
            NameChoose = StrNames(Int((NumNames * Rnd) + 1))
        Wend
        
        
        Text1.Text = Text1.Text & vbCrLf & Format(i, "00") & ":" & NameChoose
    Next
End SubPrivate Sub Form_Load()
    Dim i As Integer
    
    NumNames = 51
    
    '给名字数组赋值
    ReDim StrNames(NumNames) As String
    For i = 1 To NumNames
        StrNames(i) = "名字" & Format(i, "00")
    Next
End Sub

Answer 2

窗体上放一个label，一个textbox，一个commandbutton，textbox的Multiline属性改成true