»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > Á¤º¸Ã³¸®±â»ç ½Ç±â
Á¦ ¸ñ 11¿ù 9ÀÏ ¿ÀÈÄ 4¹ø¹®Á¦¿¡¼­
±Û¾´ÀÌ  ÃÖ°æÈ­ÀÛ¼ºÀÏ 2005-04-22Á¶È¸¼ö 386
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

¹®Á¦ 4¡½Áö¿ªÄڵ忡 µû¸¥ Á¡¼öÆ÷ÀÎÆ®°¡ ¾Æ·¡¿Í °°´Ù

































Áö¿ªÄÚµå



Á¡¼öÆ÷ÀÎÆ®



A



5



B



 10



C



 15

À§ÀÇ Ç¥¸¦ ÂüÁ¶ÇÏ¿© ¼ºÃëµµ°¡ A, BÀÎ ÀÚ·á¿¡ ´ëÇØ (±¹¾îÁ¡¼ö + Á¡¼öÆ÷ÀÎÆ®)ÀÇ 50 ÀÌ»óÀÎ ÀÚ·áÀÇ °Ç¼ö¸¦ Ãâ·ÂÇϽÿÀ(30Á¡) (¡Ø °á°ú °ªÀº ¼ö°ËÀÚ PCÀÇ C:\C_it\data\Ans4.txt ÆÄÀÏ¿¡ Ãâ·ÂµÇµµ·Ï ÇÁ·Î±×·¥À» ÀÛ¼ºÇÒ °Í) =====================================================================



Sub main()



    ''''Çʼö º¯¼ö ¼±¾ð
    Dim Àμö1, Àμö2, i, ¹öÆÛ As Variant
   
    ''''ÇÙ½É º¯¼ö ¼±¾ð
    Dim Áö¿ªÄÚµå, Á¡¼öÆ÷ÀÎÆ®, ¼ºÃëµµ, ±¹¾îÁ¡¼ö, Num As Variant
   
    ''''Àμöó¸®
    Àμö1 = Val(Left(Command, InStr(Command, " ")))
    Àμö2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''ÀÔ·ÂÆÄÀÏ Ã³¸®
    Open "c:\c_it\data\abc1115.txt" For Input As #1
   
         For i = 1 To Àμö2
             Line Input #1, ¹öÆÛ
                If i >= Àμö1 Then
               
                ''''º¯¼öÀúÀå
                Áö¿ªÄÚµå = Trim(Mid(¹öÆÛ, 31, 1))
                ¼ºÃëµµ = Trim(Mid(¹öÆÛ, 30, 1))
                ±¹¾îÁ¡¼ö = Val(Mid(¹öÆÛ, 11, 3))
               
               
                Select Case Áö¿ªÄÚµå
                    Case "A"
                        Á¡¼öÆ÷ÀÎÆ® = 5
                    Case "B"
                        Á¡¼öÆ÷ÀÎÆ® = 10
                    Case "C"
                        Á¡¼öÆ÷ÀÎÆ® = 15
                End Select
                       
               
                If ¼ºÃëµµ = "A" Or ¼ºÃëµµ = "B" And (±¹¾îÁ¡¼ö + Á¡¼öÆ÷ÀÎÆ®) >= 50 Then
                         Num = Num + 1
                End If
           
            End If
        Next i
    Close #1
   
       
    ''''Ãâ·ÂÆÄÀÏó¸®
    Open "c:\c_it\data\Ans4.txt" For Output As #2
        Print #2, Àμö1, Àμö2, Num
    Close #2
       
               
End Sub



================



¸áÀ» º¸³»±âµµ Ç޴µ¥ Á¤¸» ±Ã±ÝÇØ¼­ ´Ù½Ã »ó´ã½Ç¿¡ ³²±è´Ï´Ù..



À§¿¡ ó·³ ÄÚµù½Ã ´äÀÌ 47ÀÌ ³ª¿À°í »¡°£ ºÎºÐÀ»



If ¼ºÃëµµ = "A" Or ¼ºÃëµµ = "B" Then
                    If (±¹¾îÁ¡¼ö + Á¡¼öÆ÷ÀÎÆ®) >= 50 Then



ó·³ ÀÌÁß if ¹®À» ¾²¸é ´äÀÌ ¸Â°Ô(33) ÀÌ ³ª¿É´Ï´Ù



µÎ°³ÀÇ Â÷À̰¡ ¹«¾ùÀΰ¡¿©??


´ñ±Û¾²±â :
ÀÌÀü±Û °ýȣ󸮰¡ Áß¿äÇÕ´Ï´Ù.
´ÙÀ½±Û ¹®Á¦°¡ ¾È Ç®·Á¿©..¤Ð.¤Ð
°í°´Áö¿ø¼¾ÅÍ

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