执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str & Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd Sub

题目

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

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

相似考题

1.执行下列的程序，消息框里显示的结果是______。Pfivate Sub Form_Click()Dim Str As StringStr＝""S="Access"For i＝Len(S) To 1 Step-1Str＝Str&Mid(S.i,1)Next IMsgBox StrEnd Sub

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

3.执行下面的程序，消息框里显示的结果是（ ）。A. abeB. abccbaC. cbacbaD. abcabc

4.执行下面的程序，消息框里显示的结果是_______。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

更多“执行下面的程序,消息框里显示的结果是【】。 Private Sub Form_Click() DimStrAsString,KAsIntegerS ”相关问题

  • 第1题：

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

    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

  • 第2题：

    编写如图所示应用程序，单击选择菜单项退出后，显示下面的请选择对话框，选择是结束程序，选择否显示下面的消息对话框。


    图标

  • 第3题：

    下面的程序段运行后，消息框显示的结果是______。 For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Next i MsgBox（n)

    A．4

    B．5

    C．24

    D．288


    B解析：本题考查VBA中表达式运算的知识。在VBA中允许逻辑量进行算术运算，True处理成-1，Fa

  • 第4题：

    执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 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

    A．ABCE

    B．ABCD

    C．ABDB

    D．ABFB


    正确答案：C
    解析：对字符串变量STR(初始值为"AB")进行字符追加，分析其中的Len、Chr和Mid三个字符串处理函数后，可以判断出追加的字符是D和B，故答案C正确。

  • 第5题：

    程序段如下，程序运行后消息框显示的结果是______。 Dim a, s As String, i As Integer a = "晴空万里" s = "" For i = 1 To 4 Step 2 s &= Mid（a, 4 - i, 2) Next MsgBox（s)

    A．晴空万里

    B．万里晴空

    C．晴空

    D．万里


    B解析： 本题中a＞b返回True，即c=True，而在算术表达式中，True作为-1来处理，故消息

相关内容