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 = 1i <ni++)//其余随机数循环产生

{

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

vector<int>number

for (int i = 0i <ni++)

{

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

cout <<number[i] <<" "

}

cout <<endl

srand((unsigned)time(NULL))

for (int j = 0j <nj++)     //其余随机数答蔽循环产生

{

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

cout <<number.at(randnum) <<" "

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

}

cout <<endl

return 0

}

应该是a[2][3]={{1,3,2},{8,0,3}} 吧

#include <iostream>//cout函数的头文件

#include <cstdlib>

#include <time.h>/* srand函数与rand函数的头文件*/

using namespace std

int main()

{

int a[2][3]={{1,3,2},{8,0,3}},x,y,z

srand ( (unsigned) time (NULL) )

x=rand()%2//调用随哪冲机函数

y=rand()%3//调用随机函数

z=a[x][y]

cout<<z<<"\n"

system ("pause")

return 0

}

三楼，请注意素质...

那是我的版权！！

楼主，一定要注意先来后到！

我咐脊本是2楼的，后因稍作修改，衡缓渗没想到3楼抄袭我。。。

创建一个VB工程，在窗体上放置一个文本输入框text1，一激枣个标签Label1，三个按钮，名称分别为

Command1 “开始”棚物

Command2 “暂停”

Command3 “退出”

再加入一个定时器timer1，Interval属性设置为2000ms

双击链铅液开始按钮，添加下面代码

Private Sub Command1_Click()

Dim a As Long

a = Int(Rnd * 9000000 + 1000000)

Text1 = a

Timer1.Enabled = True

End Sub

双击暂停按钮，添加下面代码

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

双击退出按钮，添加下面代码

Private Sub Command3_Click()

Call Command2_Click

End

End Sub

双击窗体，添加下面代码

Private Sub Form_Load()

Randomize Timer

End Sub

双击定时器，添加下面代码

Private Sub Timer1_Timer()

Dim a As Long

a = Int(Rnd * 9000000 + 1000000)

Text1 = a

End Sub

运行一下，一个幸运数字程序新鲜出炉

---