运行如下程序 Private Sub Command l_Click() Dim a(5，5)As Integer For i=1 To 5 Forj=1 To 4

admin2019-04-29 22

问题运行如下程序
Private Sub Command l_Click()
      Dim a(5，5)As Integer
      For i=1 To 5
         Forj=1 To 4
            a(i，j)=i*2+j
            If a(i，j)／7=a(i，j)＼7 Then
                  n=n+1
            End If
         Nextj
      Next
      Print n
End Sub
则n的值是

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

答案B

解析在二重循环中为二维数组赋初值，每个元素的值均为行号*2加上列号；在If语句中进行判断，如果数组元素能被7整除则令计数器n加1，所以整个程序的功能就是统计二维数组中能被7整除的数的个数。

转载请注明原文地址:https://kaotiyun.com/show/eGUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类