#19강 - 로또 번호 만들기

반올림함수와 난수발생함수 그리고 배열과 FOR문을 활용하여 다음의 문제를 풀어보도록 하죠.

정답 확인 전에 두뇌를 충분히 풀가동해서 스스로 풀어보도록 하세요.

이런 연습이 바로 알고리즘입니다.

1) 총 6개의 난수를 발생

2) 0에서 10까지의 정수로 변환

3) 셀 2행 2열부터 7열까지 출력

Sub F19_01()

Dim RAND_ARR(5) As Double

Dim I As Integer

For I = 0 To 5

RAND_ARR(I) = Rnd()

RAND_ARR(I) = RAND_ARR(I) * 10

RAND_ARR(I) = Round(RAND_ARR(I))

Worksheets(“Sheet1”).Cells(2, I + 2).Value = RAND_ARR(I)

Next

End Sub

모든 코드를 작성할 때는 문제를 한 번에 해결하려는 욕심을 버려야 합니다. 

즉 단계별로 하나씩 처리해 나가라는 의미입니다.

먼저 배열변수의 크기는 0부터 시작되므로 5입니다. 

위 코드 풀이처럼 배열변수를 선언하고 반복문을 통해 자동증가변수 I가 1씩 증가할 때마다 난수를 발생시켰습니다. 

이를 양의 정수로 출력하기 위해 10을 곱하여 출력합니다. 

그리고 마지막으로 ROUND 함수를 이용하여 최종값을 도출해냅니다. 

그 결과를 셀 2행 2열부터 변수 I를 이용하여 출력하였습니다.

https://youtu.be/ix3swZc_u88