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