2. 计算机
  3. 编写如下程序： 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

编写如下程序： 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

admin2020-07-22  37
问题 编写如下程序：
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 s
End Sub
程序运行后，单击命令按钮Command1，输出结果为(　　)。
选项 A、7
B、13
C、16
D、20
答案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。
转载请注明原文地址:https://kaotiyun.com/show/cAHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)