itgle.com

阅读程序: 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.13B.14C.27D.15

题目

阅读程序: 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


相似考题
更多“阅读程序: Option Base 1 Private Sub Form_Click()Dim arr,SumSum=0arr=Array(1,3,5,7,9,11,13, ”相关问题
  • 第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+art(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为

    A.13

    B.14

    C.27

    D.15


    正确答案:C
    解析:首先用Array函数为数组arr赋值10个元素数值。If语句表明当arr(i)为3的倍数时,就把该arr(i)加到变量Sum上,Sum的初始值为0。故本题的正确答案为:3+9+15,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 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。

  • 第3题:

    以下语句不能生成一个ndarray对象()。

    A.arr1=np.array([0,1,2,3,4])

    B.arr2=np.array({0:0,1:1,2:2,3:3,4:4})

    C.arr3=np.array((0,1,2,3,4))

    D.arr1=np.array(0,1,2,3,4)


    arr1=np.array(0,1,2,3,4)

  • 第4题:

    有如下程序: 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正确。

  • 第5题:

    阅读程序: 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。