1031 질문추가입니다.

2002년 7월 9일 오후 기사시험입니다

결과값은 1676120이 답인데...저는 다른 답이 나옵니다.

다른 기출문제를 계속 풀어도 1,2번은 정확히 값이 떨어지는데 

3,4번은 값이 다르게 나옵니다.

왜 이런지...

txt파일이 잘못 되었다면 1,2번도 다르게 나와야 하는데...

다른 기출문제 5가지 유형을 다 풀어봐도 3,4,번만 틀립니다.

내일 시험인데 큰일입니다.

아무리 봐도 틀린곳이 없는데 말입니다.

그리고 이건 강의랑은 상관없는데...

비주얼 베이직에서만 마우스 스크롤 휠이 안 됩니다.

다른 프로그램에서는 잘 되는데 비주얼 베이직만 마우스 스크롤 휠이 안됩니다.

갑자기 그럽니다.스크롤바를 일일히 커서로 내려주어야만 됩니다.

다시 프로그램을 재 설치하고 2번이나 재부팅 했는데도...

마우스 스크롤 휠이 안됩니다.

왜 비베에서만 그럴까요?

질문이 많아서 죄송합니다.

[1031 질문내용]

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

과년도 기출문제를 풀고 있는데요.

1번,2번은 결과값이 정확히 나오는데 3번과 4번의 결과값이 계속 다르게 나옵니다.

무엇이 문제인지....

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

문제:판매구분에 따른 추가 포인트는 다음과 같다.

판매구분  추가포인트

    A              5

    B             15

    C              20

위의 표를 참조하여 단가가 20 이상인 자료에 대하여 (단가+추가포인트)의 합계를

출력하시오.

Option Explicit

Sub main()

''''''''필수 변수 선언
Dim 인수1, 인수2, i, 버퍼 As Variant

''''''''핵심변수 선언
Dim 판매구분, 추가포인트, 단가, 합계 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
       
      판매구분 = Trim(Mid(버퍼, 28, 1))
      단가 = Val(Mid(버퍼, 17, 5))
     
      If 판매구분 = "A" Then
         추가포인트 = 5
       ElseIf 판매구분 = "B" Then
         추가포인트 = 15
        ElseIf 판매구분 = "C" Then
         추가포인트 = 20
      End If
     
      If 단가 >= 20 Then
      합계 = 합계 + 단가 + 추가포인트
      End If
     
      End If
  
Next i
Close #1

''''''''파일출력
Open "c:\c_it\data\ans4.txt" For Output As #2
 Print #2, 인수1, 인수2, 합계
 Close #2
End Sub

틀린곳이 있나요?