UC知道visual basic 中如何将字符串拆分成单个字符
来源：百度知道 编辑：UC知道 时间：2024/06/21 20:12:08
就是在文本框中输入一个字符串，然后在另一个文本框中显示其拆分的后的字符串。比如我在文本框中输入“福建工程学院”，在另一个文本框中就会显示“福%建%工%程%学%院”。
用正则做是最好的，不过用VB自带函数做比较稳定
Private Sub Command1_Click()
Dim Str1 As String
Dim Str2 As String
Dim TempStr As String
Dim I As Integer
Str1 = Text1.Text
Str2 = ""
For I = 1 To Len(Str1) - 1
Str2 = Str2 & Mid(Str1, I, 1) & "%"
Next I
Str2 = Str2 & Right(Str1, 1)
Text2.Text = Str2
End Sub