关于VB小程序的小小提问

来源：百度知道 编辑：UC知道 时间：2024/09/21 16:48:40
Dim AK As String, BK As String, K As String, i As Integer
AK = Text1.Text
NUM = Len(AK)
K = ""
For i = NUM To 1 Step -1
K = Mid(AK, i, 1)
BK = BK & K
Text2.Text = BK
Next i

上面的具体的什么意思,各位帮帮忙解释下,越详细越好.
谢谢

Dim AK As String, BK As String, K As String, i As Integer '定义变量
AK = Text1.Text ‘ak赋值
NUM = Len(AK) ’len函数返回text1.text 的字节
K = "" ‘k清空
For i = NUM To 1 Step -1 ’i从text1.text字节数逐步减一到1
K = Mid(AK, i, 1) ‘mid函数是在text1.text里从第i个字节开始取出一个字节（这里的i是在ak先从num位开始取到第1位，即是从后面逐一取到前面，再逐一连接起来）
BK = BK & K ’逐一将每个循环取出的一个字节连接起来
Text2.Text = BK ‘在text2中显示出来
Next i

这段代码的作用就是是把Text1.Text反写放到Text2中

AK = Text1.Text '文本框内容
NUM = Len(AK) '文本框内容长度
K = "" '变量
For i = NUM To 1 Step -1 '倒序循环
K = Mid(AK, i, 1) '倒数第i个字符
BK = BK & K '连接字符
Text2.Text = BK '另一文本框赋值
Next i

总之，该程序的目的是让text1文本框中的内容倒置于text2中

这段代码的作用是把Text1.Text反写一遍放到Text2中。