Как отобразить метки столбцов 2D-массива в VB6

Question

Я новичок в vb6, мне это нужно для моей школы, я очень старался, я не могу сделать это, это моя практика, программа, в которой есть пассажиры (имя, номер рейса, вылет, прибытие), когда вы набираете "R" каждая спецификация пассажира должна * go к компьютеру, когда вы вводите I, каждая спецификация пассажира должна показывать, когда вы набираете E, программа должна заканчиваться sh

Я использовал 2dArray, который называется Passengerers (3,4), потому что У меня есть четыре столбца и вложенные поля для ввода информации, но я не знаю, как отображать метки столбцов, поэтому пользователь понимает, какой столбец печатать? и я не знаю, правильно ли использовать массивы и список для отображения информации? не могли бы вы помочь мне с кодом? Я использую vb6 это мой код, есть ли лучший способ лучше?

Dim a(5, 4)
Dim i, j As Integer
If Text1.Text = "R" Then
For i = 1 To 5
a(i, 1) = Val(InputBox("Please enter Passenger Name:"))
a(i, 2) = Val(InputBox("Please enter Passenger Flight Number:"))
a(i, 3) = Val(InputBox("Please enter Passenger Departure:"))
a(i, 4) = Val(InputBox("Please enter Passenger Arrival:"))
Next i
ElseIf Text1.Text = "I" Then
Picture1.Cls
Picture1.Print "Passenger"; Space(3); "Value of element"
For j = 1 To 4
Picture1.Print "Passenger"; 1; Space(11); a(1, j); "Passenger"; 2; Space(11); 
a(2, j); 'and other coulmns
Next j
ElseIf Text1.Text = "E" Then
End
End If
End Sub

Answer 1

Лучше, если вы переформатируете свой код

Dim a(5, 4)
Dim i, j As Integer
If Text1.Text = "R" Then
    For i = 1 To 5
        a(i, 1) = Val(InputBox("Please enter Passenger Name:"))
        a(i, 2) = Val(InputBox("Please enter Passenger Flight Number:"))
        a(i, 3) = Val(InputBox("Please enter Passenger Departure:"))
        a(i, 4) = Val(InputBox("Please enter Passenger Arrival:"))
    Next i
ElseIf Text1.Text = "I" Then
    Picture1.Cls
    Picture1.Print "Passenger"; Space(3); "Value of element"
    For j = 1 To 4
        Picture1.Print "Passenger"; 1; Space(11); a(1, j); "Passenger"; 2; Space(11);
        a(2, j); 'and other coulmns
    Next j
ElseIf Text1.Text = "E" Then
    End
End If