执行下面的程序，消息框的输出结果是 【 】。Option BaselPrivate Sub Commandl Click()Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub

题目

执行下面的程序，消息框的输出结果是 【 】。

Option Basel

Private Sub Commandl Click()

Dim a(10)，P(3)As Integer

k=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End sub

相似考题

1.下面程序段执行后消息框的输出结果是( )。a=12345Dob=a Mod 10Loop While b＞=3MsgBox a

2.下面程序段执行后消息框的输出结果是______。a＝12345Doa＝a\10b＝a Mod 10Loop While b＞＝3MsgBox a

3.执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=Str&Mid(S，i，1)Next iMsgBox StrEnd Sub

4.下面程序段执行后消息框的输出结果是______。a=12345Doa=a\10b=a Mod 10Loon While b＞=3MsgBox a

更多“执行下面的程序,消息框的输出结果是 【】。 Option Basel Private Sub Commandl Click() Dim a(10), ”相关问题

  • 第1题：

    执行下面的程序，消息框的输出结果是__________。


    正确答案：
    110

  • 第2题：

    执行下面的程序，消息框里显示的结果是 【 】 。

    Private Sub Form_Click()

    Dim Str As String， K As Integer

    Str="ab"

    For k=Len(Str) TO 1 Step-1

    Str=Str & Chr(Asc(Mid(Str，k，1))+k)

    Next k

    MsgBox Str

    End Sub


    正确答案：abdb
    abdb 解析：本题考查VBA程序设计。题目较难，综合性强，要求考生对常用函数以及控制结构有一定的了解。考生应该了解Len()函数是字符串长度检测函数，返回字符串所含字符数。 Chr()函数是字符代码转换字符函数，将数值表达式转换成字符串。Asc()函数是字符串转换字符代码函数，返回字符串首字符的ASCII值。 Mid(字符串表达式＞,N1＞,N2＞)函数是从字符串左边第N1个字符起截取N2个字符。开始Len(Str0=2，Mid(Str，k，1)=Mid(ab,2,1)=b，则Chr(Asc(B) +2)=d，所以循环第1次结束后 Str="abd"，同样的第2次循环结束后， Str="abdb"，MsSBox用来将Str输出。正确答案为abdb。

  • 第3题：

    执行下面的程序，消息框的输出结果是【 】。

    Option Base1

    Private Sub Command1_Click( )

    Dim a(10)，P(3)As Integer

    k=5

    For i=1 To 10

    a(i)=i

    Next i

    For i=1 To 3

    P(i)=a(i*i)

    Next i

    For i=1 To 3

    k=k+p(i)*2

    Next i

    MsgBox k

    End sub


    正确答案：33
    33 解析：本题考查VBA中的数组与循环结构。题目中有3个循环，但相互之间并没有嵌套。第一个For循环实现向数组a赋初值，第二个For循环实现对数组a进行相关运算，然后赋给数组p，p(1)=a(1)=1，p(2)=a(4)=4， p(3)=a(9)=9。第三个For循环进行相关计算，然后把结果交给k，i=1时k=5+p(1)*2=7，i=2时k=7+p(2)*2=15，i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。

  • 第4题：

    下列程序段执行后消息框的输出结果是______。

    a＝12345

    Do

    a＝a\10

    b＝a Mod 10

    Loop While b>＝3

    MsgBox a


    正确答案：9
    9 解析： 本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次：然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加1，后两次循环x自加2，最后输出结果为9。

  • 第5题：

    执行下面的程序，消息框的输出结果是( )。

    Dim a(1 To 10),b(1 To 5)As Integer

    sum=0

    For i=1 To 10

    Next i

    For i=1 To 5

    Next i

    For i=1 To 5

    Next i

    MsgBox sum


    正确答案：220
    220 解析： 本题考查数组和循环的知识。在本题中出现了两个数组，要注意两个数组的值和下标的对应关系。第一个循环为数组a赋值，每个数组元素值等于其下标值；第二个循环为数组b赋值，分别使b(1)=a(2)=2，b(2)=a(4)=4，b(3)=a(6)=6，b(4)=a(8)=8，b(5)=a(10)=10；第三个循环把b数组的每一个元素平方以后累加起来，最后结果为220。

  • 第6题：

    执行下面的程序，消息框里显示的结果是( )。

    Private Sub Form_Click()

    Dim Str As String,S As String,k As Integer

    S=Str

    For k=Len(Str) To 1 Step -1

    S=S & (Mid(Str,k,1)

    Next k

    End Sub


    正确答案：abccba
    abccba

相关内容