7월 9일 오전 문제입니다.
1번
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
       
실행하면 100 200  하고 다음에 답이 안나와요--;