运行如下程序：
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 的值是
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。