a="456"
b=right(a,1)&mid(a,2,1)&left(a,1)
结果:
b="654"

解决方案 »

  1.   

    用字符串吧,首先CStr,然后StrReverse,然后Clng,注意判断益出
      

  2.   

    dim i as integer
    dim a as string
    dim b as stringa="123"b=""
    for i=len(a) to 1 step -1
       b=b & mid(a,i,1)
    next i结果:
    b="321"
      

  3.   

    如果
    A是数字,用CSTR转一下
      

  4.   

    StrReverse函数
          描述返回一个字符串,其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串,它的字符顺序要被反向。如果string1是一个长度为零的字符串(""),则返回一个长度为零的字符串。如果string1为Null,则产生一个错误。
      

  5.   

    dim str1,str2 as string
    str1=text1.text
    if not isnull(str1)
       str2=strReverse(str1)
    endif
    msgbox str2若str1="12abc"
    则str2="cba21"