Question

Option Base1 Private Sub command1_click() dim a a＝array（1，2，3，4，5） For i ＝ 1to U...

Option Base1
Private Sub command1_click()
dim a
a＝array（1，2，3，4，5）
For i ＝ 1to UBound(a)
a(i)=a(i)+i－1
Next i
Print a(3)
End Sub
要过程，a(3)=多少？

Answer 1

Option Base 1 '数组下标从1开始
Private Sub command1_click()
Dim a
a = Array(1, 2, 3, 4, 5) 'a(3)=3
For i = 1 To UBound(a) 'i=1~5
a(i) = a(i) + i - 1 'a(3)=3+3-1=5
Next i
Print a(3)
End Sub

Answer 2

text1中显示3，text2中显示8
因为n=4，共循环4次
第一次
k=0，t=a(1)=1，a(1)=k+t=1，k=t=1，s=s+a(1)=0+1=1
第二次
t=a(2)=2，a(2)=k+t=1+2=3，k=t=2，s=s+a(2)=1+3=4
第三次
t=a(3)=1，a(3)=k+t=2+1=3，k=t=1，s=s+a(3)=4+3=7
第四次
t=a(4)=0，a(4)=k+t=1+0=1，k=t=0，s=s+a(4)=7+1=8

Answer 3

eeeeeeeee

Answer 4

这是什么？？