产生10个1到20之间没有重复的随机整数
来源:百度知道 编辑:UC知道 时间:2024/06/06 18:18:58
Private Sub Form_Load()
Dim a(10) As Integer
Randomize
a(1) = Int(20 * Rnd + 1)
k = 1
Do While k < 10
x = Int(20 * Rnd + 1)
f = 0
For j = 1 To k
If a(j) = x Then
f = -1
Exit For
End If
Next j
If f = 0 Then
k = k + 1
a(k) = x
End If
Loop
Show
For j = 1 To 10
Print a(j)
Next j
End Sub
产生1-10之间不重复,不遗漏的随机数字java 程序
随即产生50个1-50之间的不重复的数用C语言如何编写程序?
delphi怎么产生1到10之间的有机数
java中怎么实现产生1到10之间的5个随机数,我的程序怎么不对啊?
VB一次产生1个1至10的随机数,不重复,完成后停止
如何用BASIC语言编写 随机生成5个不重复的1到10之间的整数并输出的程序
vb 随机产生10个[10~100]之间整数,按升序输出到label1控件中
用c 编程产生20个700到900之间的随机整数
怎样用vb产生200个0到1之间均匀分布随机数和
自定义函数及使用rand()函数,产生13个0到51没有重复的随机数,分别存于数组suit中,并输出13个数。