정보처리 수검관리 프로그램을 자료실에서 A드라이브 없이도 실행된다고 해서 다운받아서

설치하고 나서 실제와 같이 문제를 풀어보았습니다...

그런데 project 속성에 답을 대입하니 ans에 정확한 답이 뜹니다...

그러나  수검관리 프로그램에 있는 수검자프로그램실행을 하기 위해서

실행파일을 만들어보았습니다..그랬더니 C 드라이브에는 파일이 뜨는데

클릭했더니 답은 나오지 않고 ''''''''5'''''''' 런타임 오류가 발생하였습니다 

프로시저 호출 또는 인수가 잘못되었습니다  

라고  오류메세지가 뜹니다.. 어떻게 된건가요?

 => 소스를 올려주세요. 분석해서 답변드리겠습니다.

첫번째 소스입니다...

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\abc0012.txt" For Input As #1

''최대값 최소값 초기화
최대값 = 0
최소값 = 999999999

For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then

''변수 저장
성별 = Trim(Mid(버퍼, 31, 1))
레벨 = Val(Mid(버퍼, 27, 2))
경험치 = Val(Mid(버퍼, 15, 3))
체력 = Val(Mid(버퍼, 18, 3))
지력 = Val(Mid(버퍼, 21, 3))
마법력 = Val(Mid(버퍼, 24, 3))

''최대값 최소값 구하기
If 성별 = "F" And 레벨 >= 5 Then
If 최대값 < 경험치 + 체력 + 지력 + 마법력 Then
   최대값 = 경험치 + 체력 + 지력 + 마법력
   End If
  
If 최소값 > 경험치 + 체력 + 지력 + 마법력 Then
   최소값 = 경험치 + 체력 + 지력 + 마법력
   End If
  
   End If
 End If
Next i

Close #1

''출력 파일 처리
Open "c:\c_it\data\ans2.txt" For Output As #2
Print #2, 인수1, 인수2, 최대값 - 최소값
Close #2

End Sub

두번째 소스입니다...

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\abc0012.txt" For Input As #1

For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then

''변수 저장
아이템코드 = Trim(Mid(버퍼, 30, 1))
캐릭터타입 = Trim(Mid(버퍼, 29, 1))
체력 = Val(Mid(버퍼, 18, 3))
지력 = Val(Mid(버퍼, 21, 3))
마법력 = Val(Mid(버퍼, 24, 3))
경험치 = Val(Mid(버퍼, 15, 3))

Select Case 아이템코드
 Case "A"
 체력 = 체력 + 10
 
  Case "B"
 지력 = 지력 + 10
 
  Case "C"
 마법력 = 마법력 + 10
 
  Case "D"
 체력 = 체력 + 5
 지력 = 지력 + 5
 마법력 = 마법력 + 5

 End Select
 

''합계 구하기
If 캐릭터타입 = "W" Then
Num = Num + 1
합계 = 합계 + 경험치 + 체력 * 2 + 지력 * 2 + 마법력 * 3
End If
 End If
Next i

''평균(반올림값) 구하기
If Num = 0 Then
   합계 = 0
Else
   평균 = Round(합계 / Num)

End If
Close #1

''출력 파일 처리
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 평균
Close #2

End Sub

세번째 질문

다운 받은  정보처리 수검관리 프로그램은 진짜와는 다르게  "수검자 프로그램 실행" 하고

"프로그램 송신 및 저장 중 프로그램 소스 송신"은 안되는거 맞나요?

글자는 보이는데 클릭해서 들어갈수는 없게 되어있더군요...어떻게 된거죠?

=> 수검자 등록을 하셔야 합니다. 등록후 확인 가능합니다.

   수검자 등록에 필요한 pc번호, 감독관pc주소..등을 알지를 못하는데 어떻게

   등록이 가능한가요? 알지 못해서 등록을 임의로 하긴했지만 그게 잘못된건 가요?