»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > ÀϹݻó´ã
Á¦ ¸ñ Àμö󸮽à " " °ø¹éÆ÷ÇÔ¿©ºÎ..
±Û¾´ÀÌ  À¯À翬 ÀÛ¼ºÀÏ 2005-05-06Á¶È¸¼ö 408
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â
>>

5¿ù5ÀÏ ¿ÀÈÄ»ê¾÷±â»ç 1¹ø¹®Á¦ÀÔ´Ï´Ù...µµÀúÈ÷ ¸ð¸£°Ù³×¿ä...¶È°°Àº°Å °°Àºµ¥

>>

Àμö ¾ÈÀû¾î¼­ ½ÇÇàÇϴϱñ 5¹ø¿À·ù¶ß´øµ¥ ±×·¡¼­ ÀμöÀû¾î¼­

>>

´Ù½Ã ½ÇÇàÇϴϱñ ÷ÀÚ»ç¿ëÀÌ À߸øµÇ¾ú½À´Ï´Ù ¶ó°í ³ª¿À³×¿ä..¿À·ù9¹ø..

>>

¹¹°¡ À߸øµÇ¾ú´ÂÁö ºÁÁÖ¼¼¿ë ¤Ð.¤Ð.......ºÐ¸í ¶È°°Àº°Å °°Àºµ­... ´çÀå ³¾½ÃÇèÀε­..¤Ð.¤Ð

>>

 

>>

 

>>

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\abc0105.txt" For Input As #1
For i = 1 To Àμö2
Line Input #1, ¹öÆÛ
If i >= Àμö1 Then

>>

 

>>


''''º¯¼öÀúÀå
±¹¾îÁ¡¼ö = Val(Mid(¹öÆÛ, 11, 3))
¿µ¾îÁ¡¼ö = Val(Mid(¹öÆÛ, 14, 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\ans5.txt" For Output As #2
Print #2, Àμö1, Àμö2, ÇÕ°è(5)
Close #2

>>

 

>>

End Sub

´ñ±Û¾²±â :
ÀÌÀü±Û °¨»ç°¨»ç ^^
´ÙÀ½±Û °¡»êÁ¡À» À§ÇÑ Á¤º¸Ã³¸®ÀÚ°ÝÁõ °­ÀÇ »çÀÌÆ®¸¦ ¿ÀÇÂÇÕ´Ï´Ù.
°í°´Áö¿ø¼¾ÅÍ

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.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â