Question

Private Sub Form_Click() Dim s As String, i As Integer, n(9) As Integer Dim s1 As String * 1, j As

Private Sub Form_Click()
Dim s As String, i As Integer, n(9) As Integer
Dim s1 As String * 1, j As Integer
s = "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

这个怎么解释
j = Val(s1)
n(j) = n(j) + 1

Answer 1

j = Val(s1)‘这句是将字符型变量s1转换成数值型赋给变量j
n(j) = n(j) + 1'这句是使数组n的j元素数值加1

追问

那显示的内容，第五行是 4:1，怎么得出来的啊

追答

您这个程序的作用 是 统计指定字符串中 每个数字出现的次数
在程序中提供的字符串s中数字4出现了一次所以第五行是4:1

Answer 2

如需编辑回答或插入图片，请点击标题到问题详情页j = Val(s1)‘这句是将字符型变量s1转换成数值型赋给变量j
n(j) = n(j) + 1'这句是使数组n的j元素数值加1