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