有如下程序:Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) \ 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输出结果为( )。A.25B.26C.27D.28

题目

有如下程序:

Option Base 1

Private Sub Form_Click()

Dim arr, Sum

Sum = 0

arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)

For i = 1 To 10

If arr(i) / 3 = arr(i) \ 3 Then

Sum = Sum + arr(i)

End If

Next i

Print Sum

End Sub

程序运行后,单击窗体,输出结果为( )。

A.25

B.26

C.27

D.28


相似考题
参考答案和解析
正确答案:D
更多“有如下程序: OptionBase1PrivateSubForm_Click() Dimarr,Sum Sum=0 arr=Array(1,3,5,7,9 ”相关问题
  • 第1题:

    阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub程序运行后,单击窗体,输出结果为

    A.13

    B.14

    C.27

    D.15


    正确答案:C
    解析:分析题干,arr(i)/3=arr(i)\3是求出数组中能整除3的元素,而 Sum=Sum+arr(i)是将这些元素相加,也就是求3+9+15的值为27,所以选项C正确。

  • 第2题:

    有如下程序: Option Base 1 Private Sub Form Click() Dim arr,Sum Sum =0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为

    A.25

    B.26

    C.27

    D.28


    正确答案:C
    解析:本题考查“/”与“\”的区别。“/”是浮点除法运算符,而“\”是整数除法运算符。比如:6/4=1.5,而6\4=1。这两个运算符的差别是考试重点,容易混淆,务必掌握。题目程序的功能实际上是对数组中能被3整除的元素求和,即3+9+15。27,故选项C正确。

  • 第3题:

    阅读程序: Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。

    A.13

    B.14

    C.27

    D.15


    正确答案:C
    解析:整数除法运算符(\)执行整除运算,结果为整型值,所以“arr(i)/3=arr(i)\3”为数组arr元素值被3整除的条件。计算结果为:3+9+15=27。

  • 第4题:

    有如下程序: Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。

    A.25

    B.26

    C.27

    D.28


    正确答案:C
    解析:OptionBasel表示数组的下标是从l开始的。本题中先定义arr=Array(1,3,5,7,9,11,13,15,17,19),即a(1)=1,a(2)=3,a(3)=5,a(4)=7,a(5)=9,a(6)=11,a(7)=13,a(8)=15,a(9)=17,a(10)=19,而在循环语句中就是要求把能被3整除的数加起来,即a(2)+a(5)+a(8)=3+9+15=27。

  • 第5题:

    有如下程序: Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。

    A.25

    B.26

    C.27

    D.28


    正确答案:C
    解析:本题考查的是数组赋值以及算术运算符“/”和“\”的区别。本程序段首先用Array函数给arr数组赋初值。“/”是浮点除法,执行标准除法操作,结果为浮点数。“\”为整数除法,整型整除运算,结果为整型值。本程序的功能是:找出arr数组中能被3整除的元素值,将其累加到sum中,然后输出。满足该条件的元素是3、9、15,和值为27。