帮忙编程，急

来源：百度知道 编辑：UC知道 时间：2024/06/08 09:34:06
VB中先输入编号1-5的人的年龄，然后输入人的编号，就可看年龄，怎么编程

做了个简单的程序，看看

'添加窗体Form1,卷标Label1,按钮Command1,Command2,然后添加如下代码:
Private Type MAN
    strID As String
    strAge As String
End Type
Dim m1(1 To 5) As MAN

Private Sub Form_Load()
    Command1.Caption = "信息录入"
    Command2.Caption = "年龄查询"
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 5
        m1(i).strAge = InputBox("请输入第" & i & "人的年龄：", "输入年龄")
    Next
    For i = 1 To 5
     &nb