Private Sub Form_Click()
Dim s As String, i As Integer, n(9) As Integer
Dim s1 As String * 1, j As Integer
s = Trim("12345a307291b233")
For i = 1 To Len(s)
s1 = Mid(s, i, 1)
If s1 >= "0" And s1 <= "9" Then
j = Val(s1)
n(j) = n(j) + 1
End If
Next i
For j = 0 To 9
Print j; ":"; n(j)
Next j
End Sub
请告诉我怎么一步步算的,以及要注意的地方,谢谢!
我知道 这是VB二级的试题 我现在要考二级