[初学者]在VB中设计了一个字符串处理的小程序，可是在循环处理后只显示前后结果
[菜鸟求助]在VB中设计了一个字符串处理的小程序，可是在循环处理后只显示前后结果
程序目的：将输入在textbox1中的字符倒序，并显示在label1中。（注：我是在VS2010中设计的）
代码如下：
Public Class Form1
Dim n%, s$, c$
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
c = (TextBox1.Text) : s = ""
Do
n = Len(c)
s = s + Microsoft.VisualBasic.Right(c, 1)
c = Microsoft.VisualBasic.Left(c, 1)
Loop While n = 1
Label1.Text = Label1.Text + s + c
End Sub
End Class
------解决方案--------------------
------解决方案--------------------
你那个c = Microsoft.VisualBasic.Left(c, 1)有问题，没达到你想要的效果，好好看看吧
程序目的：将输入在textbox1中的字符倒序，并显示在label1中。（注：我是在VS2010中设计的）
代码如下：
Public Class Form1
Dim n%, s$, c$
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
c = (TextBox1.Text) : s = ""
Do
n = Len(c)
s = s + Microsoft.VisualBasic.Right(c, 1)
c = Microsoft.VisualBasic.Left(c, 1)
Loop While n = 1
Label1.Text = Label1.Text + s + c
End Sub
End Class
------解决方案--------------------
Public Class Form1
Dim n%, s$, c$
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
c = (TextBox1.Text) : s = ""
Do
n = Len(c)
s = s + Microsoft.VisualBasic.Right(c, 1)
c = Microsoft.VisualBasic.Left(c, Len(c) - 1)
Loop Until n = 1
Label1.Text = Label1.Text + s + c
End Sub
End Class
------解决方案--------------------
Public Class Form1
Dim n%, s$, c$
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
c = (TextBox1.Text) : s = ""
Do
n = Len(c)
s = s + Microsoft.VisualBasic.Right(c, 1)
If n > 0 Then
c = c.Substring(0, n - 1)
End If
Loop While n > 0
Label1.Text = Label1.Text + s + c
End Sub
End Class
你那个c = Microsoft.VisualBasic.Left(c, 1)有问题，没达到你想要的效果，好好看看吧