2. 计算机
  3. 运行如下程序： Private Sub Commandl_Click() Dim a(5，5)As Integer F0r i=1 To 5 For j=1 To 4 a(i，j)=i*2+J If a(i，

运行如下程序： Private Sub Commandl_Click() Dim a(5，5)As Integer F0r i=1 To 5 For j=1 To 4 a(i，j)=i*2+J If a(i，

admin2018-07-11  35
问题 运行如下程序：
    Private Sub Commandl_Click()
    Dim a(5，5)As Integer
    F0r 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://kaotiyun.com/show/tKGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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