vb6 将字符串中数字转换成数字

vb6 将字符串中数字转换成数字

Private Sub Command1_Click()
  Dim s As String
  s = "￥22"
  For i = 1 To Len(s)
     Select Case Mid(s, i, 1)
        Case 0 To 9
            Print FormatNumber(Val(Mid(s, i)), 2, vbTrue)
            Exit For
     End Select
  Next

End Sub

另外你还可以使用正则表达式来做。

新建一个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是单精度型的也就是小数型的。
打字不易，如满意，望采纳。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！