vb,要过程

答案:3 悬赏:60

解决时间 2021-04-22 02:08

提问者网友：朱砂泪
2021-04-21 23:12

Option　Base　1
Private　Sub　Command1_Click()
　　　Dim　a
　　　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
程序运行后，单击命令按钮，其输出结果是
A)4321
B)1234
C)34
D)12

最佳答案

二级知识专家网友：说多了都是废话
2021-04-22 00:48

1234

a(1)=1,a(2)=2,a(3)=3,a(4)=4

j=1,s=0:s=0+a(4)*1=4

j=j*10=10,s=4:s=4+a(3)*10=34

j=j*10=100,s=34:s=34+a(2)*100=234

j=j*10=1000,s=234:s=234+a(1)*1000=1234

全部回答

1楼网友：社会水太深
2021-04-22 01:26

Private Sub Command1_Click() Dim a, j, i, s a = Array(1, 2, 3, 4) j = 1 Print "I", "j", "a(i)*j", "s" For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Print i, j, a(i) * j, s Next i Print s End Sub

2楼网友：蜜罐小熊
2021-04-22 01:01

这个题是运行不了的啊

下标越界了

array 是从0开始算的

Dim a a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s

才能运行结果是1234

题有问题

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！