문제 4에 3번문제에서
답은
a
a = MsgBox("판매단가를 재계산 하시겠습니까?", vbYesNo, "판매단가의 재계산")
If vbYes Then
판매단가 = 입고단가 * 1.1
End If
로 되어 있는데요
답대로 하면 변동되는게 없는데,
이게 정답 아닌가요??
Dim aa
aa = MsgBox("판매단가를 재계산 하시겠습니까?", vbYesNo, "판매단가의 재계산")
If vbYes Then
txt판매단가 = txt입고단가 * 1.1
End If
a = MsgBox("판매단가를 재계산 하시겠습니까?", vbYesNo, "판매단가의 재계산")
If vbYes Then
판매단가 = 입고단가 * 1.1
End If
로 작성하셨는데
a = MsgBox("판매단가를 재계산 하시겠습니까?", vbYesNo, "판매단가의 재계산")
If a=vbYes Then
판매단가 = 입고단가 * 1.1
End If
로 작성하면 정상 실행 됩니다.
컨트롤 명으로 작성해도 정확한 결과가 나오면 정답으로 인정 됩니다.
하지만 문제에서 판매단가 = 입고단가 X 1.1
로 표시했기 때문에 되도록이면 식과 같게 입력하시기 바랍니다.
좋은 하루 되세요.
-
*2015-08-31 06:40:12
a = MsgBox("판매단가를 재계산 하시겠습니까?", vbYesNo, "판매단가의 재계산")
If vbYes Then
판매단가 = 입고단가 * 1.1End If
로 작성하셨는데
a = MsgBox("판매단가를 재계산 하시겠습니까?", vbYesNo, "판매단가의 재계산")
If a=vbYes Then
판매단가 = 입고단가 * 1.1End If
로 작성하면 정상 실행 됩니다.
컨트롤 명으로 작성해도 정확한 결과가 나오면 정답으로 인정 됩니다.
하지만 문제에서 판매단가 = 입고단가 X 1.1
로 표시했기 때문에 되도록이면 식과 같게 입력하시기 바랍니다.
좋은 하루 되세요.