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

题目

执行下列的程序，消息框里显示的结果是______。

Pfivate Sub Form_Click()

Dim Str As String

Str＝""

S="Access"

For i＝Len(S) To 1 Step-1

Str＝Str&Mid(S.i,1)

Next I

MsgBox Str

End Sub

相似考题

1.阅读下面程序public class ConcatTest{P ublic static void main(String[] args){S tring str1 = " abc " ;S tring str2 = " ABC " ;S tring str3 = str1.concat(str2);S ystem.out.println(str3);}}程序的运行结果是A)abcB)ABCC)abcABCD)ABCabc

2.阅读下面程序 public class ConcatTest { public static void main(String[] args) { String str1="abc"； String str2="ABC"： String str3=str1.concat(str2)； System.out.println(str3)； } } 程序运行的结果是A．abcB．ABCC．abcABCD．ABCabc

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

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

参考答案和解析
正确答案：sseccA
sseccA 解析： 本题考查VBA中字符串的知识。本题中循环次数等于字符串的长度，每次在Str后面连接上一个字符，该字符取自字符串S的第i位。由于i反向循环，实际上完成的是字符串倒序的功能。
更多“执行下列的程序,消息框里显示的结果是______。Pfivate Sub Form_Click()Dim Str As StringStr=""S ”相关问题

  • 第1题：

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

    A. abe

    B. abccba

    C. cbacba

    D. abcabc


    正确答案：B
    本题考查的是字符串函数和循环语句 For…Next的使用。循环语句For…Next能够重复执行程序代码区域特定次数．使用格式加下．

    结束条件语句序列
    Next【循环变量】
    在VBA中有三种取子串函数：Left函数用于在字符串左端开始 取n个字符；Right函数用于在字符串右端开始取n个字符(注意子 串中字符的顺序与母串中相同)；Mid函数可以实现在任何位置取 任何长度的子串。字符串长度检测函数Len(<字符串表达式>或<变 量名>)的作用是返回字符串所含字符数。本题中相当于每次循环从 后向前取得Str中的一个字符连接到S的后面，即最后s的值为 abceba。

  • 第2题：

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

    s＝"Access"

    Dim Str As String

    For i＝1 To Len(s)

    str＝UCase(Mid(S,i,1) ) +str

    Next I

    MsgBox str


    正确答案：SSECCA
    SSECCA 解析： 本题考查有关字符串函数的知识。在VBA中有很多字符串函数，其中的Mid函数可以实现在任何位置取任何长度的子串；Len函数返回字符串的长度；UCase函数强制把字符转换成大写字母。本题中应该注意到虽然循环变量i是逐次递增也就是正向循环，但是每一次使用Mid函数取得的一个字符都连接到原来的str前面，实际上实现了字符串的逆序存放。结合其他函数可知最后结果为“SSECCA”。

  • 第3题：

    程序段如下，程序运行后消息框显示的结果是______。 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来处理，故消息

  • 第4题：

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

    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

  • 第5题：

    下列程序段的运行结果是（） String str1 = “Good”; String str2 = “morning”; String str3 = str1.toLowerCase（)+str2.toUpperCase（); System.out.println（str3);

    A．Goodmorning

    B．gOODmORNING

    C．goodmorning

    D．goodMORNING


    goodMORNING

相关内容