Every click can only display a, changed the I no use value, print x is all Numbers, how to let it show multiple, for example, 51 people, the scope of the number is to 51 but I want it to one-time shows 20 people how? Online, such as class need!!!!!

CodePudding user response:

Online etc.! Urgent need! It is best to write an example reference, add a comment

CodePudding user response:

According to many classes? Don't understand..

CodePudding user response:

527524938 add me QQ

CodePudding user response:

 'name arrayPrivate StrNames () As String 
The number of 'name 
Private NumNames As Integer 

Private Sub Command1_Click () 
Dim As Integer I 
Dim NumChoose As Integer 
Dim NameChoose As String 

'to extract the name number 
NumChoose=20 

'started pumping 
Text1. Text="" 
NameChoose="" 
Randomize 
For I=1 To NumChoose 
Extract name 
 'NameChoose=StrNames (Int ((NumNames * Rnd) + 1)) 

'to prevent repeated extraction 
While InStr (1, Text1. Text, NameChoose) & lt;> 0 
NameChoose=StrNames (Int ((NumNames * Rnd) + 1)) 
Wend 


Text1. Text=Text1. Text & amp; VbCrLf & amp; The Format (I, "00") & amp; ":" & amp; NameChoose 
Next 
End Sub 

Private Sub Form_Load () 
Dim As Integer I 

NumNames=51 


 'to name an array assignmentReDim StrNames (NumNames) As String 
For I=1 To NumNames 
StrNames (I)="name" & amp; The Format (I, "00") 
Next 
End Sub 

CodePudding user response:

Put a label form, a textbox, a commandbutton, textbox Multiline attribute to true