阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。A.8 7 6B.7 6 5C.6 5 4D.5 4 3

题目

阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。

A.8 7 6

B.7 6 5

C.6 5 4

D.5 4 3

相似考题

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 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

3.下列程序用于打印出ASCⅡ字符,其析构函数内的语句应为【 】。 include inelude下列程序用于打印出ASCⅡ字符，其析构函数内的语句应为【 】。include＜iostream. h＞inelude＜iomanip, h＞template＜class T＞class Array{T * elems;int size;public:Array(int.s);～Array()T& operator[](int)void perator=(T)};template＜class T＞Array＜T＞::Array(int s)size=s;elems=new T[size]for(int i=0;i＜size;i++)elems[i]=0}template＜celass T＞Array＜T＞::～Array(){______template ＜class T＞T& Array＜T＞::operator[](int index){return elems[index];}template＜class T＞void Array＜T＞::operator=(T temp){for(int i=0;i＜size;i++)elems[i]=temp;}void main(){int i,n=26;Array＜int＞ arr1(n)Array＜char＞ arr2(n)for(i=0;i＜n;i++){ -.arr1[i]='a'+i;arr2[i]='a'+i;}cout＜＜"ASCII 字符"＜＜endl;for(i=0;i＜n;i++)cout＜＜setw(8)＜＜arr1[i]＜＜setw(8)＜＜arr2[i]＜＜endl;}

4.数组arr经过下面的操作后结果为( )。 int[] arr={1, 2, 3}; for (int i=0; i ＜ 2; i++) arr[i] = 0;A．arr[0]==0B．arr[0]==1C．arr[1]==1D．arr[2]==0

更多“阅读程序: Private Sub Command1_Click( ) Dim arr Dim i As Integer arr=Array(0,1,2,3,4,5, ”相关问题

  • 第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
    解析：本题综合考查Array函数与For循环等相关知识。首先用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 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项为正确答案。

  • 第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 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。

  • 第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．13

    B．14

    C．27

    D．15


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

  • 第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 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正确。

  • 第6题：

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

相关内容