제가 풀어봤습니다...선생님..어디서 틀린지 답변 좀 부탁 드려도 될까요?











Option Explicit

Sub Main()
''필수변수선언
Dim 인수1, 인수2, k, 버퍼 As Variant

''핵심변수선언
Dim 입원실, 입원료, 환자등록번호, p, temp, num As Variant

''문제2
Dim 최대값 As Variant

''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력파일처리
Open "c:\c_it\data\abc21.txt" For Input As #1

최대값 = 0

For k = 1 To 인수2
    Line Input #1, 버퍼
        If k >= 인수1 Then
       
            '' 변수저장
            입원실 = Trim(Mid(버퍼, 30, 9))
            입원료 = Val(Mid(버퍼, 41, 4))
            환자등록번호 = Trim(Mid(버퍼, 1, 9))
               
                If 입원실 = "특실" And 입원실 = "2인실" Then
                    If 최대값 < 입원료 Then
                        최대값 = 입원료
                    End If
                   
                End If
       
        End If
       
Next k

Close #1

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