下列程序的输出结果是______。Private Sub Command1_Click()Dim arr(1To 10)For i＝1 To 10arr(i)＝iNext iFor Each i In arr()arr(i)＝arr(i)*2+1Next iMsgBox arr(7)End Sub

题目

下列程序的输出结果是______。

Private Sub Command1_Click()

Dim arr(1To 10)

For i＝1 To 10

arr(i)＝i

Next i

For Each i In arr()

arr(i)＝arr(i)*2+1

Next i

MsgBox arr(7)

End Sub

相似考题

1.下面程序的输出是【 】。main(){int arr[10],i,k=0;for(i=0;i＜10;i++)arr[i]=i;fov(i=1;i＜4;i++)k+=arr[i]+i;printf("%d\n",k);}

2.下面程序的输出是main(){ int arr[10],i,k=0; for(i=0;i<10;i++) arr[i]=i; for(i=1;i<4;i++) k+=arr[i]+i; printf("%d\n",k);}

3.下面程序的输出是【 】。main(){int arr[10],i,k=0；for(i=0；i＜10；i++)arr[i]=i；for(i=1；i＜4；i++)k+=arr[i]+i；printf("%d\n",k)；}

4.下列程序执行后的输出结果是 included main( ) { char arr[2][4]; strcpy(arr,"you")下列程序执行后的输出结果是#included＜string.h＞main( ){ char arr[2][4];strcpy(arr,"you");strepy(arr[1],"me");arr[0][3]='&';cout＜＜arr＜＜endl;}A．you&meB．youC．meD．err

参考答案和解析
正确答案：15
15 解析：本题考查VBA中For Each…Next循环的知识。For Each…Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i)的值为 2*i+1。
更多“下列程序的输出结果是______。 Private Sub Command1_Click() Dim arr(1To 10) For i=1 To 10 arr ”相关问题

  • 第1题：

    下列程序的功能是：输入10个整数，逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。

    Private Sub Command2_Click()

    Dim i, j, k,temp, arr(11) As lnteger

    Dim result As String

    For k=1 To 10

    arr(k) =Val (InputBox( "请输入第" & k & "个数："，"数据输入窗口"))

    Next k

    i=1

    j = 10

    Do

    temp=arr(i)

    arr(i)=arr(j)

    arr(j)=temp

    i=i+1

    j=【12】

    Loop While【13】

    result =""

    For k=1 To 10

    result=result & arr(k) & Chr(13)

    NeXt k

    MsgBox result

    End Sub


    正确答案：

    【12】
    【答案】：j-1
    【知识点】：VBA程序中循环结构的循环变量的设计
    【解析】：此程序的功能是实现10个整数的逆序，变量i从第1个数向后移动需要不断加1，变量j从第10个数向前移动需要不断减1，故此空应填j-1。

    【13】
    【答案】：i>j
    【知识点】：VBA程序中的循环结构
    【解析】：此程序是用循环结构实现的，循环结束的条件是变量i和j从两边移到中间两个变量进行数据交换后，下次不再进行数据交换，此时变量i的值大于j的值，故此空应填i>j。

  • 第2题：

    下列程序的输出结果是______。

    Private Sub Command1_Click()

    Dim arr(1 To 10)

    For i=l TO 10

    arr(i)=i

    Next i

    For Each i In arr()

    art(i)=arr(i)*2+1

    Next i

    MsgBox arr(7)

    End Sub


    正确答案：15
    15 解析：题考查VBA中For Each...Next循环的知识。For Each...Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i)的值为2*i+1。

  • 第3题：

    5、下列程序的运行结果是 。 #include＜iostream＞ using namespace std; void main（) { int arr[10], i, k=0; for（i=0; i＜10; i++) arr[i]=i; for（i=1; i＜4; i++) k+=arr[i]+i; cout＜＜k＜＜endl; }


    5,9

  • 第4题：

    下列程序的输出结果是______。

    Private Sub Commandl_Click()

    Dim alt(1 To 10)

    Fori＝1 To 10

    arr(i) ＝I

    Next i

    For Each i In arr()

    arr(i) ＝arr(i) *2+1

    Next i

    MsgBox arr(7)

    End Sub


    正确答案：15
    15 解析： 本题考查VBA中For Each...Next循环的知识。For Each...Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i) 的值为2*i+1。

  • 第5题：

    下列程序执行后的输出结果是： main() { char arr[2][4]; strcpy(arr'"you"); strcpy(arr[1],"me"); arr[0][3]='&'; printf("%s\n",arr); } 程序的输出结果是( )。

    A．you&me

    B．me

    C．you

    D．err


    正确答案：A
    解析：本题定义了一个二维字符数组arr[2][4]，该二维数组可以看成一个含有两个元素arr[0]、arr[1]的一维字符数组，分别看成是含有4个元素，也可以看成是以arr为首地址的一个一维字符数组。函数strcpy(arr,“you”)是把字符串“you”复制到arr指向的空间，strcpy(arr[1]，“me”)同理，在以arr[0]为首地址的字符数组中有“you”，在以air[1]为首地址的字符数组中有“me”。arr[0][3]=‘&’；是给arr[0]为首地址的字符数组的第4个元素赋值为‘&’。因此输出为you&me。

相关内容