UC知道VB运行结果
来源：百度知道 编辑：UC知道 时间：2024/06/10 19:51:00
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
我是初学者，请问为什么不是4321啊，而是1234啊谢谢了
各位啊，这是04年4月的VB题，他的答案是1234啊，我运行了一下也是1234，可是我怎么也做不到，
for i =4 to 1 step -1
那a(i)就分别为a(4)=4,a(3)=3,a(2)=2,a(1)=1,
s1=0+4*1=4，下面就更不用说了，怎么算才能得到1234呢？
高手请帮忙
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
我是初学者，请问为什么不是4321啊，而是1234啊谢谢了
各位啊，这是04年4月的VB题，他的答案是1234啊，我运行了一下也是1234，可是我怎么也做不到，
for i =4 to 1 step -1
那a(i)就分别为a(4)=4,a(3)=3,a(2)=2,a(1)=1,
s1=0+4*1=4，下面就更不用说了，怎么算才能得到1234呢？
高手请帮忙
关键是
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
读出的数顺序是4，3，2，1。
然后第一次 j=1
s=4*1
然后 j=10
s=4+3*10
……
依此类推。
4 to 1 step -1
从4递减到1 每次减1
a被设为数组
For i = 4 To 1 Step -1
i每次减1
所以s = s + a(i) * j
即 s = s + a(4) *j
a = Array(1, 2, 3, 4)
a(4)=4
a(3)=3
..
顺序是 4+30+200+1000