책 내용 질문하기
기본모의고사8회 문제4-3-2
도서
2023 시나공 컴퓨터활용능력 1급 실기
페이지
443
조회수
168
작성일
2023-09-16
작성자
탈퇴*원
첨부파일

기본모의고사8회 문제4-3-2

정답은 아래고,

Private Sub cmd입력_Click()

    입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count

    Cells(입력행, 1) = txt구매일자.Value

    Cells(입력행, 2) = List품목명.Value

    Cells(입력행, 3) = txt수량.Value

    Cells(입력행, 4) = Format(txt수량.Value * txt단가.Value, "#,###")

    List품목명.Value = ""

    txt단가.Value = ""

    txt수량.Value = ""

End Sub

 

제 답은 아래인데, 오답처리 되었습니다. 

Private Sub cmd입력_Click()

입력행 = [A3].Row + [A3].CurrentRegion.Rows.Count

Cells(입력행, 1) = txt구매일자.Value

Cells(입력행, 2) = List품목명.Value

Cells(입력행, 3) = txt수량.Value

Cells(입력행, 4) = Format(Val(txt단가.Value) * Val(txt수량.Value), "#,###")

 List품목명.Value = ""

 txt단가.Value = ""

 txt수량.Value = ""

End Sub

 

② 데이터 입력 0/5

폼 프로시저 X [cmd입력_Click] 매크로가 정답과 다릅니다.

폼 실행 X 매크로 실행 : VBA ERROR

 

1. format에 val써서 틀린건가요??  val쓰면 안되나요??

2.  

List품목명.Value = ""

txt단가.Value = ""

txt수량.Value = ""

이 부분 품목명, 단가, 수량의  행순서가 바껴도 되나요?? 아래처럼요.

txt단가.Value = ""

List품목명.Value = ""

txt수량.Value = ""

 

답변
2023-09-18 20:19:30

안녕하세요.

 

1. 저희 채점 프로그램은 정답 파일과 비교하여 다른 부분을 틀린 것으로 채점하므로 감점된 것입니다.

2. 순서는 달라도 상관 없습니다.

 

즐거운 하루 되세요.

  • 관리자
    2023-09-18 20:19:30

    안녕하세요.

     

    1. 저희 채점 프로그램은 정답 파일과 비교하여 다른 부분을 틀린 것으로 채점하므로 감점된 것입니다.

    2. 순서는 달라도 상관 없습니다.

     

    즐거운 하루 되세요.

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.