제거를 누르니 윈도우 탐색기에서 지우라는데,,,안나와요,,
그래서 그냥 마우스 오른쪽 버튼눌러서 삭제했는데
낼 시험장 가서도 그러면 어쩌나 하구요,,
빠른 답변부탁드려요^^&
그리고 오늘 모의고사 보았는데
검산할때 인수를 제가 1-3까지 짧게 줫을때는 맞는데 1-10을 줬을때는 않맞았어요,,
4번문제가요,,
왜그런가요,,
코딩은
Option Explicit
Sub Main()
''필수변수선언
Dim 인수1, 인수2, 버퍼, k As Variant
''핵심변수선언
Dim 단가, 할인금액, 거래처신용도, 월매출액, 합계 As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''입력파일처리
Open "c:\c_it\data\abc02.txt" For Input As #1
For k = 1 To 인수2
Line Input #1, 버퍼
If k >= 인수1 Then
''변수저장
월매출액 = Val(Mid(버퍼, 26, 5))
단가 = Val(Mid(버퍼, 16, 4))
거래처신용도 = Trim(Mid(버퍼, 20, 4))
''표처리하기
Select Case 거래처신용도
Case "G"
할인금액 = 360
Case "B"
할인금액 = 450
Case "D"
할인금액 = 590
Case "K"
할인금액 = 810
End Select
If 단가 >= 290 Then
합계 = 합계 + 월매출액 - 할인금액
End If
End If
Next k
Close #1
''출력파일처리
Open "c:\c_it\data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2
End Sub
였습니다,,,낼 답은 나오겠지만 어디서 틀린지 알아야 할것 같아서요
꼭 부탁드려요
이전글
다음글
