单选题 运行如下程序：
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的值是______。
【正确答案】 B
【答案解析】[解析] VB中“/”是浮点除法运算符，“/”是整数除法运算符，程序中的条件表达式a(i,j)/7=a(i,j)/7成立时说明这个数能够被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。