每次單擊都只能顯示一個，改了i的值沒有用，print x 全都是數字，如何讓它顯示多個，比方說51個人，數字也是一到五十一的范圍，但我想讓它一次性顯示出20個人怎么弄？在線等，班級需要！！
uj5u.com熱心網友回復：
在線等！急需！最好是能寫一個例子參考，加注釋uj5u.com熱心網友回復：
顯示多類?不明白..uj5u.com熱心網友回復：
QQ 527524938加我吧uj5u.com熱心網友回復：
'名字陣列
Private StrNames() As String
'名字數
Private NumNames As Integer
Private 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 Sub
Private 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
uj5u.com熱心網友回復：
表單上放一個label，一個textbox，一個commandbutton，textbox的Multiline屬性改成true轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40427.html
標籤：非技術類
上一篇：VB6.0的問題