Question

vb程序:在text1输入一串字符串，在text2按ascll码值大小升序输出，答案正确者立刻采纳

Answer 1

您好！此情况应注意有胆囊炎或胆结石引起的表现的，经B超检查是可以确定的，经对症治疗后是可以控制及恢复的。在检查确定为胆囊炎引起的表现时，可考虑在医院医师指导下应用氧氟沙星、消炎利胆片进行口服治疗即可。在有结石引起的表现时，应根据结石的大小及数量进行治疗的。上述情况与泌尿系统感染无直接关系的。

Answer 2

Private Sub Text1_Change()
Text2.Text = ""
For i = Len(Text1.Text) To 1 Step -1
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
Next
End Sub

追问

这个只针对数字吧，如果加了字母怎么办

追答

数字和字母都无所谓，汉字也可以！

追问

好！