좀 알려주세요 - -;

3번 소스코딩

Option Explicit

Sub Main()
   
    ''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 생물점수, 성취도, 총점, 지리점수, 학번, 최대학번, 최소값, 체육점수, Temp As Variant
   
    ''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력 파일 처리
    Open "c:\c_it\data\abc09.txt" For Input As #1
       
        ''최소값 초기화
        최소값 = 999999999
       
        For i = 1 To 인수2
         Line Input #1, 버퍼
            If i >= 인수1 Then
               
                ''변수 저장
                생물점수 = Val(Mid(버퍼, 11, 3))
                성취도 = Trim(Mid(버퍼, 27, 1))
                총점 = Val(Mid(버퍼, 29, 3))
                지리점수 = Val(Mid(버퍼, 8, 3))
                학번 = Val(Mid(버퍼, 1, 6))
               
                ''최대학번의 체육점수구하기
                If 생물점수 < 40 And 성취도 = "C" Then
                   
                    If 최소값 > (총점 - 지리점수) / 4 Or _
                        (최소값 = (총점 - 지리점수) / 4 And 최대학번 < 학번) Then
                        최소값 = (총점 - 지리점수) / 4
                        최대학번 = 학번
                        체육점수 = Val(Mid(버퍼, 14, 3))
                    End If
                   
                End If
               
            End If
        Next i
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans2.txt" For Output As #2
        Print #2, 인수1, 인수2, 체육점수
    Close #2
   
End Sub

4번 소스코딩

Option Explicit

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\abc09.txt" For Input As #1
   
       
        For i = 1 To 인수2
         Line Input #1, 버퍼
            If i >= 인수1 Then
               
                ''변수 저장
                성취도 = Trim(Mid(버퍼, 27, 2))
                총점 = Val(Mid(버퍼, 29, 3))
                지역코드 = Val(Mid(버퍼, 7, 1))
               
                ''표 구하기
                Select Case 성취도
                    Case "A1"
                        추가점수 = 10
                    Case "A2"
                        추가점수 = 9
                    Case "A3"
                        추가점수 = 8
                    Case "B1"
                        추가점수 = 7
                    Case "B2"
                        추가점수 = 6
                    Case "B3"
                        추가점수 = 5
                    Case "C1"
                        추가점수 = 4
                    Case "C2"
                        추가점수 = 3
                    Case "C3"
                        추가점수 = 2
                End Select
               
                ''합계구하기
                If 총점 >= 200 And 지역코드 = "B" Then
                    합계 = 합계 + ((총점 + 추가점수) / 5)
                End If
               
            End If
        Next i
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, Int(합계)
    Close #2
   
End Sub