请高手指点一下
如何在text中输入不同数字
按回车键之后切换到不同的label控件
并将text中的内容显示在对应的label控件中
如：在text1中输入2，回车后，便将2显示在label2中
如果输入3，回车后，便将3显示在label3中
如果输入50，回车后，便将3显示在label50中
以此类推下去
跪请高手指点小弟啊
最好有代码，谢谢啊

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
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

谢谢你啊
我试试看

测试通过了啊，感谢版主积极快速的响应我的求助