25°­ Á¦Á¶°ü¸® ºÎºÐ¿¡¼­  °è¼Ó ´äÀÌ...1¹ø 2¹ø 3¹ø 200¸¸ ¶ß´Âµ¥¿ä..
100 200 200 ÀÌ·¸°Ô ¶ß´Â °Íµµ ¾Æ´Ï°í..
±×³É..200 ¸¸ ¶ß´Âµ¥¿ä..¸Ó°¡ À߸ø µÈ°ÇÁö ¸ð¸£°Ú¾î¿ä..
¹Ø¿¡´Â 25°­ °øÀå Á¦Á¶°ü¸® 3¹ø ¹®Á¦ ÀÔ´Ï´Ù.. 

Sub main()
    ''Çʼö º¯¼ö ¼±¾ð
    Dim Àμö1, Àμö2, ¹öÆÛ, K As Variant
   
    ''Çٽɺ¯¼ö ¼±¾ð
    Dim °Å·¡ÄÚµå, Ãß°¡Æ÷ÀÎÆ®, Á¦Á¶±¸ºÐ, ¸ÅÃâ¾×, ÇÕ°è As Variant
   
   
    ''Àμöó¸®
    Àμö1 = Val(Left(Command, InStr(Command, " ")))
    Àμö1 = 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(¹öÆÛ, 19, 1))
                Á¦Á¶±¸ºÐ = Trim(Mid(¹öÆÛ, 7, 1))
                ¸ÅÃâ¾× = Val(Mid(¹öÆÛ, 26, 3))
               
                ''ǥó¸®
                Select Case °Å·¡ÄÚµå
                    Case "A"
                        Ãß°¡Æ÷ÀÎÆ® = 5
                     Case "B"
                        Ãß°¡Æ÷ÀÎÆ® = 15
                    Case "C"
                        Ãß°¡Æ÷ÀÎÆ® = 20
                End Select
               
                ''Çհ豸Çϱâ
                If Á¦Á¶±¸ºÐ = "B" Then
                     ÇÕ°è = ¸ÅÃâ¾× + Ãß°¡Æ÷ÀÎÆ®
                End If
               
               
               
            End If
           
     Next K
    
    Close #1
   
    ''ó¸®ÆÄÀÏó¸®
    Open "c:\c_it\data\ans3.txt" For Output As #2
   
        Print #2, Àμö1, Àμö2, ÇÕ°è
    Close #2
   

End Sub