¹®Á¦ 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) ÀÌ ³ª¿É´Ï´Ù
µÎ°³ÀÇ Â÷À̰¡ ¹«¾ùÀΰ¡¿©??
|