有如下程序：Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后，单击窗体，消息框的输出结果为( )。

题目

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

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

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为( )。

相似考题

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

2.有如下程序： 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)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A． 25B．26C．27D．28

3.阅读程序： 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

4.有如下程序：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

参考答案和解析
正确答案：27
27
更多“有如下程序:Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 For i=1 To 10If arr(i) ”相关问题

  • 第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 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题：

    分析下段代码输出结果是（）。 var arr = [2,3,4,5,6]; var sum =0; for（var i=1;i ＜ arr.length;i++) { sum +=arr[i]; } console.log（sum);

    A．14

    B．16

    C．18

    D．20


    18

  • 第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 Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为

    A．16

    B．24

    C．32

    D．36


    正确答案：A
    解析：本题中定义了两个一维数组，分别为Arr1和Arr2，由于使用了OptionBase1语句，因此其大小分别为10和3，接着执行3个For循环。在第1个循环中，对Arr1数组赋初值，每个元素的值与其下标相同，即Arrl(1)=1，Arrl(2)=2……。在第2个循环中，为Arr2数组的3个元素赋值，这3个值分别为Arrl数组第1、3、9个元素的值，即Art2(1)=1、Arr2(2)=4、Arr2(3)=9。在第3个循环中，计算数组Arr2中各元素的和，并将它赋给变量Sum。各元素的和为1+4+9=14，但由于变量Sum的初值为2，因此最后的输出结果为16。

  • 第6题：

    【分录题】（4-2）写出下面程序运行结果。 public class Demo2 { public static void main（String[] args) { int [][] arr=new int[3][3]; int sum=0; for（int i=0;i＜arr.length;i++) for（int j=0;j＜arr[i].length;j++) sum=sum+i+j; System.out.println（sum); } }


    D

相关内容