VB 编写程序,生成10个无重复数(即互不相等)的两位随机数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/03 06:11:43
VB 编写程序,生成10个无重复数(即互不相等)的两位随机数
Private Sub Command1_Click()
Dim a(10) As Integer,n As Integer
Dim i As Integer,k As Integer
Randomize
a(1) = Int(Rnd * 90) + 10
k = 1
Do
n=___
for____
if____then exit for
Next i
if ___ then
k=____
a(k) = n
End If
loop ___
For i = 1 To 10
Text1 = Text1 & Str(a(i))
Next i
End Sub
帮我补充一下
Private Sub Command1_Click()
Dim a(10) As Integer,n As Integer
Dim i As Integer,k As Integer
Randomize
a(1) = Int(Rnd * 90) + 10
k = 1
Do
n=___
for____
if____then exit for
Next i
if ___ then
k=____
a(k) = n
End If
loop ___
For i = 1 To 10
Text1 = Text1 & Str(a(i))
Next i
End Sub
帮我补充一下
两种方法
1 补充你的算法,
Private Sub Command1_Click()
Dim a(10) As Integer,n As Integer
Dim i As Integer,k As Integer
Randomize
a(1) = Int(Rnd * 90) + 10
k = 1
Do
n = Int(Rnd * 90) + 10
For i = 1 To 10
If a(i) = n Then Exit For
Next i
If i > 10 Then
k = k + 1
a(k) = n
End If
Loop While k < 10
For i = 1 To 10
Text1 = Text1 & Str(a(i))
Next i
End Sub
2利用集合
Private Sub Command1_Click()
Dim Zjh As New Collection
Dim Tempjh As New Collection
Dim i As Integer,k As Integer
For i = 10 To 99
Zjh.Add i
Next
For i = 1 To 10
Randomize
k = Int(Rnd() * Zjh.Count + 1)
Tempjh.Add Zjh(k)
Zjh.Remove k
Next
For i = 1 To Tempjh.Count
Text1 = Text1 & Tempjh(i)
Next
End Su
1 补充你的算法,
Private Sub Command1_Click()
Dim a(10) As Integer,n As Integer
Dim i As Integer,k As Integer
Randomize
a(1) = Int(Rnd * 90) + 10
k = 1
Do
n = Int(Rnd * 90) + 10
For i = 1 To 10
If a(i) = n Then Exit For
Next i
If i > 10 Then
k = k + 1
a(k) = n
End If
Loop While k < 10
For i = 1 To 10
Text1 = Text1 & Str(a(i))
Next i
End Sub
2利用集合
Private Sub Command1_Click()
Dim Zjh As New Collection
Dim Tempjh As New Collection
Dim i As Integer,k As Integer
For i = 10 To 99
Zjh.Add i
Next
For i = 1 To 10
Randomize
k = Int(Rnd() * Zjh.Count + 1)
Tempjh.Add Zjh(k)
Zjh.Remove k
Next
For i = 1 To Tempjh.Count
Text1 = Text1 & Tempjh(i)
Next
End Su
VB 编写程序,生成10个无重复数(即互不相等)的两位随机数
怎么用VB编写点生成按钮产生1000个8位不重复的随机数呢?
用vb怎样生成10个不重复的(1到10)随机数?
C语言随机数序列编程:用C语言程序编写.生成随机数序列.范围:1-15要求生成1-15的随机序列,中间无重复
vb中如何生成20个互不相同的两位随机整数?
如何用C语言编写出 生成10个1到20不重复的随机数.直接完整程序就好了,
VB生成不重复的随机数
用VB从1-12这12个数中随机生成3个互不重复的数
vb编写一个用于求随机数的程序
用vb编写一个用于求随机数的程序,
用C语言编写有1,2,3,4四个数,能组成多少个互不相同且无重复数字的三位数,都是多少
VB 编写一段程序能够输出10个14至19之间的可带有一位小数的随机数,并输出平均值.