执行下面的程序,消息框里显示的结果是 【 】 。 Private Sub Form_Click() Dim Str As String,K As Integer Str="ab", For k=Len(Str)To

admin2013-02-04  19

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

解析 Len()函数是字符串长度检测函数,返回字符串所含字符数。Chr()函数是字符代码转换字符函数,将数值表达式转换成字符串。Asc()函数是字符串转换字符代码函数,返回字符串首字符的ASCⅡ值。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",MsgBox用来将Str输出。正确答案为abdb。
转载请注明原文地址:https://jikaoti.com/ti/BAw0FFFM
0

最新回复(0)