비주얼 플그램에선

인수값 지정하고 결과값 확인은 안되는 건가요?

(프로젝트 속성에서 마우스 우클릭하고 대화창 뜰때 만들기에서 인수값 지정해줬는데 실행버튼 누르니깐 반응이 엄써요.오류메세지도 안뜨구요)

data 폴더내에 ans값이 지정한 인수 두번째 값만 뜨네요

수검플그램에선 될까싶어 해봤는데...

실행해보니  인수값 1 자리에만 숫자가 좌악......떠요......ㅜ.ㅜ

소스 다 맞는거 같은데...

모레 셤인데...아직도 이러고 있네요...

휴.....

참고로 호텔예약관리(중급) 1번 문제거든요?

아 그리고 첨에 모듈저장하고 나서 프로젝트 저장할때..

add this project to source safe? 이라는 메세지가 계속 떠요

예스 누르면 영어로 된 창이 뜨고 노 누르면 그냥 화면 빠져 나가는데..

당췌 먼소린지...

Option Explicit

Sub main()
    ''''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
    ''''핵심변수선언
    Dim 예약실구분코드, 투숙기간, 누적점수, 할인금액, 합계(1000), 숙박요금(1000), 예약번호(1000), j, Temp, Num As Variant
   
    ''''인수처리
     인수1 = Val(Left(Command, InStr(Command, " ")))
     인수1 = Val(Mid(Command, InStr(Command, " ")))
     ''''입력파일처리
     Open "c:\c_it\data\abc0002.txt" For Input As #1
          For i = 1 To 인수2
              Line Input #1, 버퍼
              If i >= 인수1 Then
                 ''''변수저장
                 예약실구분코드 = Trim(Mid(버퍼, 38, 2))
                 투숙기간 = Val(Mid(버퍼, 15, 2))
                 누적점수 = Val(Mid(버퍼, 40, 5))
                 할인금액 = Val(Mid(버퍼, 30, 4))
                ''''합계구하기
                If 예약실구분코드 = "WA" Or 투숙기간 <= 13 Then
                   Num = Num + 1
                   합계(Num) = 누적점수 + 할인금액
                   숙박요금(Num) = Val(Mid(버퍼, 19, 6))
                   예약번호(Num) = Val(Mid(버퍼, 1, 6))
                  
                End If
               
              End If
             
         
          Next i
         
         
      ''''정렬(합계내림차순 or(동일값 and 예약번호 오름차순))
      For i = 1 To Num
          For j = i To Num
               If 합계(i) < 합계(j) Or (합계(i) = 합계(j) And 예약번호(i) > 예약번호(j)) Then
                   Temp = 합계(i)
                   합계(i) = 합계(j)
                   합계(j) = Temp
                  
                   Temp = 숙박요금(i)
                   숙박요금(i) = 숙박요금(j)
                   숙박요금(j) = Temp
                  
                  
                   Temp = 예약번호(i)
                   예약번호(i) = 예약번호(j)
                   예약번호(j) = Temp
                  
                  
                  
               End If
              
          Next j
         
         
      Next i
     
    
     Close #1
     ''''출력파일처리
     Open "c:\c_it\data\ans1.txt" For Output As #2
           Print #2, 인수1, 인수2, 숙박요금(4)
     Close #2
    
    
End Sub