Question

窗体上有一个名称为Command1的命令按钮，并有如下程序代码：

窗体上有一个名称为Command1的命令按钮，并有如下程序代码：
Option Base 1
Private Sub Command1_Click()
Dim a%(3, 3)
For i = 1 To 3
For j = 1 To 3
If i > 1 And j > 1 Then
a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1
Else
a(i, j) = i * j
End If
Next
Next
Print a(2, 3）
End Sub

帮我详细解释下a(2,3)是怎么算出来的
a(1,2)=2 a(2,2)=3 a(2,3)=a(a(1,2),a(2,2))+1=a(2,3)+1 这样哪里算错了

Answer 1

在这个9步的程序里，只有几个特定的a(i,j)是直接赋值的，所以不能随意用数值来替换a(i,j)：
step: 1 a(i,j) 1 1 = 1
step: 2 a(i,j) 1 2 = 2
step: 3 a(i,j) 1 3 = 3
step: 4 a(i,j) 2 1 = 2
step: 7 a(i,j) 3 1 = 3

追问

那a(3,3) a(2,3）怎么计算？

追答

抱歉我之前的考虑有误，你a(2,3)=a(2,3)+1的计算过程没有错误，但是因为a(2,3)初始值是0所以得出结果是1。你这段程序实际功能是什么呢？
step=1, a(1,1)=1
step=2, a(1,2)=2
step=3, a(1,3)=3
step=4, a(2,1)=2
step=5, a(2,2)=a(a(1,1),a(2,1)) + 1
step=5, a(2,2)=3
step=6, a(2,3)=a(a(1,2),a(2,2)) + 1
step=6, a(2,3)=1
step=7, a(3,1)=3
step=8, a(3,2)=a(a(2,1),a(3,1)) + 1
step=8, a(3,2)=2
step=9, a(3,3)=a(a(2,2),a(3,2)) + 1
step=9, a(3,3)=3

Answer 2

第一题
CommonDialog1.FilterIndex=2
0,1,2
所以刚好是第三个 文本文件(*.Txt)
所以选A

第二题
CommonDialog1.FilterIndex=3
因为共只有2
顾只能选最后一个
所以选C

第三题
4+30+200+1000=1234
所以选B

第三题
b="10"
a="8"
b+a=108
所以选d
请采纳。