°­ÀÇ´ë·Î µû¶óÇÏ°í ¸î¹øÀ̳ª ´Ù½Ã ÇÏ°íÀִµ¥¿ä..

1¹ø¹®Á¦ Ç®°í ´äÈ®ÀÎ ÇÏ·Á°í ¼ýÀÚ´ëÀÔÇÏ°í ½ÇÇà ´©¸£¸é ·±Å¸ÀÓ ¿À·ù 76ÀÌ ¹ß»ýµÆ´Ù°í Çϳ׿ä..¤Ð¤Ñ

¸î¹øÀ̳ª ´Ù½ÃÇغôµ¥...

Ȥ½Ã ¼Ò½º°¡ À߸ø ‰Â°Ç°¡ Çؼ­ ¼Ò½º¿Ã¸³´Ï´Ù.

Option Explicit

Sub main()

''Çʼöº¯¼ö¼±¾ð

  Dim Àμö1, Àμö2, i, ¹öÆÛ 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\abc02.txt" For Input As #1
  For i = 1 To Àμö2
  Line Input #1, ¹öÆÛ
  If i >= Àμö1 Then
 
  ''º¯¼öÀúÀå
 
   ¿ù¸ÅÃâ¾× = Val(Mid(¹öÆÛ, 26, 5))
   ÁÖ¹®·® = Val(Mid(¹öÆÛ, 13, 3))
    Num = Num + 1
    ÇÕ°è(Num) = ¿ù¸ÅÃâ¾× - ÁÖ¹®·®
  
   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, ÇÕ°è(9)
  Close #2

End Sub