随机数抽签代码（随机抽签的编程代码）

今天给各位分享随机数抽签代码的知识，其中也会对随机抽签的编程代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、vb抽取1~55随机数【班级抽签用】
• 2、C语言抽取随机数怎么编写
• 3、java 随机数抽签
• 4、VB做抽签程序的代码

vb抽取1~55随机数【班级抽签用】

'''''如果你是随机选50个不重复的数则可用下面这个程序：

Option Base 1

Private Sub Form_Click()

Dim A(), i%, k%, Jk%

ReDim A(50)

For i = 1 To 50

A(i) = i

Next

Choose:

k = UBound(A) ''''''K为当前还剩下未被抽取的数

Jk = Int(Rnd * (k) + 1) ''''在剩余数中随机抽取第JK个数

Print A(Jk) ''''''''''''''''A(JK)就是随机抽到的数，

If k = 1 Then Exit Sub '''''如果是最后一个数则退出

For j = Jk To k - 1

A(j) = A(j + 1) ''''''从抽到的那个数开始，让前一个数等于后一个数，将抽到的那个数删除

Next j

ReDim Preserve A(k - 1)

GoTo Choose '''''继续随机抽选

End Sub

C语言抽取随机数怎么编写

源程序代码以及算法解释如下：

产生1-10随机数程序：

#include iostream

#include time.h

using namespace std;

int main()

{

const int n = 10;//定义随机数个数

int number[n] = { NULL };//定义随机数存储的数组

srand((unsigned)time(NULL));//初始化随机函数

number[0] = rand() % n;//第一个随机数无需比较

cout number[0] " ";

for (int i = 1; i n; i++)//其余随机数循环产生

{

int j = 0;

number[i] = rand() % n;//产生随机数

while (1)

{

if (number[i] == number[j])//若有相同则继续循环重新安排随机数

{

number[i] = rand() % n;//产生随机数

j = 0;//若遇到相同的就从头遍历

continue;

}

if (j == (i - 1))//若遍历完就跳出

break;

j++;

}

cout number[i] " ";

}

cout endl;

return 0;

}

程序运行结果如下：

扩展资料：

利用vector进行随机数输出：

#include iostream

#include vector

#include time.h

using namespace std;

int main()

{

const int n = 10;

int randnum;

vectorint number;

for (int i = 0; i n; i++)

{

number.push_back(i + 1);    //从尾部添加元素

cout number[i] " ";

}

cout endl;

srand((unsigned)time(NULL));

for (int j = 0; j n; j++)     //其余随机数循环产生

{

randnum = rand() % (n - j);    //rand函数生成的随机数是0-（n-1）

cout number.at(randnum) " ";

number.erase(number.begin() + randnum);

}

cout endl;

return 0;

}

java 随机数抽签

正常来讲，你使用Math.random()方法就能产生一个随机数的。

如果每次产生的随机数是一样的，你可以用

Random r = new Random();

int a = r.nextInt();来产生一个随机数的。

Random也是随机数的对象。

你可以查一下java的api做一个全面的了解。

VB做抽签程序的代码

Public j As Integer

Dim A() As String

Dim tem As String

Private Sub CMD1_Click() '注意这里如果没有exit sub，责会出现captio不会变的，其实已经变过了

If CMD1.Caption = "开始" Then

CMD1.Caption = "停止"

Timer1.Enabled = True

Exit Sub

End If

If CMD1.Caption = "停止" Then

CMD1.Caption = "开始"

Timer1.Enabled = False

If tem  "" Then

Text1.Text = tem

End If

End If

End Sub

Private Sub CMD2_Click()

Frame1.Visible = True

Text2.Visible = True

CMD3.Visible = True

CMD4.Visible = True

End Sub

Private Sub CMD3_Click()

Text2.Visible = False

CMD3.Visible = False

CMD4.Visible = False

tem = Text2.Text

End Sub

Private Sub CMD4_Click()

Text2.Text = ""

Text2.Visible = False

CMD3.Visible = False

CMD4.Visible = False

End Sub

Private Sub form_load()

Frame1.Visible = False

Text2.Visible = False

CMD3.Visible = False

CMD4.Visible = False

Timer1.Enabled = False

Timer1.Interval = 300

Open "C:Documents and SettingsAdministrator桌面新建 文本文档.txt" For Input As 1

Do Until EOF(1)

ReDim Preserve A(0 To I)

Input #1, A(I)

I = I + 1

Loop

Close #1

End Sub

Private Sub Timer1_Timer()

Text1.Text = A(j)

j = j + 1

If j = UBound(A) Then

j = 0

End If

End Sub

已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵

关于随机数抽签代码和随机抽签的编程代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。