Private Sub Command1_Click()
<br>
Randomize Now
<br>
<br>
Dim a(5) As Integer
<br>
<br>
Cls
<br>
For i = 0 To 5
<br>
c = True
<br>
Do While (c)
<br>
a(i) = Rnd * 45 + 1
<br>
<br>
For j = 0 To i - 1
<br>
If a(j) = a(i) Then Exit For
<br>
Next j
<br>
<br>
c = (j < i)
<br>
Loop
<br>
<br>
Print a(i)
<br>
Next i
<br>
End Sub
<br>
<br>
'이런 댓글에는 소스가 줄바꿈이 안되서 답글에서 다시 작성합니돠!! 참고하세요
<br>
<!-- -->
첫댓글 아!! 텍스트 박스를 이용한 소스는 구찮으니깐 패쑤~~~~