从1--30自然数中随机取出6个不重复的数,如何用VB程序实现?
来源:百度知道 编辑:UC知道 时间:2024/07/06 15:34:59
从1--30自然数中随机取出6个不重复的数,如何用VB程序实现?
Private Sub Command1_Click()
Dim MyValue
Dim a(5)
For i = 0 To 5
ttt:
Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int((30 * Rnd) + 1) ' 生成 1 到 30 之间的随机数值。
For j = 0 To i
If a(j) = MyValue Then GoTo ttt '如果有相同数就重新生成一个
Next j
'如果没有重复就记录到数组
a(i) = MyValue
Next i
For i = 0 To 5
s = s & a(i) & ","
Next i
Print s
End Sub
从1至100的自然数中,每次取出不同的自然数两个进行相加,
从1至100的自然数中,每次取出两个不同的自然数相加,使其和大于100.有几种取法?
怎样从符合要求的数据库记录中随机取出5条记录?
从1~100的自然数中~
.从1,2,3……10这10个自然数中,每次取出不同的两个,使它们的乘积是6的倍数,则不同的取法总数是
从1-100的自然数数中,每次取出两个不同的自然数相加,使其和大于100,共有几种不同的取法?
从1到100这100个自然数中,每次取出3个数,使这3个数成等差数列,共有多少种取法?
从1,3,5,7...,199这100个自然数中取出若干个数.使得在所取出的数中,任何一个数都不是另一个数的
1~100这100个自然数中,至少取出几个数,才能保证取出的数中有一个是质数?
数字从1到30中取出6个数字.有多少种方法??