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

运行如下程序： 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，

admin2018-07-11  84
问题 运行如下程序：
    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。
转载请注明原文地址:https://www.kaotiyun.com/show/6oFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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