Question

vb中，想要随机输出1-9这9个数字，并且在同一次输出时做到每个数字都各不重复，怎么编程？【可以用

vb中，想要随机输出1-9这9个数字，并且在同一次输出时做到每个数字都各不重复，怎么编程？【可以用数组】

Answer 1

Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer, j As Integer
For i = 1 To 9
a(i) = i
Next
For i = 1 To 8
Randomize
j = Int(Rnd() * (10 - i)) + 1
a(0) = a(10 - i)
a(10 - i) = a(j)
a(j) = a(0)
Next

For i = 1 To 9
Print a(i);
Next
Print
End Sub

Answer 2

dim a(1 to 9) as integer
dim i%,r%,tmp%
'生成数组
for i=1 to 9
    a(i)=i
next
'打乱顺序
for i=1 to 8
    r=int(rnd*9)+1
    tmp=a(i)
    a(i)=a(r)
    a(r)=tmp
next
'输出
for i=1 to 9
    print a(i);space(1);
next

Answer 3

Sub Command1_Click ()
Static a(9)
Randomize
Let a(1) = Int(Rnd * 9) + 1
For i = 2 To 9
   Let k = 1
   Do While k > 0
      Let k = 0
      Let x = Int(Rnd * 9) + 1
      For j = 1 To i - 1
         If x = a(j) Then Let k = k + 1
      Next j
      If k = 0 Then
         Let a(i) = x
      End If
   Loop
Next i
For i = 1 To 9
   Print a(i);
Next i
Print
End Sub