화면 "흔들" 하고 나서 data 폴더 가시면 ans1.txt 만들어지잖아요..거기에 나오는건데..

그 파일이 안만들어지신다는 말씀이신가요?

저도 초보자라 머...잘 모르지만...^^;

>>

이거 속성->만들기->명령줄 인수 에 숫자 넣으면 왜 실행이 안되는 거예요?

다른 문제도 다 그래요..;;;

오류면 오류메시지는 뜨는데, 나중에 다 맞는거 같은데 실행키 누르면 숫자는 안나오고

화면만 흔들(?)려요..ㅡㅡㅋ

낼이 시험인데 어떡해요..ㅠㅠ

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\abc0001.txt" For Input As #1
       
        최대값 = 0
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
              
               ''''변수 저장
               매출액 = Val(Mid(버퍼, 26, 3))
               제조포인트 = Val(Mid(버퍼, 20, 3))
              
               ''''최대값
               If 제조포인트 >= 30 Then
                    If 최대값 < 매출액 * 제조포인트 Then
                        최대값 = 매출액 * 제조포인트
                    End If
               End If
            End If
      
       Next i
      
    Close #1
   
    ''''출력파일 처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 최대값
    Close #2

End Sub