1번문제같은 경우도 단,이하를 고려해야 하나요 ?

Option Explicit

Sub main()
   
    ''''''''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''''''''핵심 변수 선언
    Dim 취향, 품목코드, 대여금액, 대여횟수, 연체횟수, 합계(1000), j, Num, Temp As Variant
   
    ''''''''인수 처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''''''출력 파일 처리
    Open "c:\c_it\data\abc10.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
           
            If i >= 인수1 Then
                ''''''''변수 저장
                취향 = Trim(Mid(버퍼, 8, 1))
                품목코드 = Trim(Mid(버퍼, 31, 2))
                대여금액 = Val(Mid(버퍼, 22, 6))
                대여횟수 = Val(Mid(버퍼, 10, 4))
                연체횟수 = Val(Mid(버퍼, 28, 3))
            End If
           
            ''''''''합계구하기
            If 취향 = "L" Or 품목코드 = "A1" Then
                Num = Num + 1
                합계(1000) = 대여금액 - (대여횟수 * 연체횟수)
            End If
       
        Next i
       
        ''''''''합계 오름차순
        For i = 1 To Num
            For j = i To Num
                If 합계(i) > 합계(j) Then
                    Temp = 합계(i)
                    합계(i) = 합계(j)
                    합계(j) = Temp
                End If
            Next j
        Next i
       
    Close #1
    ''''''''입력 파일 처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 합계(Num) + 합계(Num) + 합계(Num) + 합계(Num) + 합계(Num)
    Close #2
End Sub

10번의 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\abc10.txt" For Input As #1
       
        ''최대값과 최소값의 초기화
        최대값 = 0
        최소값 = 999999999
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
           
            If i >= 인수1 Then
                ''변수 저장
                품목코드 = Trim(Mid(버퍼, 31, 2))
                회원구분 = Trim(Mid(버퍼, 9, 1))
                제품상태 = Trim(Mid(버퍼, 33, 1))
                대여횟수 = Val(Mid(버퍼, 10, 4))
                대여금액 = Val(Mid(버퍼, 22, 6))
            End If
           
            ''표구하기
            Select Case 품목코드
                Case "A1"
                    할인금액 = 70
                Case "B1"
                    할인금액 = 90
                Case "C1"
                    할인금액 = 150
                Case "D1"
                    할인금액 = 50
            End Select
           
            ''최대값과 최소값 구하기
            If 회원구분 = " N" And 제품상태 = "S" Then
               
                If 최대값 < 대여금액 + (대여횟수 * 할인금액) Then
                    최대값 = 대여금액 + (대여횟수 * 할인금액)
                End If
               
                If 최소값 > 대여금액 + (대여횟수 * 할인금액) Then
                    최소값 = 대여금액 + (대여횟수 * 할인금액)
                End If
               
            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