VBA编程,如何利用VBA解答此题

带入法算算嘛……
A,第一行就不满足
B,第一个就不满足.
C,正确答案
D,第一个就不满足.

答案C.
再问： 我复制粘贴到access里面不知道怎么才能搞出答案
应该添加些什么代码才能输出结果啊？
再答： Sub tt()
     Dim d(1 To 6, 1 To 6)
     Dim str
     For j = 1 To 6
     str = ""
        For k = 1 To 6
           d(j, k) = Abs(j - k) + 1
           str = str & " " & d(j, k)
        Next k
        Debug.Print Mid(str, 2)
     Next j
End Sub打开立即窗口就可以看到结果了 或者，在end sub上加一个断点，然后运行宏，看本地窗口里的d数组。