검색어 입력폼

[비쥬얼 베이직] 로또 비쥬얼베이직 프로그램

등록일 2004.04.28 한글파일한글 (hwp) | 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
다운로드 맨위로