질문

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

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

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

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

    • 글자 크기
겨울계절 스노우보드 신청 어떻게 하나요?? (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
65823 가벼운글 교수님들2 코용 2012.10.20
65822 질문 .2 smile! 2016.06.13
65821 질문 겨울계절 스노우보드 신청 어떻게 하나요??2 헤이요요 2012.11.03
질문 비쥬얼 잘하시는분들 좀 도와주세요2 만다그라함 2013.06.01
65819 가벼운글 [레알피누] 수강신청2 데헷데헷데헷 2017.08.06
65818 가벼운글 성적 기준이 A+ ~ A0가 30%인데요.. A+은 몇 %까지인가요?2 김밥 2012.07.21
65817 질문 부산대 근처 세계과자파는곳2 얼마전까진수험생 2018.04.23
65816 가벼운글 ㅜㅠ 편입생 강의후기 하나만 보여주실분 계실까요 ㅠ2 아우렐리 2016.10.09
65815 질문 .2 시바견 2018.04.11
65814 질문 오늘 4시30분 증권시장론2 아꾸 2018.03.05
65813 가벼운글 노스 호피패딩 나왔네요 ㅋㅋ2 비가내리고 2011.11.27
65812 질문 [레알피누] 2월졸업이면 겨울방학 계절까지 듣고 졸업 가능한가요?2 내랩은방패창의적 2018.11.14
65811 질문 우리학교에서 행시준비하시는 분들은2 빗자루 2011.09.25
65810 질문 [레알피누] 영어기초능력진단평가 성적문의를 어디에 해야할까요?2 루삥뽕 2020.07.23
65809 가벼운글 심심해요2 어멍 2011.09.25
65808 가벼운글 교내근로 됐네요 ㅎㅎ2 비회원 2012.02.28
65807 가벼운글 서면에 축구볼수있는 큰 스크린있는 술집 아시는분!!2 중도박이 2018.06.23
65806 질문 학식 몇시까지하나요?2 이니스 2012.11.23
65805 질문 찾살떡2 신속교 2018.11.05
65804 가벼운글 궁금하다고2 후아햐우 2012.03.27
첨부 (0)