»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > ÀϹݻó´ã
Á¦ ¸ñ 53³»Áö 5·±Å¸ÀÓ ¿À·ù°¡ ÀÚ²Ù ¹ß»ýÇϳ׿ä..
±Û¾´ÀÌ  ½ÅÁö¿ø ÀÛ¼ºÀÏ 2005-07-15Á¶È¸¼ö 437
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

ÀÔ·Â ÆÄÀÏ¸í ¹× °æ·Î : C:\C_it\data\abc0106.txt















































































°Å·¡Ã³¹øÈ£



´ã´çÀ̸ÞÀÏ



Á÷À§



´Ü°¡



¼ö·®



ºÐ·ùÄÚµå



¿î¼ÛÄÚµå



ÀÌÀÍÆ÷ÀÎÆ®



°Å·¡Ã³µî±Þ



¹è´Þ°Å¸®



°Å·¡Æ÷ÀÎÆ®



¼ýÀÚ



¹®ÀÚ



¹®ÀÚ



¼ýÀÚ



¼ýÀÚ



¹®ÀÚ



¹®ÀÚ



¼ýÀÚ



¹®ÀÚ



¼ýÀÚ



¼ýÀÚ



6



4



1



3



3



1



1



3



1



3



3



¡Ø °Å·¡Ã³¹øÈ£´Â Áߺ¹µÇ¾î ÀÖÁö ¾ÊÀ¸¸ç °Å·¡Ã³¹øÈ£¿¡ ´ëÇØ ¿À¸§Â÷¼ø Á¤·ÄµÇ¾î ÀÖ´Ù.



¹®Á¦ 1¡½ (ÀÌÀÍÆ÷ÀÎÆ® * °Å·¡Æ÷ÀÎÆ®)¿¡ µû¶ó ¿À¸§Â÷¼ø Á¤·ÄÇÏ¿´À» ¶§ 5¹øÂ° ÀÚ·áÀÇ (ÀÌÀÍÆ÷ÀÎÆ® * °Å·¡Æ÷ÀÎÆ®)ÀÇ °ªÀ» Ãâ·ÂÇϽÿÀ. µ¿Àϰª ¹ß»ý½Ã °Å·¡Ã³¹øÈ£¿¡ ´ëÇÑ ¿À¸§Â÷¼ø Á¤·ÄÇϽÿÀ.(20Á¡)



 



 



 



Option Explicit



Sub main()



''Çʼöº¯¼ö¼±¾ð
Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant




''Çٽɺ¯¼ö¼±¾ð
Dim ÀÌÀÍÆ÷ÀÎÆ®, °Å·¡Æ÷ÀÎÆ®, ÇÕ°è(1000), j, Temp, Num



''Àμöó¸®
Àμö1 = Val(Left(Command, InStr(Command, " ")))
Àμö2 = Val(Mid(Command, InStr(Command, " ")))




''ÀÔ·ÂÆÄÀÏó¸®



Open "c:\c_it\data\abc0106.txt" For Input As #1
       For i = 1 To Àμö2
        Line Input #1, ¹öÆÛ
        If i >= Àμö1 Then
       
        ''º¯¼öÀúÀå
        ÀÌÀÍÆ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 20, 3))
        °Å·¡Æ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 27, 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\abc0106.txt" For Output As #2
    Print #2, Àμö1, Àμö2, ÇÕ°è(5)
Close #2



End Sub



 



 



 



 



 



±âÃâ¹®Á¦ 1¹øÀ» ÄÚµùÇØºÃ´Âµ¥¿ä..



 



 



"53·±Å¸ÀÓ ¿À·ù°¡ ¹ß»ýÇÏ¿´½À´Ï´Ù



ÆÄÀÏÀ» ãÀ»¼ö ¾ø½À´Ï´Ù"



ȤÀº



''5·±Å¸ÀÓ ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù"



 



¶ó°í ¿À·ù¸Þ¼¼Áö°¡ ¶ß³×¿ä



 



 



cµå¶óÀ̺ê¾È¿¡ »ý¼ºµÈ c_itÆú´õ¿¡



ÅØ½ºÆ® ÀÔ·ÂÆÄÀÏ º¹»çÇØ¼­ ³Ö¾î³õ°í ¹®Á¦ ÄÚµùÇ߰ŵç¿ä..



Á¤È®ÇÑ ´äÀÌ Ãâ·ÂµÉ¶§µµ ÀÖ°í À§¿Í°°Àº ¿À·ù¸Þ¼¼Áö°¡ ¶ã¶§µµ ÀÖ¾î¿ä..



¿Ö±×·±°ÅÁÒ??

´ñ±Û¾²±â :
ÀÌÀü±Û 53³»Áö 5·±Å¸ÀÓ ¿À·ù°¡ ÀÚ²Ù ¹ß»ýÇϳ׿ä..
´ÙÀ½±Û °¡»êÁ¡À» À§ÇÑ Á¤º¸Ã³¸®ÀÚ°ÝÁõ °­ÀÇ »çÀÌÆ®¸¦ ¿ÀÇÂÇÕ´Ï´Ù.
°í°´Áö¿ø¼¾ÅÍ

02-556-3650

ÆòÀÏ 9:00~18:00

ÀÏ¿äÀÏ °øÈÞÀÏ ÈÞ¹«

°èÁ¹øÈ£¾È³»

³óÇùÀºÇà 724-01-173541

±¹¹ÎÀºÇà 633601-04-044665

¿¹±ÝÁÖ (ÁÖ)Á¶ÀºÄ·ÇÁ

»óÈ£¸í : (ÁÖ)Á¶ÀºÄ·ÇÁ ¤Ó ´ëÇ¥ÀÌ»ç : ÀÌÀ¯¶ô ¤Ó ´ë±¸±¤¿ª½Ã ºÏ±¸ ´ëÇзÎ80 °æºÏ´ëÇб³ ITÀ¶ÇÕ»ê¾÷ºôµù 11Ãþ
»ç¾÷ÀÚ¹øÈ£ : 504-81-62507 ¤Ó º»»ç : 053-954-0030 ¤Ó ±â¼úÁö¿ø : 070-7019-1144 ¤Ó ÆÑ½º : 050-7711-2200 ¤Ó 
¿ø°ÝÆò»ý±³À°½Ã¼³13È£ ¤Ó ÃâÆÇ»ç : 345-2005-00013 ¤Ó Åë½ÅÆÇ¸Å¾÷ : 2005-´ë±¸ºÏ±¸-00158 ¤Ó Á¤º¸º¸È£Ã¥ÀÓÀÚ : ±è⿬  
±â»çÄ£±¸´Â SSLº¸¾È¹æ½ÄÀÇ ¾Ïȣȭ±¸°£À» Àû¿ëÇÏ¿© »çÀÌÆ®¸¦ ¾ÈÀüÇÏ°Ô ÀÌ¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.
COPYRIGHT 2005 (ÁÖ)Á¶ÀºÄ·ÇÁ ALL RIGHTS RESERVED.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â