VB代码问题 会的回答

Private Sub Command1_Click()

If Len(Text1.Text) < 5 Then
MsgBox "请输入姓"

End If

If Len(Text2.Text) < 4 Then
MsgBox "请输入名"
End If
If Len(Text1.Text & Text2.Text) < 4 Then
MsgBox "请输入姓"

End If

如上 我要求就是当Text1.Text & Text2.Text 都没有输入的时候， 仅仅提示：请输入姓 可是我弄的不怎么正确 上面的两个代码怎么样在Text1.Text & Text2.Text 都没有输入的时候不提示 只提示请输入姓 。

Private Sub Command1_Click()
If (Text1.Text = "") And (Text2.Text = "") Then
MsgBox "请输入姓"
Else
If Len(Text1.Text) < 5 Then
MsgBox "请输入姓"
End If
If Len(Text2.Text) < 4 Then
MsgBox "请输入名"
End If
If Len(Text1.Text & Text2.Text) < 4 Then
MsgBox "请输入姓"
End If

代码中三个if会依次执行，如果两个文本框都不输入，那三个条件就满足，所以会提示三次。

你可以把

If Len(Text1.Text & Text2.Text) < 4 Then MsgBox "请输入姓"

End If

放到最前面，同时，在每个 MsgBox 后加上 Exit Sub，你下面这样

If Len(Text1.Text & Text2.Text) < 4 Then MsgBox "请输入姓"

Exit Sub

End If