ppt加vba做一个抽签的程序，抽取桌号与红黑方，随机不能重复，网上找了一个ppt做好的 但是 重复随机抽取

例文件没看过，懒得看。说下思路吧。

建立个数据集，把桌号都存进去(可以不连续)。数据集比如说有50个数，随机选出个1~50间的数，找到这个数在数据集中对应的桌号。在数据集中删除这个桌号，数据集变成49个数了。下次就抽取1~49间的数……

不好意思，没有时间来写一个完整的程序。

如果要做的话，大概的思路就是：

1。首先记录下一共有多少个名字，存入变量num中。

2。使用seed()函数设置随机种子

3。使用rand()%num函数得到一个小于num的随机整数r。

4。输出这第r个名字

5。把最后一个名字移动到第r个名字的位置上覆盖它，就是把第num-1个名字复制到r的位置上，再把名字总数num减1。

6。循环做3到5步，直到num减到0了为止，说明所有名字都被抽走了。程序结束

你贴的代码能正常工作吗？

如果能正常工作，修改这就行了

k = Int(Rnd  47)

TextBox1Text = rstr(k)

改成

1 rstr()数组做成全局数组，并初始化为0

2 上面的代码,生成随机数后，判断随机数是否用过。用rstr()记录随机数是否使用信息

do while 1

    k = Int(Rnd  47)

    if rstr(k) = "0" then

        TextBox1Text = k   ;;;,如果k有0值，则写成k+1;不知道这么用行不行，没用过VB

        rstr(k) = "1"

    else

        exit do

    end if

loop

#include <stdioh>

#include<stdlibh>

#include<timeh>

#define N 50 //班级人数

void main()

{

int n;

srand(time(0)); //获取当前时间作为种子，保证每次产生随机数的种子不同

n=rand()%N;

printf("\n\n你被选中啦:\n");

printf(">%3d号\n\n\n",n);

system("pause");

}

以上就是关于ppt加vba做一个抽签的程序，抽取桌号与红黑方，随机不能重复，网上找了一个ppt做好的 但是 重复随机抽取全部的内容，包括:ppt加vba做一个抽签的程序，抽取桌号与红黑方，随机不能重复，网上找了一个ppt做好的 但是 重复随机抽取、能帮我一个抽签不重复的软件的源码么，每次点击按钮，都会从名字库中抽出一个名字，且以后不会再出现。谢、急，我做得vb抽签怎样修改成无重复的抽签方式等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！