效果显示：Private Sub Text1_Change()Text2.Text = CStr(Text1.Text) '转字符串Text3.Text = Val(Text1.Text) '转为数字End Sub备注：1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()；2、CSt...
原创
2021-07-12 14:11:00
317阅读