질문 비주얼베이직고수님들 로또생성기 질문..
꾸이이이익
- 2013.06.12. 17:06
- 3384
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j, t As Integer
Dim a(6) As Integer
For i = 0 To 6
a(i) = Int(Rnd() * 45 + 1)
For j = 1 To i - 1
Do While a(i) = a(j)
a(i) = Int(Rnd() * 45 + 1)
Loop
For l = i + 1 To 6
If (a(i) < a(l)) Then
t = a(i)
a(i) = a(l)
a(l) = t
End If
Next
Next
TextBox1.Text = TextBox1.Text & " " & a(i) & vbCrLf
Next
로또생성에서 내림차순으로 정렬까지 해야하는데요,
중복피하면서 로또숫자 6개생성까지는 잘 되는데
그뒤로 내림차순으로 정렬하는게 잘 안되네요 실행은 되는데 정렬이 안되어있는 채로 나와요ㅜㅜ
저 식에서 어디가 잘못되었나요??
권한이 없습니다.
이 게시물을 삭제하시겠습니까?
숫자 한 개 출력 하고, 또 번호 하나 추첨해서 출력하고, 또 하나 추첨해서 출력하고..
전체를 정렬하기 전에 숫자를 하나씩 출력시켜 버리기 때문에 그렇고요..
전체적으로 좀 잘못되고 비효율적으로 되어 있는 것 같은데..
중복되지 않은 숫자 6개를 배열에 저장하는 부분,
배열에 저장된 숫자를 내림차순으로 정렬하는 부분,
출력하는 부분
으로 나누어서 만드시면 좋을 것 같아요. 각각을 for next 문으로 묶어서..