소개글

비주얼 베이직 6로 제작한 중복되지 않는 난수를 생성하는 소스(주석 설명 포함)입니다.

1에서 200까지의 수를 중복되지 않게 랜덤으로 뽑아내는 소스로 두가지 방법으로 구현되어 비교할 수 있도록 하였습니다.

컴파일 실행환경

Microsoft Visual Basic 6
Windows XP

본문내용

<b>frmMain.frm
prjRandom.vbp</b>

`첫번째 방법
`임의의 난수를 생성한 다음 현재까지 생성된 수 중 동일한 수가 있는지 체크한 후
`그 생성된 수가 새로운 수라면 추가한다.

`장점 : 가장 적은 메모리를 사용하여 처리할 수 있다.
`단점 : 개수가 커질수록 속도가 느려진다.
Private Sub cmdMake1_Click()
`리스트박스 데이터를 지운다
lstNumbers.Clear

Dim i As Integer
Dim j As Integer
Dim num As Integer
Dim alreadyexist As Boolean

`난수 seed를 초기화한다.
Randomize Timer

`난수 생성
For i = 1 To 200
num = Int(Rnd() * 200) + 1

압축파일 내 파일목록

참고 자료

없음