如何在VB6中显示2D阵列的标签列

Question

我是vb6的新手，我的学校需要它，我已经尝试了很多，但我做不到。这是我的做法一个有乘客（姓名，航班号，出发，到达）的程序当您键入“ R”时，每个乘客说明都应转到计算机上当您输入I时，每个乘客规格应显示当您键入E时，程序应完成

我使用了2dArray，它被称为Passengers（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