VB编程问题

追问：不行啊，大哥，执行时按添加就出错！

答案：
'在窗体上画一个标签（标题为“添加项目”）、1个文本框（初始内容为空白）、1个下拉式组合框和两个命令按钮。
'把两个命令按钮的标题分别设置为“添加”和“统计”；通过属性窗口向组合框中输入若干项目，例如AAAA,BBBB,CCCC,DDDD,
'然后编写两个命令按钮的Click事件过程。程序运行后，在Text1中输入字符，如果单击“添加”按钮，则Text1中的内容将作
'为一个项目被添加到组合框的列表中；如果单击“统计”按钮，则在窗体上显示窗体组合框中当前项目的个数和被选中的项目。
'哪位大大懂的教下!

Private Sub Command1_Click()
    If Trim(Text1) = "" Then Exit Sub
    Combo1.AddItem Text1
    Combo1.ListIndex = Combo1.ListCount - 1

    
End Sub

Private Sub Command2_Click()
    MsgBox "当前项目的个数：" & Combo1.ListCount & Chr(13) & "选中的为：" & Combo1
End Sub

Private Sub Form_Load()
    Combo1.AddItem "AAAA"
    Combo1.AddItem "BBBB"
    Combo1.AddItem "CCCC"
    Combo1.AddItem "DDDD"
    Combo1.ListIndex = 0
End Sub

'测试通过，如果有问题看看你的控件命名是否正确。
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub

Private Sub Command2_Click()
Print "当前的总数目个数:" & List1.ListCount
Print "当前的总数目个数:" & GetLstSelect(List1)
End Sub
Private Function GetLstSelect(lst As Control) As Integer
    Dim i As Integer
    Dim Num As Integer
    Num = 0
    For i = 0 To lst.ListCount - 1
        If lst.Selected(i) = True Then
            Num = Num + 1
        End If
    Next i
    GetLstSelect = Num
End Function

上一个：一道VB编程问题
下一个：VB编程题。