vb代码，请给出字符串反转的函数？

您好,根据您的年纪建议对乳腺增生一定要积极治疗,在治疗前最好去专科乳腺医院做个乳房钼靶检查,确诊病情程度后再治疗

乳房疼痛和乳房包块是乳腺增生的典型表现,乳避消和逍遥丸是治疗增生的常见药物逍遥丸疏肝理气,基本没有副作用治疗乳腺增生(小叶增生)不可只依靠药物,还需要在服药期间结合自身一起调理养护,不熬夜,不给自己压力,多保持心情舒畅,不服用雌激素高的避孕药,保健品调理内分泌等

乳腺增生的疗程一般为1-3个月左右,情况因人而异治疗这种易得不易治的顽疾没有特效药,不会三两天就见效,因此,在早期就需要积极进行治疗专科对此有特色疗法,一般采取中西医结合的方式,疗效显著

病情分析：

乳腺增生是一种多发病。

指导意见：

有的乳腺增生随着月经的过去会消失的，轻微的不用治疗。如果大的不消失的可以服用乳癖消或小金丸等，配合中药效果更好。

病情分析：

乳腺增生是个可以自愈的病变，如果疼痛你可以忍受，那就可以不吃药也行的，慢慢的就会好转些。

指导意见：

如果希望吃药，你可以服用乳癖消，这个药物对于乳腺增生有效果的。

病情分析：

你好！增生病是慢性的不要着急，桂枝茯苓胶囊还是很好的，你不要过于担心和紧张，保持情绪的稳定为好

指导意见：

建议你注意饮食的调理，忌辛辣促进生冷的食物，调理个人的情绪，不可以生气，生气可以加重症状。你也可以可以口服丹栀逍遥丸 益母草颗粒 梅花点舌丸之类的调理，可以有效的改善症状。

医生询问：

请问还有什么要问的吗？你的月经周期正常吗？

有两种方法:

1用Right函数,从字符串右边取出的指定数量的字符

Right(string, length)

取最后一位

A = "ABC123"

D = RIGHT(A,1)

取最后二位

D = RIGHT(A,2)

取最后第二位

D = RIGHT(A,2,1)

2用MID函数

返回 Variant (String)，其中包含字符串中指定数量的字符。

语法

Mid(string, start[, length])

此发先要用LEN函数确定字符串长度,然后才能确定起始位,例:

A = "ABC123"

取最后一位

D = MID(A,LEN(A),1)

取最后二位

D = MID(A,LEN(A)-1,2)

取最后第二位

D = MID(A,LEN(A)-1,1)

后一种在取每位字符时配合FOR NEXT循环更有用

1 用StrReverse函数可以使字符串颠倒：str=StrReverse(string1)

2 用mid函数：

Private Sub Command1_Click()

Dim a As String

a = InputBox("请输入一串字符", "输入")

For i = Len(a) To 1 Step -1

Print Mid(a, i, 1);

Next

End Sub

VB可使用StrReverse函数实现字符串的逆序输出。

StrReverse函数，返回一个字符串，其中一个指定子字符串的字符顺序是反向的。

语法：

StrReverse(string1)

参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。

实现代码例子：

Private Sub Form_Click()

    Dim strSj As String

    strSj = "vb将自己的名字在窗体上反向输出"

    strSj = StrReverse(strSj)

    Print strSj

End Sub

　　

答案是2,是因为x 是Integer类型,虽然用了n = Str(n),在Str(n)返回了一个字符串" 1234"后,在赋值给n时又被自动类型转换为Integer型。

这时用Len()函数去求Integer型n的长度,即是求Integer类型的内存中所占的字节数正是2。

VB-PowerWrap 允许开发者在发布他们的程序时不需要再加入一大堆的 OCX 与 DLL 文件。该程序可以帮助 Visual Basic 程序员在发布他们的 可执行文件时不需要再担心关于其他链接库与 OCX 的问题了。VB-PowerWrap 允许你将程序所必需的所有 dll 文件与 ocx 文件打包到你的 VB 程序内部，并且不需要用户安装，直接就可以运行。并且 VB-PowerWrap 可以自动注册所必需的 dll 与 ocx 文件！

VB-PowerWrap 通过扫描一个 Visual Basic 的工程文件，并将该工程所需要的文件进行打包，然后创建一个包含所有必要文件的 可执行文件供程序员发布。VB-PowerWrap 使用了超强的压缩模块，这样可以创建出最小的 exe 文件。

Private Sub Command1_Click()

For i = 1 To Len(Text1)

s = s & Left(Right(Text1, i), 1)

Next

Text2 = s

End Sub

同意StrReverse

StrReverse函数

描述

返回一个字符串，其中一个指定子字符串的字符顺序是反向的。

语法

StrReverse(string1)

参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。