Question

帮忙从第四行开始解释吧！！！！做题卡壳了！！！！！！拜托啦！！！！！！！！！！！

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
for j =0 to 9
print j ; ":" n(j)
next
end sub

Answer 1

第4行：
s=trim("12345a307291b233")

表示把后面字符串前后的空白去除后赋值给变量s，但是这个字符串明明没有空白，写程序的人可能脑壳有包，直接写s="12345a307291b233"效果一样

第5～11行：
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
表示判断字符串s的每一位，如果是'0'～'9'的字符，就把数组N(0)～N(9)对应的元素+1，循环结束后n(0)的值就是字符串中字符'0'的个数，1～9元素的值类似

第12～14行：
for j =0 to 9
print j ; ":" n(j)
next
功能是输出数组n(0)～n(9)每个元素的值