[비쥬얼 베이직] 로또 비쥬얼베이직 프로그램
- 최초 등록일
- 2004.04.28
- 최종 저작일
- 2004.04
- 4페이지/ 한컴오피스
- 가격 1,000원
소개글
부자되세요.
목차
없음
본문내용
Do
l2(1) = Int(Rnd * 45) + 1
l2(2) = Int(Rnd * 45) + 1
l2(3) = Int(Rnd * 45) + 1
l2(4) = Int(Rnd * 45) + 1
l2(5) = Int(Rnd * 45) + 1
l2(6) = Int(Rnd * 45) + 1
Loop Until (l2(1) <> l2(2) And l2(1) <> l2(3) And _
l2(1) <> l2(4) And l2(1) <> l2(5) And l2(1) <> l2(6) And _
l2(2) <> l2(3) And l2(2) <> l2(4) And l2(2) <> l2(5) And _
l2(2) <> l2(6) And l2(3) <> l2(4) And l2(3) <> l2(5) And _
l2(3) <> l2(6) And l2(4) <> l2(5) And l2(4) <> l2(6) And _
l2(5) <> l2(6))
List2.AddItem l2(1) & " " & l2(2) & " " & l2(3) & " " & l2(4) & " " _
& l2(5) & " " & l2(6)
Do
l3(1) = Int(Rnd * 45) + 1
참고 자료
없음