ÃÊ±Þ Ã¹¹øÂ°¹®Á¦ ÄÚµùÇØºÃ´Âµ¥ óÀ½ºÎÅÍ ¿À·ù°¡ ³ª³×¿ä
¾Æ¹«¸® ºÁµµ ¿Ö Ʋ·È´ÂÁö ¸ð¸£°Ú½À´Ï´Ù
Àú¿Í ºñ½ÁÇÑ Áú¹®µé¿¡ ¿Ã·ÁÁø ´äº¯À» º¸¾Ò´Âµ¥ Àμö°ªÀ» Á¤ÇØÁà¾ß ÇѴٳ׿ä 100 200À¸·Î¿ä
±×·±µ¥ ±×°Ç 100¹øÂ°¿¡¼ 200¹øÂ° ÆÄÀϸ¸ ÇÊ¿äÇÒ¶§ ¾²´Â °ª¾Æ´Ñ°¡¿ä? ¾Æ´Ô ¸ðµç ¹®Á¦ÀÇ Àμö°ªÀ» ¶È°°ÀÌ 100 200À¸·Î Áà¾ßÇÏ´Â °Ç°¡¿ä?
±×·±µ¥ °ÀÇ º¸¸é °ªÀÌ 483 587 99 ÀÌ·¸°Ô ´äÀÌ ³ª¿Í¾ß ÇÑ´Ù°í Çϴµ¥ 100 200 À¸·Î Çϸé 99°¡ ¾È³ª¿À´øµ¥¿ä
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/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.txt" For Output As #2
Print #2, Àμö1, Àμö2, ÇÕ°è(5)
Close #2
End Sub