Question

VB，运行时在第一个文本框中输入一个由空格分隔的字符串，单击“分离”后

将两个单词分离到第二和第三个文本框中。要用到instr

Answer 1

Private Sub Command2_Click()
Dim n As Integer
If InStr(Text1.Text, " ") > 0 Then
n = Len(Left(Text1.Text, InStr(Text1.Text, " ")))
Text2.Text = Left(Text1.Text, n)
Text3.Text = Right(Text1.Text, Len(Text1.Text) - n)
End If
End Sub