运行如下程序 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j

admin2020-01-02  22

问题 运行如下程序
Private Sub Command1_Click()
      Dim a(5, 5) As Integer
      For i = 1 To 5
         For j = 1 To 4
            a(i, j) = i * 2 + j
            If a(i, j) / 7 = a(i, j) \ 7 Then
               n = n + 1
            End If
         Next j
      Next
      Print n
   End Sub
则n的值是(    )

选项 A、2
B、3
C、4
D、5

答案B

解析 程序的功能:利用二重For循环给二维数组a中每个元素赋值,然后通过If语句"a(i,j)/7=a(i,j)\7"判断a(i,j)的值是否能被7整除,若能被7整除,则利用语句"n=n+1",统计满足条件的a(i,j)的个数。程序开始时,利用二重循环和表达式"a(i, j) = i * 2 + j"给数组元素赋值,通过计算可以得知:a(2,3)=2*2+3=7;a(3,1)=2*3+1=7;a(5,4)=2*5+4=14,3个值满足条件,即n的值为3,故B选项正确。
转载请注明原文地址:https://jikaoti.com/ti/Iqx0FFFM
0

随机试题
最新回复(0)