UC知道一段VB基础的代码问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 23:46:05
Private Sub cmd2_Click()
Dim dd As String, ds As String
Dim da As Integer
dd = txt2.Text
For da = 1 To Len(dd)
ds = Mid(dd, da, 1) & ds
Next da
txt3.Text = ds
End Sub
请帮我看一下。这段代码应该怎么解释好把！
Dim dd As String, ds As String
Dim da As Integer
dd = txt2.Text
For da = 1 To Len(dd)
ds = Mid(dd, da, 1) & ds
Next da
txt3.Text = ds
End Sub
请帮我看一下。这段代码应该怎么解释好把！
功能：
把txt2控件里的字符反序，然后显示在TXT3控件里。
获取txt2控件里的字符，保存在DD变量中
dd = txt2.Text
获取整个字符串的长度，做循环，从第一个到最后一个字符
For da = 1 To Len(dd)
每次取一个字符，新取到的字符放在前面取到的字符的前面，保存到DS中
ds = Mid(dd, da, 1) & ds
Next da
DD变量中的字符串，传递显示在TXT3控件
txt3.Text = ds
写了一堆，百度让我重新登录，就成乱码了，不好意思