用VB从1-12这12个数中随机生成3个互不重复的数
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/18 02:33:21
用VB从1-12这12个数中随机生成3个互不重复的数
3个TEXT用来分别显示三个数.
一个Command1 用来每点一次刷新一次.
三个数只要不是重复就可以了,不用大小顺序什么的.
请写出完整程序 ,最好带上注释.我是小白,谢谢……分不多了,只能给这点
![](http://img.wesiedu.com/upload/0/89/089cb545bfefe8161971407994d8fad9.jpg)
3个TEXT用来分别显示三个数.
一个Command1 用来每点一次刷新一次.
三个数只要不是重复就可以了,不用大小顺序什么的.
请写出完整程序 ,最好带上注释.我是小白,谢谢……分不多了,只能给这点
![](http://img.wesiedu.com/upload/0/89/089cb545bfefe8161971407994d8fad9.jpg)
![用VB从1-12这12个数中随机生成3个互不重复的数](/uploads/image/z/6918514-34-4.jpg?t=%E7%94%A8VB%E4%BB%8E1%EF%BC%8D12%E8%BF%9912%E4%B8%AA%E6%95%B0%E4%B8%AD%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%903%E4%B8%AA%E4%BA%92%E4%B8%8D%E9%87%8D%E5%A4%8D%E7%9A%84%E6%95%B0)
private sub command1_click()
randomize
dim a as integer ,b as integer ,c as integer
a=int(rnd*12)+1
text1=a
do
b=int(rnd*12)+1
loop until ba
text2=b
do
c=int(rnd*12)+1
loop until cb and ca
text3=c
end su
randomize
dim a as integer ,b as integer ,c as integer
a=int(rnd*12)+1
text1=a
do
b=int(rnd*12)+1
loop until ba
text2=b
do
c=int(rnd*12)+1
loop until cb and ca
text3=c
end su
用VB从1-12这12个数中随机生成3个互不重复的数
vb中如何生成20个互不相同的两位随机整数?
vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数.
vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数
VB 编写程序,生成10个无重复数(即互不相等)的两位随机数
VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素
VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?
从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写
从1到11随机抽取五个数(不可重复),然后再从这个5个数中抽取不重复的两个数,概率是多少呢
从1,2.,3,4,5,6这6个数中,随机抽取2个不同的数,则这2个数的和为偶数的概率是
请问:如何用Matlab语言编写在N个数中随机选m个互不相同的数!
从1,2,3,9这九个数字中随机取3个(可重复)排成一个三位数,此数大于456的概率是多少?