VB 编写程序,生成10个无重复数(即互不相等)的两位随机数Private Sub Command1_Click()Dim a(10) As Integer,n As IntegerDim i As Integer,k As IntegerRandomizea(1) = Int(Rnd * 90) + 10k = 1Don=___for____if____then exit forNext iif _
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 08:13:51
![VB 编写程序,生成10个无重复数(即互不相等)的两位随机数Private Sub Command1_Click()Dim a(10) As Integer,n As IntegerDim i As Integer,k As IntegerRandomizea(1) = Int(Rnd * 90) + 10k = 1Don=___for____if____then exit forNext iif _](/uploads/image/z/3942247-31-7.jpg?t=VB+%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E7%94%9F%E6%88%9010%E4%B8%AA%E6%97%A0%E9%87%8D%E5%A4%8D%E6%95%B0%EF%BC%88%E5%8D%B3%E4%BA%92%E4%B8%8D%E7%9B%B8%E7%AD%89%EF%BC%89%E7%9A%84%E4%B8%A4%E4%BD%8D%E9%9A%8F%E6%9C%BA%E6%95%B0Private+Sub+Command1_Click%28%29Dim+a%2810%29+As+Integer%2Cn+As+IntegerDim+i+As+Integer%2Ck+As+IntegerRandomizea%281%29+%3D+Int%28Rnd+%2A+90%29+%2B+10k+%3D+1Don%3D___for____if____then+exit+forNext+iif+_)
VB 编写程序,生成10个无重复数(即互不相等)的两位随机数Private Sub Command1_Click()Dim a(10) As Integer,n As IntegerDim i As Integer,k As IntegerRandomizea(1) = Int(Rnd * 90) + 10k = 1Don=___for____if____then exit forNext iif _
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
帮我补充一下
VB 编写程序,生成10个无重复数(即互不相等)的两位随机数Private Sub Command1_Click()Dim a(10) As Integer,n As IntegerDim i As Integer,k As IntegerRandomizea(1) = Int(Rnd * 90) + 10k = 1Don=___for____if____then exit forNext iif _
两种方法
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 Sub