For문으로 다중반복문을 사용하여 구구단을 출력해보겠습니다.
이렇게 디자인 해주세요
Command1 을 더블클릭해서 코드창을 열어주세요
소스
Private Sub Command1_Click()
For a = 1 To 9
Print
Print a & "단"
Next
End Sub
For a = 1 To 9
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
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
For a = 1 To 9 '//1~9
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
구구단 출력완성
구구단 출력 예제
역시 비주얼베이직 문법은 어렵습니다 ㅠㅠ 많이 연습해야 겠습니다
'IT정보 > 비주얼베이직' 카테고리의 다른 글
[비주얼베이직] 폼 속성 정리 (629) | 2011.07.25 |
---|---|
[비주얼베이직] 키보드, 마우스 잠그기 (674) | 2011.07.25 |
[비주얼베이직] (문법) 단일반복문, For문 (1748) | 2011.07.11 |
[비주얼베이직] (문법) Select Case문 (문자로 결과 계산) (1902) | 2011.07.11 |
[비주얼베이직] (문법) 조건 판단하기 (684) | 2011.07.11 |
댓글