如何使用VB插入字符

来源：百度知道 编辑：UC知道 时间：2024/05/15 15:21:36
我使用一个TEXT控件、一个COMMANDBUTTON控件、一个LABEL控件 我想在TEXT控件中输入“百度” 按下COMMANDBUTTON控件之后在LABEL控件中就可以显示“Y百Y度” 也就是说在每个字符前面加入一个英文字母 怎样实现这个程序啊？？

高手告诉我一下啊！！

Private Sub Command1_Click()
Dim MyStr As String
Dim TmpStr As String
Dim NewStr As String
Dim i As Integer
MyStr = Text1.Text
For i = 1 To Len(MyStr)
TmpStr = Mid(MyStr, i, 1)
TmpStr = TmpStr & "Y"
NewStr = NewStr + TmpStr
Next i
Label1.Caption = NewStr
End Sub

Option Explicit
Dim i As Integer
Dim cr As String
Private Sub Command1_Click()
For i = 1 To Len(Text1)
cr = cr & "Y" & Mid(Text1, i, 1)
Next
Label1.Caption = cr
End Sub

Private Sub Form_Load()
Text1 = ""
End Sub