Question

一道VB的VB代码题目，求思路过程

在窗体上画一个 命令按钮，其名称为command1，然后 编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 to1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行程序，单机命令按钮，则在标签显示（）。
答案是1234. 求思路过程。。。。越详细越好。

Answer 1

运算过程主要是在FOR循环中，所以分析如下:
第一次循环：i=4,j=1,a(4)=4,s=0+4=4‘s前面没有赋值 默认为0
第二次循环：i=3,j=10,a(3)=3,s=4+30=34
第三次循环：i=2,j=100,a(2)=2,s=34+200=234
第四次循环：i=1,j=1000,a(1)=1,s=234+1000=1234
所以最后s=1234

追问

为什么j是，1，10，100，1000依次变化？

追答

因为在每次循环的时候 j 都乘以10啊 就是j=j*10

Answer 2

for 循环 有 step 是步长 -1 就是依次 4-1 到最小的i 开始声明了 Option Base 1 所以 i最小是 1

i=4 s=0+4*1 j=1*10
i=3 s=4+3*10 j=10*10
i=2 s=34+2*100 j=100*10
i=1 s=234+1*1000 j=1000*10

s=1234

Answer 3

代码有问题, 应该是s=s+a(i-1)*j,

怎么算的过程单步执行看看每个值的变化过程就可以了