【简答题】
Private Sub C1_Click()
'Dim flag As Boolean
'题目：
'For i = 0 To ?
' If Cb1.List(i) = ? Then
' flag = True
' Else
' flag = False
' End If
'Next
'If flag Then
' MsgBox "已有此项"
' Cb1.Text = ""
'Else
' Cb1. ? Cb1.Text
'End If
参考答案
'正确程序：
Dim flag As Boolean
For i = 0 To Cb1.ListCount - 1
If Cb1.List(i) = Cb1.Text Then
flag = True
Else
flag = False
End If
Next
If flag Then
MsgBox "已有此项"
Cb1.Text = ""
Else
Cb1.AddItem Cb1.Text
End If
End Sub
'答案：
'Cb1.ListCount - 1
'Cb1.Text
'AddItem
题库