2. 计算机
  3. 运行如下程序： 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

运行如下程序： 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  67
问题 运行如下程序：
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://kaotiyun.com/show/2tHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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