锐客网

  1. 首页 > 睿知 > >

随机抽号器，请问VB的随机抽数器怎么做

经验分享睿知

1 ， 请问VB的随机抽数器怎么做用Rnd就可以了
2，求随机抽号器 急R9抽奖软件 5.3http://www.skycn.com/soft/43748.html
3 ， 需要随机抽号软件这款软件可以看看： http://www.cxcs.com.cn/soft/254/p-3400.htm【随机抽号器，请问VB的随机抽数器怎么做】
4，求随机抽数字的软件从这里可以下载：http://download.pchome.net/industry/education/detail-14953-0.html希望对你有用5，求一个09数字随机摇号器 一次十个号一组的谢谢给你VBA代码Sub 摇号器()Static n As IntegerRandomizen = n + 1s = "第" & n & "组："For i = 0 To 9s = s & Int(10 * Rnd)NextCells(n, 1) = sEnd Sub百度搜索随机号码抽取6，求一个不重复的vb抽号器提问内没有被抽号的全数是多少 ， 所以把全数当作1000来编程时如下：Dim n(1000) As Integer, ｔｔｌ As IntegerPrivate Sub Command1_Click()Dim sc, isc = Val(Text1.Text)If sc <= 0 Or ttl < sc Then EndRandomize()Do While sc > 0i = CInt(Int(ttl*Rnd() + 1))If n(i) = 0 ThenPrint in(i) = 1: sc = sc-1End IfLoopEnd 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

    推荐阅读


    上一篇：工作日志软件

    下一篇：santak，santak开机不起怎样回事