시작 버튼을 클릭했는데 몇번을 해봐도 직접실행창에 아무것도 뜨지 않습니다
오늘 처음 비베로 실습 중...
전에 기능사 따고 간만에 해보는데 까먹었네요

기사친구 모의고사 1회 문제 수검프로그램 코딩해 봤는데요
소스도 혹시나 해서 정답 소스 붙여넣기 해봤거든요 인수값도 넣고...
그래도 안되네요..조언 좀 부탁드립니다...소스가 잘못된건지...

그리고 표처리 할때 ~ 이하 를 처리할때 부등호 없이 그냥 case else 로 하면 되는지...?
강의랑 소스 출력한 거랑 몇문제가 다르더군요 강의에서는 else 문 쓰는데
소스는 ~이상 반대방향으로 부등호만 바껴있고..


Option Explicit

Sub main()

    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    Dim 단가, 이익포인트, 거래포인트, 합계(1000), P, Temp, Num 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
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
               
                단가 = Val(Mid(버퍼, 12, 3))
                이익포인트 = Val(Mid(버퍼, 20, 3))
                거래포인트 = Val(Mid(버퍼, 27, 3))
               
                If 단가 >= 50 Then
                    Num = Num + 1
                    합계(Num) = 이익포인트 + 거래포인트
                End If
               
            End If
        Next K
       
        For K = 1 To Num
            For P = K To Num
           
                If 합계(K) < 합계(P) Then
                    Temp = 합계(K)
                    합계(K) = 합계(P)
                    합계(P) = Temp
                End If
               
            Next P
        Next K
       
    Close #1
   
    Open "c:\c_it\data\ans1.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 합계(5)
       
    Close #2

End Sub