'这个当然可以，用mid 取字符串的位置长度 Dim str As String = "16461了工有6149夺中46146好31" Label1.Text = Mid(str, str.Length - 3, 3) '取字符串最后3位数 Label2.Text = Mid(str, 1, 3) '取字符串前面3位数
