关于VB的一道题目

当单击COMMAND1后，程序会检验文本框是否为空，如果为空，则会弹出消息框，给出提示。如果文本框不为空，在检验组合框下拉表中所选择的选项是否为空，则会弹出消息框····这一段的代码如何编写？

Option Explicit

Private Sub Command1_Click()
If Len(Text1.Text) = 0 Then
MsgBox "文本框为空"
Else
If List1.SelCount = 0 Then
MsgBox "没有选中列表项"
Else
MsgBox "通过测试"
End If
End If
End Sub

Private Sub Form_Load()
With List1
.AddItem "张三"
.AddItem "李四"
.AddItem "王五"
End With
End Sub
以上代码在VB6.0下测试通过，其控件名称均保持默认。

Private Sub Command1_Click() If Text1 = "" Then MsgBox "文本框为空！" End If If combo1.ListCount < 1 Then MsgBox "组合框列表为空" End If

End Sub

注意把TEXT1的text属性清空(也可以form_load事件里加入 text1="")