질문

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

만다그라함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)까지중에 겹치는게 잇으면 난수를 다시 발생시키고 다시 배열시킨담에 또 같은게 들어 잇으면

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

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

    • 글자 크기
youtube to mp3 쓰시는분?? (by 안동사과) 지성문구~정문사이에서 (by 흐켱흐켱흐켱)

댓글 달기

  • 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
28294 질문 ㄱㅖ절학기책 사야하는건가요??6 나는짱짱맨이다 2013.06.02
28293 가벼운글 아침 배달해 먹을만한 곳 없나여..2 흔한자취생 2013.06.02
28292 질문 학교에 절단기 구할 곳 엄나요3 망디망디 2013.06.02
28291 질문 매트랩에 관해서 질문좀요..ㅜㅜ4 아피너누야리 2013.06.02
28290 가벼운글 예전에 기억은 잘 안나지만... 중도 건도9 내가바로기다리던그 2013.06.02
28289 가벼운글 [레알피누] 라붐 노래들2 애나 2013.06.02
28288 질문 계절수업 등록금이요~3 기다려2020 2013.06.01
28287 가벼운글 youtube to mp3 쓰시는분??2 안동사과 2013.06.01
질문 비쥬얼 잘하시는분들 좀 도와주세요2 만다그라함 2013.06.01
28285 진지한글 지성문구~정문사이에서6 흐켱흐켱흐켱 2013.06.01
28284 질문 학습심리 월수 10시30분 분반 !!3 우쿨렐레 2013.06.01
28283 질문 오늘 밤에 중도 자리 정리하나요??? bibi16 2013.06.01
28282 질문 범죄자의 인권을 보호하는 문제에 대해서5 막스운트모리츠 2013.06.01
28281 질문 우리학교 다니는 외국인 학생분들8 Dominico 2013.06.01
28280 질문 고학번분들이나 복학생분들께 질문드립니다!2 야후 2013.06.01
28279 질문 금요일 오전 유럽연합의 이해 수업들으시는분들 도와주세요~ 행시합격 2013.06.01
28278 질문 학교근처에 정신건강검진받을 수 있는 곳 있나요15 예대짜응 2013.06.01
28277 가벼운글 에효.. 영창갔다왓음 ㅠ...12 s팬s 2013.06.01
28276 진지한글 북문 미니스톱 편의점 근처에서 지갑 주으신 분 ㅜㅜ 그런치 2013.06.01
28275 질문 역학질믕이요 ㅠㅠ5 공돌공돌 2013.06.01
첨부 (0)