VB实现一个功能

发布网友发布时间：2022-05-06 01:58

共3个回答

热心网友时间：2022-06-28 12:15

Dim R As String, Sh As String, Mo As String, Ti As String, i As Integer, j As Integer
R = Text1.Text
Sh = Text2.Text
Mo = Text3.Text
Ti = Text4.Text
i = InStr(R, Sh)
j = InStr(R, Mo)
If i < j Then
R = Left(R, i - 1) + Sh + " " + Ti + " " + Right(R, Len(R) - j + 1)
Text5.Text = R
Else
MsgBox "首尾定义字符错位！"
End If

热心网友时间：2022-06-28 12:16

说明白点！

热心网友时间：2022-06-28 12:16

假设最终结果用text5存放，则
text5.text=left(text1.text,len(text2.text)) & text4.text & rignt(text1.text,len(text3.text)
也就是说text5显示的文本＝text1的文本从左取text2的位数加上text4的文本再加上text1的文本从右取text3的位数。
在你的例子中实际结果就是：
text5.text=left("asd hkjdfhkdjfh dsa" ,3) & "qq123" & ringt("asd hkjdfhkdjfh dsa"，3）
其中&是字符连接操作符，left和right函数分别用来取字符串，也就是说，你的text2和text3是什么并不重要，只要它们分别在左、右，用他们的位数从text1中取就可以了，不知道这么说你明白没有？