作业帮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=1to10a1(i)=3*i a2(i)=a1(i)*3Next iText1.Text=Str(a2(i/2-0.1))End Sub程序运行后显示（B）A 36 B 45 C 54
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 18:37:41
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=1to10a1(i)=3*i a2(i)=a1(i)*3Next iText1.Text=Str(a2(i/2-0.1))End Sub程序运行后显示（B）A 36 B 45 C 54
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
求讲解
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=1to10a1(i)=3*i a2(i)=a1(i)*3Next iText1.Text=Str(a2(i/2-0.1))End Sub程序运行后显示（B）A 36 B 45 C 54
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