程序代码：
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
