运行如下程序: Private Sub Command I_Click() Dim a(5,5)As Integer Fori=l To 5 For j=1 To 4 a(i,J)=i*2+j

admin2020-07-22  34

问题 运行如下程序:
Private Sub Command I_Click()
    Dim a(5,5)As Integer
    Fori=l 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。
转载请注明原文地址:https://jikaoti.com/ti/8zS0FFFM
0

相关试题推荐
最新回复(0)