선생님..아까전화드렸던 모의고사 문제있었던 학생입니다
토욜이셤인데..셤망쳐서 걱정이 더늘었습니다..
선생님강의따라 잘 하구있었는데..갑자기 무지심란하네요..ㅜ.ㅜ
1번소스올릴께요.
한번 봐주세요
Sub Main()
''필수변수선언
    Dim 인수1, 인수2, 버퍼, k As Variant
   
''핵심변수선언
    Dim 제조등급, 매출액, 판매량, 제조포인트, 합계(1000), p, num, temp As Variant
   
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''입력파일처리
Open "c:\c_it\data\abc05.txt" For Input As #1

For k = 1 To 인수2
Line Input #1, 버퍼
    If k >= 인수1 Then
    ''변수저장
    제조등급 = Trim(Mid(버퍼, 30, 1))
    매출액 = Val(Mid(버퍼, 26, 3))
    판매량 = Val(Mid(버퍼, 15, 3))
    제조포인트 = Val(Mid(버퍼, 20, 3))
    ''합계구하기
        If 제조등급 = "C" And 매출액 >= 80 Then
          num = num + 1
          합계(num) = 판매량 + 제조포인트
         
        End If
       
    End If
   
Next k
''정렬
For k = 1 To num
    For p = k To num
        If 합계(k) < 합계(p) Then
        temp = 합계(k)
        합계(k) = 합계(p)
        합계(p) = temp
       
        End If
       
    Next p
   
Next k

''출력파일처리
Open "c:\c_it\data\ans1.txt" For Output As #1
Print #2, 인수1, 인수2, 합계(5)
Close #2
End Sub