for i= len(c) to 1
a=a & mid(c,i,1)
next i
'STRING æ¯ å符串åéå§
vb. 把一个字符串用for倒序输出? 怎么做不会vb帮别人问下!
可能是这个样子的了 Dim s, i, j s = "1234567890" For i = len(s) To 1 step -1 j = j & Mid(s, i, 1) Next msgbox j 测试下
VB中怎样将一串字母逆序输出
参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。代码示例：Private Sub Form_Click() Debug.Print StrReverse("VB中怎样将一串字母逆序输出")End Sub ...
vb输入一个字符串 并将它逆序输出
Private Sub Command1_Click()Dim InS As String, S As String, T As String Dim I As Integer, J As Integer, L As String Dim C() As String, X As String InS = InputBox("请输入字符串", "", "1Ae4ui95487KuywY1Z2Faz")f InS = "" Then Exit Sub J = Len(InS)For ...
VB编写一个Sub 过程Reverse,将一个字符串逆序输出
Private Sub Command1_Click() Dim s As String Call Severse(Text1.Text, s) Text2.Text = sEnd SubPrivate Sub Severse(ByVal Str As String, ByRef Sev As String) For i = Len(Str) To 1 Step -1 Sev = Sev + Mid(Str, i, 1) Next iEnd Sub ...
VB编程: ::: 将一个字符串翻转,如字符串"ABCD" 翻转为"DCBA"._百度知...
代码如下,你在Text1中输入原字符串后按Command1按钮Text2中就出现与原字符串逆序的字符串:Dim Str as String Private Sub Command1_Click()Str = Text1 Text2 = StrReverse(Str)End Sub
在VB中,创建程序,将输入的字符串颠倒输出,要求用DO While和Do until...
用 Do While 实现：Private Sub Form_Click() '点击窗体运行s = InputBox("请输入一个字符串")n = 1t = ""Do While n <= Len(s) t = Mid(s, n, 1) & t n = n + 1LoopMsgBox "颠倒输出 " & tEnd Sub用 Do Until 实现：Private Sub Form_Click() '点击窗体运行s = ...
如何将vb程序设计中的字符串逆序输出
在VB程序设计中，若要将字符串逆序输出，可利用StrReverse函数。首先，定义两个字符串变量V和V2。将需要逆序的正序字符串赋值给V变量，例如，V="hello"。使用StrReverse函数将V中的字符串逆序，并将结果赋值给V2。具体操作为：V2=StrReverse(V)。此时，V2变量中存储的就是V的逆序字符串，即V2="olleh"...
VB编程里,输入一段字符,反方向显示它。如输入123,显示321
StrReverse(str)楼主，StrReverse函数是返回指定字符串的反向字符串，参数str的值并不一定非要是123才行 可能楼上写法有些错误，参数要为字符串型，返回值也是字符串型，比如：StrReverse("abc")="cba"StrReverse("123")="321"StrReverse("")=""StrReverse(null) 当参数为null报错 ...
VB问题:把一个字符串反过来写一遍,怎样写?
StrReverse函数 StrReverse函数 描述返回一个字符串，其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。str2 = StrReverse(str...
vb中将字符串反转的代码是什么?
代码如下,你在Text1中输入原字符串后按Command1按钮Text2中就出现与原字符串逆序的字符串:Dim Str as String Private Sub Form_Click()Text1 = ""Text2 = ""End Sub Private Sub Command1_Click()Str = Text1 Text2 = StrReverse(Str)End Sub ...
