运行如下程序 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

admin2019-06-11  41

问题 运行如下程序
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整除的数的个数。
转载请注明原文地址:https://jikaoti.com/ti/aiN0FFFM
0

最新回复(0)