单选题运行如下程序： 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整除，程序即是统计这个二维数组中能被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。