编写如下程序：Private Sub Command1_Click() Dim a(3， 3)As Integer Dim s As Integer For i＝1 To 3 For j＝1 To 3 a(i， j)＝i * j＋i Next j Next i s＝0 For i＝1 To 3 s＝s＋a(i， 4－i) Next i Print sEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。
- A.7
- B.13
- C.16
- D.20
热度🔥532
参考答案：C
解析：
【解析】程序通过For循环为数组a赋值，具体值如下：a(1,1)＝1＋1＝2， a(1,2)＝2＋1＝3， a(1,3)＝3＋1＝4；a(2,1)＝2＋2＝4， a(2,2)＝4＋2＝6， a(2,3)＝6＋2＝8；a(3,1)＝3＋3＝6， a(3,2)＝6＋3＝9， a(3,3)＝9＋3＝12；程序要计算指定数组元素的和，这几个元素是a(1,3)， a(2,2)， a(3,1)，所以s＝4＋6＋6＝16。
【解析】程序通过For循环为数组a赋值，具体值如下：a(1,1)＝1＋1＝2， a(1,2)＝2＋1＝3， a(1,3)＝3＋1＝4；a(2,1)＝2＋2＝4， a(2,2)＝4＋2＝6， a(2,3)＝6＋2＝8；a(3,1)＝3＋3＝6， a(3,2)＝6＋3＝9， a(3,3)＝9＋3＝12；程序要计算指定数组元素的和，这几个元素是a(1,3)， a(2,2)， a(3,1)，所以s＝4＋6＋6＝16。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
