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。
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。