1번문제

Sub main()

''필수변수선언

Dim 인수1, 인수2, i As Long

Dim 버퍼 As String

''핵심변수선언

Dim 단가, 거래포인트, j, Temp, Num, 합계(1000) As Long

Dim 분류코드 As String

''인수처리

인수1 = Val(Left(Command, InStr(Command, " ")))

인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리

Open "C:\C_it\data\abc1118.txt" For Input As #1

    For i = 1 To 인수2

        Line Input #1, 버퍼

            If i >= 인수1 Then

                ''핵심코드입력

                단가 = Val(Mid(버퍼, 12, 3))

                거래포인트 = Val(Mid(버퍼, 27, 3))

                분류코드 = Trim(Mid(버퍼, 18, 1))

                If 분류코드 = "A" And 단가 >= 30 Then

                    Num= Num + 1

                    합계(Num) = 단가 + 거래포인트

                End If

            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 i

    Next i

Close #1

''출력파일처리

Open "C:\C_it\data\Ans1.txt" For Output As #2

    Print #2, 인수1, 인수2, 합계(5)

Close #2

End Sub

2번문제

Sub main()

''필수변수선언

Dim 인수1, 인수2, i As Long

Dim 버퍼 As String

''핵심변수선언

Dim 단가, 거래포인트, 합계 As Long

Dim 분류코드 As String

''인수처리

인수1 = Val(Left(Command, InStr(Command, " ")))

인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리

Open "C:\C_it\data\abc1118.txt" For Input As #1

    For i = 1 To 인수2

        Line Input #1, 버퍼

            If i >= 인수1 Then

                ''핵심코드입력

                단가 = Val(Mid(버퍼, 12, 3))

                거래포인트 = Val(Mid(버퍼, 27, 3))

                분류코드 = Trim(Mid(버퍼, 18, 1))

                If 분류코드 = "A" And 단가 >= 30 Then

                    합계 = 합계 + 단가 + 거래포인트

                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

3번문제

Sub main()

''필수변수선언

Dim 인수1, 인수2, i As Long

Dim 버퍼 As String

''핵심변수선언

Dim 이익포인트, 배달거리, 추가포인트, 합계 As Long

Dim 운송코드 As String

''인수처리

인수1 = Val(Left(Command, InStr(Command, " ")))

인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리

Open "C:\C_it\data\abc1118.txt" For Input As #1

    For i = 1 To 인수2

        Line Input #1, 버퍼

            If i >= 인수1 Then

                ''핵심코드입력

                배달거리 = Val(Mid(버퍼, 24, 3))

                운송코드 = Trim(Mid(버퍼, 19, 1))

                ''표입력

                If 운송코드 = "A" Then

                    추가포인트 = 5

                ElseIf 운송코드 = "B" Then

                    추가포인트 = 15

                ElseIf 운송코드 = "C" Then

                    추가포인트 = 20

                End If

                If 이익포인트 >= 30 Then

                    합계 = 합계 + 배달거리 + 추가포인트

                End If

            End If

    Next i

Close #1

''출력파일처리

Open "C:\C_it\data\Ans3.txt" For Output As #2

    Print #2, 인수1, 인수2, 합계

Close #2

End Sub

4번문제

Sub main()

''필수변수선언

Dim 인수1, 인수2, i As Long

Dim 버퍼 As String

''핵심변수선언

Dim 적용포인트, 수량, 합계 As Long

Dim 분류코드 As String

''인수처리

인수1 = Val(Left(Command, InStr(Command, " ")))

인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리

Open "C:\C_it\data\abc1118.txt" For Input As #1

    For i = 1 To 인수2

        Line Input #1, 버퍼

            If i >= 인수1 Then

                ''핵심코드입력

                수량 = Val(Mid(버퍼, 15, 3))

                분류코드 = Trim(Mid(버퍼, 18, 1))

                ''표입력

                If 분류코드 = "A" Then

                    적용포인트 = 5

                ElseIf 분류코드 = "B" Then

                    적용포인트 = 15

                ElseIf 분류코드 = "C" Then

                    적용포인트 = 20

                End If

                If 수량 > =30 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