效果显示: Private Sub Text1_Change() Text2.Text = CStr(Text1.Text) '转字符串 Text3.Text = Val(Text1.Text) '转为数字 End Sub 备注: 1、Val()函数,字符串转为数字,从左到右依次转换,遇到非数字字符为止,必要时可以使用CDbl(); 2、CStr()函数,数字转换为字符串。