¹¹°¡ ¹®Á¦ÀÎÁö Á» ºÁ ÁÖ¼¼¿ä

26°­(°Å·¡Ã³°ü¸®, ¹®Á¦1)

Option Explicit

Sub main()
''Çʼöº¯¼ö¼±¾ð
Dim i, ¹öÆÛ, Àμö1, Àμö2  As Variant
''Çٽɓмö¼±¾ð
Dim ´Ü°¡, ÀÌÀÍÆ÷ÀÎÆ®, °Å·¡Æ÷ÀÎÆ®, Á¤·Ä(1000), j, temp, num As Variant
''Àμöó¸®
Àμö1 = Val(Left(Command, InStr(Command, " ")))
Àμö2 = Val(Mid(Command, InStr(Command, " ")))
'' ÀÔ·ÂÆÄÀÏó¸®
Open "c:\c_it\data\abc0001.txt" For Input As #1
    For i = 1 To Àμö2
    Line Input #1, ¹öÆÛ
        If i >= Àμö1 Then
       
        ''º¯¼öÀúÀå
        ´Ü°¡ = Val(Mid(¹öÆÛ, 12, 3))
        ÀÌÀÍÆ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 20, 3))
        °Å·¡Æ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 27, 3))
            If ´Ü°¡ >= 50 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 j
            Next i
            Close #1
''Ãâ·ÂÆÄÀÏó¸®
Open "c:\c_it\data\ans1" For Output As #2
Print #2, Àμö1, Àμö2, ÇÕ°è(5)
Close #2

End Sub