UC知道VB 字符串交换问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 02:06:40
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text1.MaxLength = 20
Text2.Locked = True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim k As Integer, i As Integer
If KeyAscii = 13 Then
Text2 = ""
k = Len(Text1)
For i = 1 To k
Text2 = Mid(Text1, i, 1) & Text2
Next i
End If
End Sub
程序中的Text2 = Mid(Text1, i, 1) & Text2是什么意思
一开始的LOAD事件中已经用了 text2="",为什么在keypress里还要用同样的text2=""
Text1 = ""
Text2 = ""
Text1.MaxLength = 20
Text2.Locked = True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim k As Integer, i As Integer
If KeyAscii = 13 Then
Text2 = ""
k = Len(Text1)
For i = 1 To k
Text2 = Mid(Text1, i, 1) & Text2
Next i
End If
End Sub
程序中的Text2 = Mid(Text1, i, 1) & Text2是什么意思
一开始的LOAD事件中已经用了 text2="",为什么在keypress里还要用同样的text2=""
mid(text1,i,1) & text2 表示从text1的第一位逐个取出并与text2结合，相当于把text1的内容倒过来存放在text2中
函数：mid(字符,位置,长度)
例如字符="abcde" 则，mid(字符,3,2)="cd"
至于，keypress中为什么还要让text2=""是因为，每次按下回车键后才进行交换，因此要选清空text2中原来的字符
从text1中,第I个开始取一个,加TEXT2的内容，赋值给TEXT2,
load是加载窗体时为空，keypress是按回车为空