Question

private sub command1_click( ) dim a a=array(1,2,3,4) j=1: s=0 for i=4 to 1 step -1 s=s + a(i)*j j=

Answer 1

1:
4
2:
12
35
813
3:
3
4:
12
5:
for i=3 to 1?????不执行吧
四
1:
s=0
s=s+j*(j+1)/2
2:
select case index
case 0
case 1
case 2
五
1:
i=100*(101)/2
print i
2:
Dim t As Integer
m = Val(InputBox("输入m"))
n = Val(InputBox("输入n"))
i = m * n
Do While m Mod n <> 0
t = m Mod n
m = n
n = t
Loop
Print i / n
3:
好乱
7:
Dim i As Integer
Dim Num As Integer, Sum As Integer
Num = 0
Sum = 0
For i = i To 100
If i Mod 2 <> 0 Then
Num = Num + 1
Sum = Sum + i
End If
Next
Print Num, Sum

Answer 2

j永远=1，因为在程序中，j没有发生改变