Dima1(10),a2(10)Fori=1to10a1(i)=3*ia2(i)=a1(i)*3NextiText1.Text=Str(a2(i/2-0.1))PrivateSubCommand1-Click()Dima1(10),a2(10)Fori=1to10a1(i)=3*ia2(i)=a1(i)*3NextiText1.Text=Str(a2(i/2-0.1))EndSub程序运行后显示（B）A36B45C54

Question

Dim a1(10),a2(10) For i=1to10 a1(i)=3*i a2(i)=a1(i)*3 Next i Text1.Text=Str(a2(i/2-0.1))
Private Sub Command1-Click()
Dim a1(10),a2(10)
For i=1to10
a1(i)=3*i
a2(i)=a1(i)*3
Next i
Text1.Text=Str(a2(i/2-0.1))
End Sub
程序运行后显示（B）
A 36 B 45 C 54 D 63
求讲解

Answer 1

for 循环后 i 的值为11
i/2-0.1=5.4
因为识别数组元素的索引只能是整数,所以a2(5.4) 实际就是 a2(5)
a1(5)=3*5=15
a2(5)=a1(5)*3=15*3=45