在窗体上画一个命令按钮Command1,然后编写如下代码:
Private Sub Command1_Click()
Dim arr1(10),arr2(10) As Integer
n=3
For i=1 To 5
arr1(n)=i
arr2(i)=2*arr1(n)+1
Next i
Print arr1(n),arr2(n);
End Sub
程序运行后,单击命令按钮,输出结果是________。
解析 本题考查的是循环结构。i的初值为1,终值为5,步长为1。
i
| arr1(n)
| arr2(i)
|
1
| arr1(3)=1
| arr2(1)=2*1+1
|
2
| arr1(3)=2
| arr2(2)=2*2+1
|
3
| arr1(3)=3
| arr2(i)=2*3+1
|
4
| arr1(3)=4
| arr2(i)=2*4+1
|
5
| arr1(3)=5
| arr2(i)=2*5+1
|
6
| /
|
|
循环执行结束后n为3,执行最后一次循环arr1(3)=5;arr2(3)=7。