Sub main()

 '''''''' 필수변수선언
 Dim 인수1, 인수2, K, 버퍼 As Variant
 
 ''''''''핵심변수선언
 Dim 거래코드, 적용포인트, 출고횟수값, 제조포인트, 합계 As Variant
 
 ''''''''인수
 인수1 = Val(Left(Command, InStr(Command, " ")))
 인수2 = Val(Mid(Command, InStr(Command, " ")))

 ''''''''입력
 Open "C:\C_it\data\san0106.txt" For Input As #1
 
 
 
        For K = 1 To 인수2
            Line Input #1, 버퍼
   If K >= 인수1 Then
           

  
 ''''''''변수
 제조포인트 = Val(Mid(버퍼, 20, 3))
 거래코드 = Trim(Mid(버퍼, 19, 1))
 출고횟수값 = Val(Mid(버퍼, 23, 3))
 
   Select Case 거래코드
          Case "A"
          적용포인트 = 10
          Case "B"
          적용포인트 = 15
           Case "C"
          적용포인트 = 20
 
  
   ''''''''합계구하기
   If 출고횟수값 >= 40 Then
      합계 = 합계 + 제조포인트 + 적용포인트
   End If
  
  
  
       End If
        Next K

 Close #1
 
 ''''''''출력
  Open "C:\C_it\data\ans3.txt" For Output As #2
  Print #2, 인수1, 인수2, 합계
  Close #2
 
 
End Sub



안녕하세요?
제가 지금 2005년 5월 1일 오후 기출문제 3번을 풀고 있는데요,
자꾸 저기 빨간 end if 에 노란줄이 생기면서 불록없는 if의 end if 라는데요ㅡㅡ,,

전 이런 오류 첨 봐서 어찌해야할 지,,,
바쁘신줄 알지만 도움을 요청합니다,,
분명 바보같은 짓을 저지른 것이겠지요?ㅜ

--------------------------------------------------
혹여...END SELECT가 없음인가요???

====.> 아 네 ,,,맞아요,,^^
저도 교수님꺼 하나하나 덮어쓰기 하다가 발견했네요,,
실전에선 이런 허접실수 없길 바라며,,,
답글 달아주셔서 정말 감사합니다.