a=left(textbox1.text,instr(textbox1.text," ")-1)
b=mid(textbox1.text,instr(textbox1.text," ")+1)
窗体中的控件可用下面的方法：
-------------
Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Me.Controls
If LCase(TypeName(c)) = "textbox" Then
c.Text = ""
' MsgBox TypeName(c) & " = ""textbox"""
Else
' MsgBox TypeName(c) & " <> ""TextBox"""
End If
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024