질문

비주얼베이직고수님들 로또생성기 질문..

꾸이이이익2013.06.12 17:06조회 수 3311댓글 2

    • 글자 크기
  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개생성까지는 잘 되는데
그뒤로 내림차순으로 정렬하는게 잘 안되네요 실행은 되는데 정렬이 안되어있는 채로 나와요ㅜㅜ
 저 식에서 어디가 잘못되었나요??
    • 글자 크기
그가 돌아왔다 ㅋㅋㅋㅋㅋㅋ (by 비밀번호) 성과사랑의철학 양창아교수님 (by 투명)

댓글 달기

  • 숫자 한 개 출력 하고, 또 번호 하나 추첨해서 출력하고, 또 하나 추첨해서 출력하고..
    전체를 정렬하기 전에 숫자를 하나씩 출력시켜 버리기 때문에 그렇고요..
    전체적으로 좀 잘못되고 비효율적으로 되어 있는 것 같은데..

    중복되지 않은 숫자 6개를 배열에 저장하는 부분,
    배열에 저장된 숫자를 내림차순으로 정렬하는 부분,
    출력하는 부분

    으로 나누어서 만드시면 좋을 것 같아요. 각각을 for next 문으로 묶어서..

  • @조선비
    낼 다시 해봐야겟네요 감사합니당!
번호 분류 제목 글쓴이 날짜
공지 정보 욕설/반말시 글쓰기 권한 영구 정지3 쓰레받기 2019.01.26
공지 가벼운글 자유게시판 이용규칙 (2018/09/30 최종 업데이트) - 학생회 관련 게시글, 댓글 가능2 빗자루 2013.03.05
28684 진지한글 .3 혼전순결남 2013.06.13
28683 질문 공대 행정실이 어디있나요??3 말랑말랑 2013.06.13
28682 가벼운글 나는군대갔다와서머가바껐다!! 머있을까요??11 그랬군그랬어 2013.06.13
28681 질문 요새도 찰스형님 아직 계신가요??2 부대일사 2013.06.13
28680 가벼운글 쏜애플-이유1 술링 2013.06.13
28679 질문 24시간 하는 복사집 없나요 ㅠㅠ3 blackmuzic 2013.06.13
28678 진지한글 -22 ㅁㄴㅇㄹ 2013.06.12
28677 질문 학교근처에 옷수선하는곳2 mosgns 2013.06.12
28676 질문 컴퓨터 공학과 관련 질문이요~6 으엌 2013.06.12
28675 가벼운글 어제 밤 중도앞에서 병맥주 까신 분들...5 싸랑해누나~ 2013.06.12
28674 가벼운글 중도의 학우 여러분3 플유 2013.06.12
28673 가벼운글 중도는4 squizing 2013.06.12
28672 가벼운글 진짜..프라이머리 사단 노래 다 좋네요 너무 좋아요9 흔한자취생 2013.06.12
28671 질문 언어교육원 영어회화수업 들어보신 분 있으신가요?2 모찌 2013.06.12
28670 질문 부대 근처에서 검도장 괜찮은 곳 있나요?11 가이웃 2013.06.12
28669 질문 언교에서 하는 언어교환도우미 해보신분 있나요?4 두개의 달 2013.06.12
28668 질문 계절학기 돈어디다넣나요??ㅠㅠ4 나는짱짱맨이다 2013.06.12
28667 질문 웅비관 5층인가 중앙계단쪽 비상계단에서 반지 잃어버리신분3 ㅎㄳㅇㅅ 2013.06.12
28666 가벼운글 그가 돌아왔다 ㅋㅋㅋㅋㅋㅋ2 비밀번호 2013.06.12
질문 비주얼베이직고수님들 로또생성기 질문..2 꾸이이이익 2013.06.12
첨부 (0)