두문제 다 평균구하는 문제입니다. 봐주세요~ 어떤게 틀렸는지요..
그리고 저녁에 모의고사 신청했는데요 플로피디스켓 에러인것 같은데요... 압축하고 전송만 해도 선생님께 제 소스가 가지않나요?

=> 네 소스와 결과값 전송은 됩니다. 아래 소스는 빨간색 코딩을 봐주세요.

문제1

Option Explicit

>>

Sub Main()

>>

    ''''''''''''''''필수변수선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
   
    ''''''''''''''''핵심변수선언
    Dim 극장코드, 할인금액, 예매일자, 예매수량, 예매단가, 합계, 평균, num As Variant
   
    ''''''''''''''''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''''''''''''''입력파일처리
    Open "c:\c_it\data\abc18.txt" For Input As #1
       
        For k = 1 To 인수2
            Line Input #1, 버퍼
            If k >= 인수1 Then
                ''''''''''''''''변수저장
               
                극장코드 = Trim(Mid(버퍼, 6, 2))
                예매일자 = Trim(Mid(버퍼, 18, 2))
                예매수량 = Val(Mid(버퍼, 8, 2))
                예매단가 = Val(Mid(버퍼, 10, 4))
               
                Select Case 극장코드
                    Case "AD"
                        할인금액 = 500
                    Case "BK"
                        할인금액 = 300
                    Case "MU"
                        할인금액 = 250
                    Case "CV"
                        할인금액 = 700
                End Select
                              
                If 예매일자 = "09" Then
                    num=num+1
                    합계 = 합계 + (예매수량 * 예매단가 - 할인금액)
                End If
            End If
        Next k
        ''''''''''''''''평균구하기
        평균 = 합계 / num
        평균 = Fix(평균)
    Close #1
    ''''''''''''''''출력파일처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2
   
End Sub

>>

문제2.

Option Explicit

>>

Sub Main()

>>

    ''''''''''''''''필수변수선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
   
    ''''''''''''''''핵심변수선언
    Dim 상품분류코드, 수량, 월총판매금액, 평균, 합계, NUM As Variant
   
    ''''''''''''''''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''''''''''''''입력파일처리
    Open "c:\c_it\data\abc08.txt" For Input As #1
       
        For k = 1 To 인수2
            Line Input #1, 버퍼
            If k >= 인수1 Then
                ''''''''''''''''변수저장
                상품분류코드 = Trim(Mid(버퍼, 5, 1))
                수량 = Val(Mid(버퍼, 13, 3))
                월총판매금액 = Val(Mid(버퍼, 26, 5))
                               
                If 상품분류코드 = "D" And 수량 <= 300 Then
                    ''''''''''''''''NUM=NUM+1
                    합계 = 합계 + 월총판매금액
                End If
               
                ''''''''''''''''평균구하기
                NUM = NUM + 1 => 삭제해야 합니다.
                평균 = 합계 / NUM
                평균 = Fix(평균)
            End If
        Next k
       
    Close #1
    ''''''''''''''''출력파일처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
        Print #2, 인수1, 인수2, 평균
    Close #2
End Sub

>>