Question

vb代码的意思

Option Base 1
Private Sub Form_Click()
Dim a(3,3)As Integer
For i = 1 to 3
For j = 1 to 3
a(i,j)=_________________
Print a(i,j)
Next j
Print
Next i
End Sub
运行上面的程序 单击窗体，输出结果如下：1 4 7
2 5 8
3 6 9
则在横线处填什么？？想问下这道题的解题思路是什么 最重要的是 我不知道他怎么循环的。这是嵌套循环吗？大神告诉我怎么循环的

Answer 1

Option Base 1'声明所有数组下标从1开始(VB6中下标默认从0开始)
Private Sub Form_Click()'窗体鼠标单击事件过程
Dim a(3,3)As Integer'定义一个整型的二维数组变量a
For i = 1 to 3'子循环三次，从1到3，i记录的是当前循环次数(这里不规范，i也应当定义一个变量，因为是正整数且最大值是3，定义一个byte字节类型即可)
For j = 1 to 3'子循环内再嵌套一个子循环，也是循环三次，从1到3，解释一下嵌套循环，例如循环内嵌套循环是循环三次，外部循环也是三次，是先执行完内部循环三次之后再执行外部循环，所以每次外部循环执行完都会执行三次内嵌套循环，所以这里是内嵌套循环中的执行了9次，外循环执行了3次(此处j同上i不规范)
a(i,j)=_________________'这里是往二维数组中赋值，下标是循环的次数决定
Print a(i,j)'在窗体上打印出a(i,j)所含的值，i和j都是子循环变量，所以输出i和j所在纬度二维数组的值，通俗的说i是二维数组下标所属的行，j是二维数组下标所属的列
Next j'结束子循环j
Print'打印一个空行在窗体上
Next i'结束子循环i
End Sub'事件过程结束

手打够详细，望采纳！谢谢！

追问

嘿嘿 我数学很烂的 大神还能不能把运算过程赐教一下。。。感激不尽

追答

这段代码跟没有跟数学相关的算法，只是一个简单的二维数组循环赋值，现在可以不必过多了解，以后循环用多了自然就明白

Answer 2

a(i, j)= i + (j - 1) * 3

追问

我想知道 这个循环结构怎么循环的 大神请赐教

追答

自己拿笔算啊，两层循环，外面是i，里面是j，都是1～3，并不复杂