柠檬试题库
search
首页 计算机 公务员 驾照 关于

运行如下程序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 nEnd Subn的值是( )。


  • A.2
  • B.3
  • C.4
  • D.5
热度🔥396
参考答案: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。
复制题目向AI提问