2014 시나공 컴활1급 필기 2편, 247쪽
Sub 예제()
급여 = 1000
평점 = 3
Select Case 평점
Case 1
Bonus = 급여 * 0.1
Case 2
Bonus = 급여 * 0.2
Case 3
Bonus = 급여 * 0.3
Case Is > 4
Bonus = 급여 * 0.4
Case Else
Bonus = 0
End Select
End Sub
지금 비록 필기공부를 하고 있지만 VBE 작성/수정하는 작업 개념을 파악하려고 합니다.
위 247쪽 예제를 테스트해보기 위해 위 예제 코딩에서 "평점 = 3"을 빼고
대신에 InPutBox 로 평점을 받아들여 Select Case 문이 끝나면 MsgBox로 보너스를 출력하도록
하려면 어떻게 코딩하고 프로시져를 몇개 만들어야되는지 좀 알려주세요!
제가 해보니까 아직 이론이 부족해서 생각대로 잘 안되네요.
아마도 변수 선언도 문제가 되는 거 같기도 하고요!
코딩 좀 해주세요!
감사합니다.
안녕하세요.
Sub 예제()
급여 = 1000
평점 = InputBox("당신의평점?", "평점입력")
Select Case 평점
Case 1
Bonus = 급여 * 0.1
Case 2
Bonus = 급여 * 0.2
Case 3
Bonus = 급여 * 0.3
Case Is > 4
Bonus = 급여 * 0.4
Case Else
Bonus = 0
End Select
MsgBox Bonus, , "결과"
End Sub
즐거운 하루 되세요.
-
*2015-07-30 10:43:19
안녕하세요.
Sub 예제()
급여 = 1000
평점 = InputBox("당신의평점?", "평점입력")
Select Case 평점
Case 1
Bonus = 급여 * 0.1
Case 2
Bonus = 급여 * 0.2
Case 3
Bonus = 급여 * 0.3
Case Is > 4
Bonus = 급여 * 0.4
Case Else
Bonus = 0
End Select
MsgBox Bonus, , "결과"
End Sub
즐거운 하루 되세요.