1. 예를 들어 변수저장에서 단가=val(mid(버퍼,13,3))에서 버퍼에서 단가를 불러와야 하니까 버퍼를 쓴다고 하셨는데, 그 말뜻이 잘 이해가 안갑니다
2.제34강 회원별예약관리(고급) 문제 1에서 배열변수 예약번호(num)=trim(mid(버퍼,1,7))
이라고 쓰는데 이것을 변수저장에 쓰면 안되나요 ?
또다른 배열변수 합계(num)과는 어떤 관계가 있는건지...
3. 거래처(초급)문제 표처리 4번문제를 풀어보니까 아무런 에러없이 인수값에 대한 답이 나오긴했는데, 답이 틀립니다
무엇이 잘못된 건지 모르겠습니다
Sub main()
''''''''''''''''''''''''''''''''필수 변수 선언 Dim 인수1, 인수2, i, 버퍼 As Variant ''''''''''''''''''''''''''''''''핵심 변수 선언 Dim 단가, 운송코드, 할인포인트, 거래처등급, 합계 As Variant ''''''''''''''''''''''''''''''''인수 처리 인수1 = Val(Left(Command, InStr(Command, " "))) 인수2 = Val(Mid(Command, InStr(Command, " "))) ''''''''''''''''''''''''''''''''입력파일 처리 Open "c:\c_it\data\abc0001.txt" For Input As #1 For i = 1 To 인수2 Line Input #1, 버퍼 If i >= 인수1 Then ''''''''''''''''''''''''''''''''변수저장 단가 = Val(Mid(버퍼, 12, 3)) 거래처등급 = Trim(Mid(버퍼, 23, 1)) 운송코드 = Trim(Mid(버퍼, 19, 1)) ''''''''''''''''''''''''''''''''표처리 Select Case 운송코드 Case "A" 할인포인트 = 5 Case "B" 할인포인트 = 15 Case "C" 할인포인트 = 20 End Select ''''''''''''''''''''''''''''''''합계 구하기 If 거래처등급 = "B" Then 합계 = 합계 + 단가 + 할인포인트 End If End If Next i Close #1 ''''''''''''''''''''''''''''''''출력파일처리 Open "c:\c_it\data\ans4.txt" For Output As #2 Print #2, 인수1, 인수2, 합계 Close #2 End Sub
|