程序代码：

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