如何使用VB插入字符
我使用一个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