如何用vb编个 每次产生的随机数与之前产生过的都不同?求代码
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/12 05:48:27
如何用vb编个 每次产生的随机数与之前产生过的都不同?求代码
Private Sub Command1_Click()
Text1.Text = ""
Dim A(1 To 20)
For I = 1 To 20
Randomize: Randomize
A(I) = Int(Rnd * 90 + 10)
Next I
'下面对数组排序
For I = 1 To 19
For J = 1 To 20 - I
If A(J) > A(J + 1) Then
XX = A(J)
A(J) = A(J + 1)
A(J + 1) = XX
End If
Next J
Next I
'下面判断是否有重复数据,有后面数据+1
For I = 1 To 19
For J = 1 To 20 - I
If A(J) = A(J + 1) Then
A(J + 1) = A(J + 1) + 1
End If
Next J
Next I
For I = 1 To 20
Text1.Text = Text1.Text & A(I) & Space(4)
Next I
End Su
Text1.Text = ""
Dim A(1 To 20)
For I = 1 To 20
Randomize: Randomize
A(I) = Int(Rnd * 90 + 10)
Next I
'下面对数组排序
For I = 1 To 19
For J = 1 To 20 - I
If A(J) > A(J + 1) Then
XX = A(J)
A(J) = A(J + 1)
A(J + 1) = XX
End If
Next J
Next I
'下面判断是否有重复数据,有后面数据+1
For I = 1 To 19
For J = 1 To 20 - I
If A(J) = A(J + 1) Then
A(J + 1) = A(J + 1) + 1
End If
Next J
Next I
For I = 1 To 20
Text1.Text = Text1.Text & A(I) & Space(4)
Next I
End Su
如何用VB产生一个每次都不一样的随机数啊,用rnd的话只能产生一个固定的数字
求vb随机数代码我又厚着脸皮来了,继续求随机数代码,求一段vb代码,三个text文本框,其中前两个为随机数产生的范围,如
如何用VB产生2~99之间的1次1个随机数,可以重复的,另外求如何用VB产生1~n之间的1次20个随机数
急求vb代码 单击“开始”按钮后每隔0.01秒产生2个随机数10-99之间的随机数
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
如何用matlab编一个随机数啊,例如编1000+—300,产生五十个随机数,
如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~
如何用vB程序随机产生30个不同的字母?
用VB在1-100中产生10个随机整数,按从小到大的顺序排列 如题..求代码
vb中产生随机数的到底是哪个公式?我怎么两个都看到过?
VB编程产生100个[10,99]的随机数
用VB编一个程序,随机产生10个100以内的不同的偶数