新建一个VB的EXE程序，画一个TEXT1，将文本改为110，再画一个COMMAND1，复制以下代码 Option Explicit Private Sub Command1_Click() Dim a As Single a = CSng(Text1.Text) Print a End Sub 将字符串转换成数字的函数还有，CInt和Val都是整型,CLng长整型，用法和本例差不多的。本例中的CSng是单精度型的也就是小数型的。