我有问题,青帮我 a="456"b=right(a,1)&mid(a,2,1)&left(a,1)结果:b="654" 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用字符串吧,首先CStr,然后StrReverse,然后Clng,注意判断益出 dim i as integerdim a as stringdim b as stringa="123"b=""for i=len(a) to 1 step -1 b=b & mid(a,i,1)next i结果:b="321" 如果A是数字,用CSTR转一下 StrReverse函数 描述返回一个字符串,其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串,它的字符顺序要被反向。如果string1是一个长度为零的字符串(""),则返回一个长度为零的字符串。如果string1为Null,则产生一个错误。 dim str1,str2 as stringstr1=text1.textif not isnull(str1) str2=strReverse(str1)endifmsgbox str2若str1="12abc"则str2="cba21" 有关于FindWindow 请各位VB高手帮忙!webbrowser的问题?? 动态生成的控件怎样绑定事件 紧急求助:那位大侠能够提供vb连接,断开oracle数据库的源代码???? 如何解决 远程服务器不存在或不可用 有关excel文件导入问题 vb中网络连接的问题 请问如何实时监控一个文件夹中是否有文件? songyangk(小草): 请进来拿分!! 朋友帮助朋友! Treeview commandbutton的简单问题。加急
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"
A是数字,用CSTR转一下
描述返回一个字符串,其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串,它的字符顺序要被反向。如果string1是一个长度为零的字符串(""),则返回一个长度为零的字符串。如果string1为Null,则产生一个错误。
str1=text1.text
if not isnull(str1)
str2=strReverse(str1)
endif
msgbox str2若str1="12abc"
则str2="cba21"