做一个随机抽名字的软件。随机从所有人名字里中选取几个人的名字,这几个人不能重复。求大神帮助
1个回答
展开全部
提问内没有被抽号的全数是多少,所以把全数当作1000来编程时如下: Dim n(1000) As Integer, ttl 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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询