질문

비쥬얼 잘하시는분들 좀 도와주세요

만다그라함2013.06.01 23:04조회 수 1024댓글 2

    • 글자 크기

Dim lot(6), t As Integer

        For i = 1 To 6
            Randomize()
            lot(i) = CInt(Int((45 * Rnd()) + 1))
        Next
        For i = 1 To 5
            For j = (i + 1) To 6
                If lot(i) > lot(j) Then
                    t = lot(i)
                    lot(i) = lot(j)
                    lot(j) = t
                End If
            Next
        Next
        For o = 1 To 5
            For p = (o + 1) To 6
                If lot(o) = lot(p) Then
                    For k = 1 To 6
                        Randomize()
                        lot(k) = CInt(Int((45 * Rnd()) + 1))
                    Next k
                    For l = 1 To 5
                        For m = (l + 1) To 6
                            If lot(l) > lot(m) Then
                                t = lot(l)
                                lot(l) = lot(m)
                                lot(m) = t
                            End If
                                Next m
                    Next l
                Else
                End If
            Next p
        Next o
        TextBox1.Text = ""
        For i = 1 To 6
            TextBox1.Text = TextBox1.Text & lot(i) & vbCrLf
        Next

 

로또 생성프로그램을 짤려고 하는데 제 머리로는 아무리짜도 똑같은 숫자가 가끔 나오는데

lot(1)~lot(6)까지중에 겹치는게 잇으면 난수를 다시 발생시키고 다시 배열시킨담에 또 같은게 들어 잇으면

다시 난수를 발생시키고 배열시키고 같은 숫자가없으면 무한루프를 그만두는 이런식으로 프로그래밍을 해야될것 같은데

아무리 해도 안되는데 어떻게 해야할까요??

    • 글자 크기

댓글 달기

  • Sub check(A() As Integer, n As Integer, f As Boolean)
    Dim i As Integer, j As Integer
    f = True
    For i = 1 To n
    For j = 1 To n
    If (i = j) Then
    GoTo a100
    End If
    If (A(i) = A(j)) Then
    f = False
    End If
    a100:
    Next j
    Next i
    End Sub

    Boolean변수 하나 선언하시고 초기값 false로 두신담에
    while(Boolean변수=false)
    {
    배열생성
    call check(배열,배열크기,Boolean변수)
    }
    하시면 될거같네요
  • @이야호
    만다그라함글쓴이
    2013.6.2 12:38
    답변 감사합니다 근데 무슨말인지 모르겟어요 ㅠㅠ
번호 분류 제목 글쓴이 날짜
공지 정보 욕설/반말시 글쓰기 권한 영구 정지3 쓰레받기 2019.01.26
공지 가벼운글 자유게시판 이용규칙 (2018/09/30 최종 업데이트) - 학생회 관련 게시글, 댓글 가능2 빗자루 2013.03.05
34211 질문 화목 4시30분 리더쉽 호박나무님아12 2015.12.08
34210 질문 프랑스어 월수9시3 wlals516 2015.12.08
34209 질문 화목 4시반 한국문화유산 시험 언제인가요3 샤리 2015.12.08
34208 질문 정역학 포함 기계과전공7 ..ㅎ.ㅎ 2015.12.08
34207 질문 한 학기에 한 과목 들어도 등록금 전액 내요?1 ㅍ_ㅍ 2015.12.08
34206 질문 1시반 지구와자원 수업 들으시는분ㅜㅜ joo3oo 2015.12.08
34205 질문 건도 오늘 자율석인가용? 쀵쀵쀵 2015.12.08
34204 질문 논술도우미1 HJ_J 2015.12.08
34203 질문 기숙사에서 피자를 시켜먹고 싶은데...13 diakslx 2015.12.08
34202 질문 한국경제사 13:30분 수업 장지용 교수님 시험 일정11 알라 2015.12.08
34201 질문 ㅈㄱㅈ교수님 조직관리론 시험범위!! 하하핳ㅎ 2015.12.08
34200 질문 리더십개발과 훈련 화목 변상우교수님 안녕나의사랑 2015.12.08
34199 질문 프랑스어 월수10시반 곽동준교수님 회화1 찌지미 2015.12.08
34198 질문 법경제학 질문 가가루마니무 2015.12.08
34197 질문 환경과방사능1 아이누 2015.12.08
34196 질문 월수 사회조사방법론 10시 30분 수업이요ㅜㅜ2 dksljd 2015.12.08
34195 질문 계절학기 등록금 질문1 야구왕 2015.12.08
34194 질문 수요일 1시 정보기술활용 상큼한안개꽃 2015.12.08
34193 질문 졸업반인데 교수상담 안받으면 졸업못하나요?2 오늘도자체휴강 2015.12.08
34192 질문 순수학습동아리 지원금 봉바장주 2015.12.08
첨부 (0)