¸Þ¸ðÀå¿¡ Àμö°ª¸¸ ³ª¿À°í °á°ú°ªÀÌ ¾È³ª¿Í¿ä.........
¼öÇèÀå¿¡¼µµ ÀÌ¿Í °°Àº »óȲÀÌ ¹ß»ýÇØ¼........¾öû ´çÈ²ÇØÇÏ´Ù°¡..
for i>=Àμö1 À̺κÐÀ»
for i<=Àμö1 ÀÌ·¸°Ô Çß´õ´Ï........ °á°ú°ªÀÌ ¸Â´ÂÁö ¾Æ´ÑÁö ¸ô¶óµµ °á°ú°ªÀÌ ±×³É ³ª¿Í¼
Á¦ÃâÇߴµ¥ .......ÀÌ°Ç ¼Éº»°Ô ¾Æ´Ï¶ó Áý¿¡¼ ÇÒ¶§µµ ¶È°°ÀÌ ³ª¿Ô´ø ¹®Á¦ ¼Ò½º ¿Ã¸±Å×´Ï ºÁÁÖ
¼¼¿ä... ´ã¹øÀ» À§Çؼµµ ¿Ö ±×·±°ÇÁö ¾Ë°í ½Í¾î¼¿ä ;;
Sub Main()
''Çʼöº¯¼ö¼±¾ð
Dim Àμö1, Àμö2, ¹öÆÛ, i As Variant
''Çٽɺ¯¼ö ¼±¾ð
Dim ÀÛ¾÷ÄÚµå, AÈĺ¸È£°¨µµ, BÈĺ¸È£°¨µµ, ÇÕ°è(1000), j, Temp, Num As Variant
''Àμöó¸®
Àμö1 = Val(Left(Command, InStr(Command, " ")))
Àμö2 = Val(Mid(Command, InStr(Command, " ")))
''ÀÔ·ÂÆÄÀÏ
Open "c:\c_it\data\abc1118.txt" For Input As #1
For i = 1 To Àμö2
Line Input #1, ¹öÆÛ
If i >= Àμö1 Then
''º¯¼öÀúÀå
ÀÛ¾÷ÄÚµå = Trim(Mid(¹öÆÛ, 13, 1))
AÈĺ¸È£°¨µµ = Val(Mid(¹öÆÛ, 14, 2))
BÈĺ¸È£°¨µµ = Val(Mid(¹öÆÛ, 16, 2))
If ÀÛ¾÷ÄÚµå = "A" Or ÀÛ¾÷ÄÚµå = "B" Then
Num = Num + 1
ÇÕ°è(Num) = AÈĺ¸È£°¨µµ + BÈĺ¸È£°¨µµ
End If
End If
Next i
Close #1
''Á¤·Ä¾Ë°í¸®Áò
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
''Ãâ·ÂÆÄÀÏ
Open "c:\c_it\data\ans1.txt" For Output As #2
Print #2, Àμö1, Àμö2, ÇÕ°è(5)
Close #2
End Sub