从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/15 07:48:48
从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写
怎么这么乱啊,就是随机生成7个不重复的数,在0到9这10个数里
怎么这么乱啊,就是随机生成7个不重复的数,在0到9这10个数里
![从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写](/uploads/image/z/6918511-31-1.jpg?t=%E4%BB%8E0%E5%88%B09%E9%87%8C%E9%9D%A2%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%907%E4%B8%AA%E6%95%B0%2C%E8%A6%81%E4%B8%8D%E9%87%8D%E5%A4%8D%E7%9A%847%E4%B8%AA%E6%95%B0%2C%E7%84%B6%E5%90%8E%E6%98%BE%E7%A4%BA%E5%87%BA%E6%9D%A5%2CVB%E7%A8%8B%E5%BA%8F%E5%BA%94%E8%AF%A5%E6%80%8E%E4%B9%88%E5%86%99)
'在窗体上点击
Private Sub Form_Click()
Dim I,J As Integer
Dim a(7),B(7) As Integer
Randomize
a(0) = Int(Rnd() * 10)
For I = 1 To 6
a(I) = Int(Rnd() * 10)
For J = 0 To I - 1
If a(J) = a(I) Then
J = 7
I = I - 1
End If
Next J
Next I
For I = 0 To 6
Print a(I) & " ";
Next I
Print
End Su
Private Sub Form_Click()
Dim I,J As Integer
Dim a(7),B(7) As Integer
Randomize
a(0) = Int(Rnd() * 10)
For I = 1 To 6
a(I) = Int(Rnd() * 10)
For J = 0 To I - 1
If a(J) = a(I) Then
J = 7
I = I - 1
End If
Next J
Next I
For I = 0 To 6
Print a(I) & " ";
Next I
End Su
从0到9里面随机生成7个数,要不重复的7个数,然后显示出来,VB程序应该怎么写
用VB从1-12这12个数中随机生成3个互不重复的数
VB 程序 计算从1到12260之间所有的能同时整除3,7,9的整数的个数
vb语句 设计一个随机数程序,生成10个范围是1到100随机整数,并求出这10个数的最大值,最小值和平均数
从1到11随机抽取五个数(不可重复),然后再从这个5个数中抽取不重复的两个数,概率是多少呢
VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?
编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值.
排列组合算法程序用C.C++.asp.或者jsp.vb.随便一种语言.输出1到33.33个数.从中选6个数.不重复.输出
用VB如何写1到100之间所有能被3整除而不能被7整除的整数的和与个数的程序
怎么用vb随机生成1~10000的10000个数,在按1~1000 1001~2000 2001~3000 9001~1
vb随机数 1000 没次随机出现1个数,1000次内不出现重复的数
随机产生100个数,统计出能被3和7整除的数字,然后从小到大排序打印出来(Java语言)急