Question

求解一道VB题目

Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, x As String, b As String
x = InputBox("请输入一个多位整数")
For k = 1 To Len(x)
b = Mid(x, k, 1)
a(Val(b) + 1) = a(Val(b) + 1) + 1
Next k
For k = 1 To 10
Print a(k);
Next k
End Sub
输入23552700224 为什么输出的是1 0 4 1 1 2 0 1 0 0 ？

a(Val(b) + 1) = a(Val(b) + 1) + 1 这一句是怎么给数组赋值的？一直没看明白。

Answer 1

答案是C.输入10000个数值，计算平均数，适合采用循环结构算法。
A。判断一个证书是否为偶数，解决该问题仅需一步判断，也许需要一步赋值，没有多次重复的步骤，不适合采用循环结构算法。
B。输入一个圆的半径，计算面积和周长。输入数据、计算面积，这三个内容都是一个语句就可以完成的，没有多次重复的步骤，不适合采用循环结构算法。
C。输入10000个数值，计算平均数。这里输入数据要重复10000个相同步骤，如果与输入数据同步累加，则计算平均数一步即可完成。如果后期单独计算，就需要重复进行10000次加法运算。“循环结构可以让计算机在某个条件成立的情况下重复执行某个步骤”，所以适合采用循环结构算法。
D。输入一个正方形面积，求边长，只需要输入一个数据，数据开方这两个步骤，没有要多次重复的步骤，不适合采用循环结构算法。

追问

答非所问