742
社区成员
发帖
与我相关
我的任务
分享
'名字数组
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