본문 바로가기
IT정보/비주얼베이직

[비주얼베이직] (문법) For문 다중 반복문 사용하기

by 곰사랑 2011. 7. 16.

For문으로 다중반복문을 사용하여 구구단을 출력해보겠습니다.

이렇게 디자인 해주세요



Command1 을 더블클릭해서 코드창을 열어주세요


소스
Private Sub Command1_Click()
For a = 1 To 9
Print
Print a & "단"
Next
End Sub

F5을 눌러 확인해 볼까요?

1~9단이 출력되었습니다.

소스 에서
3번째 줄 print를 빼볼까요?

Private Sub Command1_Click()
For a = 1 To 9
Print '<<빼서 소스작성해보세요
Print a & "단"
Next
End Sub

위 사진이랑 차이점이 있죠??

이런식으로 활용을 해보세요 그래야 실력이 늡니다

요기까지 대충 활용을 해보셨으면 구구단을 출력해보겠습니다.


소스
Private Sub Command1_Click()        '// 커맨드1 를 클릭하면
For a = 1 To 9            '//1~9
Print     
Print a & "단"
For b = 1 To 9            '// b의 값이 9번 변경되는 작업을 a가 9번 변경되는 동안 실행된다.
출력문자 = a & "*" & b & "=" & a * b & " "                       '//a 1~9 , * 곱하기, b 1~9, 즉 a*b
Print Format(출력문자, "@@@@@@@@@");               '// 출력값을 형식에 맞추어 정렬하여 출력
Next b       '변수
Next a       '변수
End Sub

구구단 출력완성



구구단 출력 예제





역시 비주얼베이직 문법은 어렵습니다 ㅠㅠ 많이 연습해야 겠습니다

댓글