2. 计算机
  3. 运行如下程序 Private Sub Command l Click() Dim a(5，5)As Integer For i=1 T0 5 For j=1 To 4 a(i，j)=i*2+j Ifa(i，j)／7=a(i，j)＼7 Then n=n+1

运行如下程序 Private Sub Command l Click() Dim a(5，5)As Integer For i=1 T0 5 For j=1 To 4 a(i，j)=i*2+j Ifa(i，j)／7=a(i，j)＼7 Then n=n+1

admin2019-06-11  34
问题 运行如下程序
Private Sub Command l Click()
Dim a(5，5)As Integer
For i=1 T0 5
For j=1 To 4
a(i，j)=i*2+j
Ifa(i，j)／7=a(i，j)＼7 Then
n=n+1
End If
Nextj
Next
Prim n
End Sub
则n的值是
选项 A、2
B、3
C、4
D、5
答案B
解析 在二重循环中为二维数组赋初值，每个元素的值均为行号*2加上列号：在If语句中进行判断，如果数组元素能被7整除则令计数器n加1，所以整个程序的功能就是统计二维数组中能被7整除的数的个数。
转载请注明原文地址:https://www.kaotiyun.com/show/CjUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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