单选题
运行如下程序Private Sub Commandl_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整除的数的个数。
提交答案
关闭