本文目录一览

1，求随机抽号器 急

R9抽奖软件 5.3 http://www.skycn.com/soft/43748.html

求随机抽号器 急

2，需要随机抽号软件

这款软件可以看看： http://www.cxcs.com.cn/soft/254/p-3400.htm

需要随机抽号软件

3，求随机抽数字的软件

从这里可以下载：http://download.pchome.net/industry/education/detail-14953-0.html希望对你有用

求随机抽数字的软件

4，求一个09数字随机摇号器 一次十个号一组的谢谢

给你VBA代码Sub 摇号器()Static n As IntegerRandomizen = n + 1s = "第" & n & "组："For i = 0 To 9s = s & Int(10 * Rnd)NextCells(n, 1) = sEnd Sub
百度搜索随机号码抽取

5，用c语言设计一个抽奖器用户输入10个号码由电脑随机抽取一个作

10个数字存放到数组中，下标0-9随机取 0-9的数字，打印相应下标数组中的数，就可以了
代码如下，已测试通过：int main() int no,ret; printf("请输入你猜测的号码：\n"); scanf("%d",&no); ret=rand()%10; printf("本次开奖结果=[%d]：\n",ret); if(no==ret) printf("恭喜你猜中了，中奖10元！\n"); } else printf("很遗憾，再来一次吧！\n"); } return 0;} 可以把上面代码改成多次输入，即将输入和取随机数都放在while循环中。自己修改下吧

6，求一个不重复的vb抽号器

提问内没有被抽号的全数是多少，所以把全数当作1000来编程时如下： Dim n(1000) As Integer, ｔｔｌ As IntegerPrivate Sub Command1_Click()Dim sc, i sc = Val(Text1.Text) If sc <= 0 Or ttl < sc Then EndRandomize()Do While sc > 0 i = CInt(Int(ttl*Rnd() + 1))If n(i) = 0 Then Print i n(i) = 1: sc = sc-1 End IfLoop End SubPrivate Sub Form_Load()ttl= 1000For i = 1 To ttln(i) = 0Next iEnd Sub
把号都放一个数组里，然后随机抽，抽取后显示同时把数组里抽出的号删除就好了。简单写下仅供参考: Dim a() As Integer, cn As IntegerPrivate Sub Command1_Click()If cn < Val(Text1.Text) Then EndRandomizeFor i = 1 To Val(Text1.Text)x = 1 + Int(Rnd * cn)Print a(x)For j = x To cn - 1 a(j) = a(j + 1)Next jcn = cn - 1Next iEnd SubPrivate Sub Form_Load()cn = 10ReDim a(10)For i = 1 To cna(i) = iNext iEnd Sub

文章TAG：随机  随机抽号器  求随机抽号器  急  
下一篇