做一个随机抽名字的软件。随机从所有人名字里中选取几个人的名字,这几个人不能重复。求大神帮助
提问内没有被抽号的全数是多少,所以把全数当作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)
-
佚名2024-05-18 13:03:17
问有没有为小说量身定做的随机取名软件?手机能用的。可以随机取人物名,天材地宝,帮派势力……
答快乐码字 里面有取名帮派技能等各种!!!
-
佚名2024-05-18 13:19:46
问用VB做一个姓名随机抽取的软件 但是 名字不能重复抽取谢谢
答Private Sub Command1_Click() Dim i As Long, n As Long, y As Long, x As Long, ...
-
佚名2024-05-18 08:00:00
问如何实现随机抽取班级里人名
答var i=Math.random() //获得0-1的随机数document.write(math.ceil(i*10)) //乘以10并向上去整用数字和人的...
-
佚名2024-05-18 08:00:00
问怎么在excel中随机抽取不重复的数字比如1–30中随机抽取不重复的五个数字
答A1中空着,A2中输入=SMALL(IF(COUNTIF(A$1:A1,ROW($1:$30))=0,ROW($1:$30)),1+INT(RAND()*(31...
-
佚名2024-05-18 08:00:00
问excel如何随机不重复抽取一组数据
答这里举个简单的例子假如有名字51个,在A列现在D列按你的要求把它们打乱排序输入 数组公式,输完后 按CRTL+SHIFT+ENTER=INDEX(A$1:A$5...
-
佚名2024-05-18 08:00:00
问如何在excel表格一列人名中随机抽取一个?
答输入公式:=INDIRECT("B"&RANDBETWEEN(4,60))
-
佚名2024-05-18 08:00:00
问Excel 如何在一堆名字里随机抽数个名字,不重复
答如果A列数据在A1:A50,那么在B1:B50单元格输入=RAND() 按Ctrl+Enter组合键结束;在C1:C5单元格输入=INDEX(A:A,MATC...
-
佚名2024-05-18 08:00:00
问求助:怎么制作一个抽奖机,抽奖选项是班里的人名,大约70个人。点一次抽奖会输出一个人名。
答可以用表单大师,创建一个班级通讯录,导入学生数据,然后在应用中创建一个抽奖活动,设置奖项就可以了,非常简单,你可以试试
-
佚名2024-05-18 08:00:00
问有什么随机抽奖的软件呀 ??!!!
答幸运抽奖软件免费版 http:///down/3412.html 快乐电脑抽奖软件 1.2.5f http:///soft/39239.htm
-
佚名2024-05-18 08:00:00
问excel 随机选择,且不重复选择人名
答方法/步骤1、先建立从A到Q的文本。ABCDEFGHJKLMNOPQ从这个文本中产生一个随机字母。=MID(A2,RANDBETWEEN(1,LEN(A2)),...
风水
起名
网名
- 1 岛屿四个字网名
- 2 带隐字的英语网名
- 3 5个字有关麋鹿的网名
- 4 有什么 带初 的网名
- 5 带恋字的凄美网名
- 6 带歆字的五个字古风网名
- 7 微信群主怎么修改成员群昵称
- 8 lofter的昵称和id
- 9 雨滴 昵称
- 10 简短幽默的微信昵称 男