神马作文网VBA编程,如何利用VBA解答此题
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/12 00:44:00
VBA编程,如何利用VBA解答此题
下列程序段,建立如图所示的数组d（下标从1开始）,填写所缺部分：
1 2 3 4 5 6
2 1 2 3 4 5
3 2 1 2 3 4
4 3 2 1 2 3
5 4 3 2 1 2
6 5 4 3 2 1
Dim d(1 To 6,1 To 6)
For j = 1 To 6
For k = 1 To 6
d(j,k) = Abs( _____ ) + 1
Next k
Next j
A．j B．j-k+1 C．j-k D．2*j-k
下列程序段,建立如图所示的数组d（下标从1开始）,填写所缺部分：
1 2 3 4 5 6
2 1 2 3 4 5
3 2 1 2 3 4
4 3 2 1 2 3
5 4 3 2 1 2
6 5 4 3 2 1
Dim d(1 To 6,1 To 6)
For j = 1 To 6
For k = 1 To 6
d(j,k) = Abs( _____ ) + 1
Next k
Next j
A．j B．j-k+1 C．j-k D．2*j-k
带入法算算嘛……
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数组。
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数组。