Type record
    고객번호  As String * 5
    열차코드 As String * 2
    좌석코드 As String * 2
    열차요금 As String * 6
    승객만족도 As String * 2
    고객구분코드 As String * 2
    출발지코드 As String * 2
    도착지코드 As String * 2
    탑승인원 As String * 3
    여행거리 As String * 5
    월이용횟수 As String * 2
   
End Type

Dim data As record
Dim result(100), num(100)

Sub main()

    Open "c:\c_it\data\abc0105.txt" For Random As #1 Len = Len(data) + 2
    Open "c:\c_it\data\ans1.txt" For Output As #2

    val1 = Val(Left(Command, InStr(Command, " ")))
    val2 = Val(Mid(commmand, InStr(Command, " ")))
    
    For i = val1 To val2
        Get #1, i, data
           
        If Val(data.열차요금) >= 27000 Or UCase(data.열차코드) = "MU" Then
            result(cnt) = Val(data.승객만족도) * Val(data.탑승인원)
            num(cnt) = Val(data.고객번호)
            cnt = cnt + 1
        End If
   
    Next
       
        For i = 0 To cnt - 2
            For j = i + 1 To cnt - 1
                If result(i) > result(j) Then
               
                    temp = result(i)
                    result(i) = result(j)
                    result(j) = temp
               
                    temp1 = num(i)
                    num(i) = num(j)
                    num(j) = temp1
                   
                End If
            Next
        Next
       
     Debug.Print val1, val2, num(11)
     Print #2, val1, val2, num(11)
    

End Sub