Sub Main()
    ''필수변수선언
    Dim 인수1, 인수2, 버퍼, i As Variant
   
    ''핵심변수선언
    Dim 결재구분, 추가포인트, 메뉴분류, 적립포인트, 방문횟수, 최소값, 합계(1000), 결과값, num, 방문횟수합계(1000) As Variant
       
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc15.txt" For Input As #1
    최소값 = 99999
        For i = 1 To 인수2
        Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수저장
                결재구분 = Val(Mid(버퍼, 19, 1))
                메뉴분류 = Trim(Mid(버퍼, 10, 1))
                적립포인트 = Val(Mid(버퍼, 24, 3))
                방문횟수 = Val(Mid(버퍼, 20, 3))
               
                ''표구하기
                Select Case 결재구분
                    Case 1
                    추가포인트 = 10
                     Case 2
                    추가포인트 = 7
                     Case 3
                    추가포인트 = 5
                     Case 4
                    추가포인트 = 3
                     Case 5
                    추가포인트 = 2
                End Select
               
                ''합계구하기
                If 메뉴분류 = "R" Then
                   num = num + 1
                   합계(num) = 합계(num) + 적립포인트 + 추가포인트
                   방문횟수합계(num) = 방문횟수합계(num) + 방문횟수
                 End If
           End If
               
       Next i
       ''최소값구하기
                For i = 1 To 5
                If 최소값 > 합계(i) Then
                     최소값 = 합계(i)
                     결과값 = 방문횟수합계(i)
                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

문제 이해하는것도 어려웠어요 ㅠㅠ

답이 틀리게 나오네요 ㅠ.ㅠ

내일 오전에 시험인데 그럼 영진꺼 푸는것보다

지금까지의 기출문제를 푸는게 더 좋을까요??