在text中输入不同数字
按回车键之后切换到不同的label控件
并将text中的内容显示在对应的label控件中
代码如下：
Dim i As Long
Dim s As String
Dim k As Object
If KeyCode = 13 Then                '如果按下了回车键
    i = Val(Text1.Text)             '转数字  ,
'没写范围判断，因为通过循环后，不在范围内的数据无法找到控件也就是无结果
    s = "Label" & i                 '注意大小写
    For Each k In Form1.Controls    '查找所有的控件
        If k.Name = s Then          '找到了指定名字的
            k.Caption = i           '给值
            Exit For                '退出循环
        End If
    Next
End If   
End Sub


若要将Label控件改成数组控件Label1（）数组控件，修改如下，结果出现了报错：“不能给数组赋值”，请大侠帮帮忙啊，是哪里出错了
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Long
Dim s() As Integer
Dim k As Object
If KeyCode = 13 Then                '如果按下了回车键
    i = Val(Text1.Text)             '转数字  ,
'没写范围判断，因为通过循环后，不在范围内的数据无法找到控件也就是无结果
    s() = "Label1" & (i)            '注意大小写
    For Each k In Form2.Controls    '查找所有的控件
        If k.Name = s（） Then          '找到了指定名字的
            k.Caption = i           '给值
            Exit For                '退出循环
        End If
    Next
End If
End Sub