Question

做一个随机抽名字的软件。随机从所有人名字里中选取几个人的名字，这几个人不能重复。求大神帮助

有的发我邮箱9748161@qq.com 高分期待

Answer 1

提问内没有被抽号的全数是多少，所以把全数当作1000来编程时如下： Dim n(1000) As Integer, ｔｔｌ As Integer Private Sub Command1_Click() Dim sc, i sc = Val(Text1.Text) If sc <= 0 Or ttl < sc Then End Randomize() Do While sc > 0 i = CInt(Int(ttl*Rnd() + 1)) If n(i) = 0 Then Print i n(i) = 1: sc = sc-1 End If Loop End Sub Private Sub Form_Load() ttl= 1000 For i = 1 To ttl n(i) = 0 Next i End Sub