VB编程：获取字符串中数字个数
程序代码：
- Private Sub Form_Click()
- Dim i As Integer, j As Integer
- j = 0 ‘ 计数
- Dim str As String
- str = "abcs123"
- For i = 1 To Len(str)
- If IsNumeric(Mid(str, i, 1)) Then ‘判断是否为数字
- j = j + 1
- End If
- Next i
- Print j
- End Sub
湘公网安备 43102202000103号
