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

admin2020-06-30  30

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

解析 VB中"/"是浮点除法运算符,"\"是整数除法运算符,程序中的条件表达式a(i, j)/ 7=a(i, j)成立时说明这个数能够被7整除,程序即是统计这个二维数组中能被7整除的数的个数。数组元素值在i=1时为(3,4,5,6),i=2时为(5,6,7,8),i=3时为(7,8,9,10),i=4时为(9,10,11,12),i=5时为(11,12,13,14),其中能够被7整除的数有7、7、14共3个。因此答案为B。
转载请注明原文地址:https://kaotiyun.com/show/t1Hp777K
0

随机试题
最新回复(0)