问题 填空题

以下程序的功能是:程序运行后,单击命令按钮,输出结果为:
1 4 7
2 5 8
3 6 9
请填空。
Private Sub Command1_Click( )
Dim Arr(3,3)As Integer
For i=1 To 3
For j=1 To 3
Arr(i,j)=______
Print Arr(i,j);
Next j
Print
Next i
End Sub

答案

参考答案:i+(j-1)*3 或(i-1)+j*3-2

解析: 该题输出的是一个3行3列的二维数组,数组中的各元素通过外层循环变量i和内层循环变量j产生,i用来控制数组Arr的行的变化,而i用来控制数组的列的变化。每执行一次外层循环,产生并输出数组的一行。第一次执行外层循环时,产生并输出的一行为1 4 7,即内层循环变量为1时输出1,内层循环变量为2时输出4,内层循环变量为3时输出7。因此,可以根据循环变量i和j的变化,用一个公式来产生和输出指定的数组。默认标题(如Form1、Form2…)。用Caption属性可以把窗体标题改为所需要的名字。该属性既可通过属性窗口没置,也可以在事件过程中通过程序代码设置。

选择题
选择题