在名称为form1的窗体上面画一个名称为label1,标题为"添加项目:"的标签:画一个名称为text1的文本框,

Question

话题个名称为combo1的下拉式组合框;并通过属性窗口输入若干项目(不少于3个,内容任意);；在画两个命令按钮,名称分别为command,command2,标题分别为"添加","统计" .程序运行后想text中输入字符,单机"添加"按钮后,则text1中的内容作为一个列表项被添加到组合框的列表中;单机"统计"按钮,则在窗体上像是组合框中列表项的个数.求这道题的代码?

Answer 1

Private Sub Command1_Click()
If Text1.Text <> "" Then
Combo1.AddItem (Text1.Text)
End If
End Sub
Private Sub Command2_Click()
Form1.Cls
'可以显示任何需要的文字提示
Print "统计" & Combo1.ListCount
End Sub