»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > Á¤º¸Ã³¸®±â»ç ½Ç±â
Á¦ ¸ñ Áú¹®
±Û¾´ÀÌ  ÀÌȣöÀÛ¼ºÀÏ 2005-04-16Á¶È¸¼ö 479
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

¼±»ý´Ô ¸»¾¸´ë·Î "B" or "C" ÀÌ·±½ÄÀ¸·Î Çߴµ¥ °ªÀÌ Æ²¸®³×¿ä Á¡°Ë Á» ºÎʵ右´Ï´Ù



¹®Á¦)Áö¿ªÄڵ忡 µû¸¥ Á¡¼öÆ÷ÀÎÆ® Ç¥¸¦ ÂüÁ¶ÇÏ¿© ´ãÀÓÄڵ尡 B ¿Í C ÀÎ ÀÚ·áÀÇ (±¹¾îÁ¡¼ö+Á¡¼öÆ÷ÀÎÆ®)°¡ 50 ÀÌ»óÀÎ ÀÚ·áÀÇ °Ç¼ö Ãâ·ÂÇϽÿÀ



Option Explicit



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(¹öÆÛ, 29, 1))
                            ±¹¾îÁ¡¼ö = Val(Mid(¹öÆÛ, 11, 3))
                   
                        ''''ǥó¸®
                            Select Case ´ãÀÓÄÚµå
                                Case "A"
                                    Á¡¼öÆ÷ÀÎÆ® = 5
                                Case "B"
                                    Á¡¼öÆ÷ÀÎÆ® = 10
                                Case "C"
                                    Á¡¼öÆ÷ÀÎÆ® = 15
                            End Select
                           
                        ''''Çհ豸Çϱâ
                            If ´ãÀÓÄÚµå = "B" Or ´ãÀÓÄÚµå = "C" And ±¹¾îÁ¡¼ö + Á¡¼öÆ÷ÀÎÆ® >= 50 Then
                           
                                Num = Num + 1
                           
                            End If
                   
                    End If
           
            Next i
       
       
        Close #1



 




        ''''Ãâ·ÂÆÄÀÏó¸®
       
            Open "c:\c_it\data\ans1.txt" For Output As #2
           
                Print #2, Àμö1, Àμö2, Num
           
            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.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â