Á¦ ÄÚµù ºÁÁֽǷ¡¿ä.
Àú´Â ¾Æ¹«¸® ºÁµµ ¸ð¸£°Ú½À´Ï´Ù.
°Ë»ê°á°úµµ ´Ù¸£°í F8·Î µ¹¸± ¶§ ºÀ»çÁ¡¼ö°¡ 48Á¡Àε¥µµ ÃÖ´ë°ªÀ¸·Î±³È¯ÀÌ µË´Ï´Ù.
¹¹°¡ À߸ø‰çÀ»±î¿ä...

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\abc07.txt" For Input As #1
    ÃÖ´ë°ª = 0
    For i = 1 To Àμö2
        Line Input #1, ¹öÆÛ
            If i >= Àμö1 Then
           
            ºÀ»çÁ¡¼ö = Val(Mid(¹öÆÛ, 23, 3))
            ´©°èÁ¡¼ö = Val(Mid(¹öÆÛ, 26, 3))

            If ºÀ»çÁ¡¼ö >= 50 Then
                If ÃÖ´ë°ª < ´©°èÁ¡¼ö Then
                    ÃÖ´ë°ª = ´©°èÁ¡¼ö
                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