Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim chk As Boolean
n = Val(Text1.Text)
ReDim a(n) As Integer
Randomize
chk = False
a(1) = Int(Rnd * n) + 1
For j = 2 To n
Do
a(j) = Int(Rnd * n) + 1
For i = 1 To j - 1
If a(i) = a(j) Then
chk = True
Exit For
Else
chk = False
End If
Next i
Loop Until (chk = False)
Next j
For i = 1 To n
Print a(i)
Next
End Sub
[해결방법]
- 1. 9 -> Text의 값에서 입력받은 값으로 바꿈..(이것만 해줘음니당)
- 2. 배열을 동적 생성하여 Rnd값을 비교하여 다르면 기억시킴.
아닐 경우. 다시 재 Rnd값을 발생시킴... 여기까지는 되어 있음