QQ网名大全

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

提问内没有被抽号的全数是多少,所以把全数当作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
佚名
2024-05-18 15:57:04
最佳回答
类似问题(10)