Question

vb 使用二维数组存储五人学号（四位）姓名，然后输入学号，输出对应

姓名，用for语句

Answer 1

Private Sub Command1_Click()
Dim i As Integer, n As String
Dim a As Variant
a = Array(1, 2)
a(0) = Array("0001", "0002", "0003", "0004", "0005")
a(1) = Array("name1","name2","name3","name4","name5")
n = InputBox("No.")
For i = 0 To 4
If a(0)(i) = n Then MsgBox "Name:" & a(1)(i)

Next
End Sub