VB中如何统计输入的数字的个数（vb编程如何显示上次输入的数据）

Private Sub Command1_Click()

Dim a As String

a = InputBox("输入任意字符串")

For i = 1 To Len(a)

If Asc(Mid(a, i, 1)) >= Asc("0") And Asc(Mid(a, i, 1))

Next

Print "字符串:" & a & "包含的数字有" & n & "个"

End Sub