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

运行如下程序 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  52
问题 运行如下程序
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://www.kaotiyun.com/show/W1Tp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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