11.上一题

输入答案，中间不含空格:

12. 在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属 性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车 键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列 表中，并在Label2中给提示“成功添加输入项”如图所示： 如果存在，则在Label2中给出提示“输入项已在组合框中”。请将程序补充完整。 Private Sub Combo1.____(KeyAscii As Integer) IfKey Ascii=13 then For i=0 To Combo1.listCount-1 If Combo1.Text= ____ Then Label2.Caption="输入项已在组合框中" Exint Sub End If Next i Label2.Caption="已成功添加输入项" Combo1.____ Combo1.Text End Sub[gif]bs-2003-1-f-9.gif

输入答案，中间不含空格:

13.上一题

输入答案，中间不含空格:

14.上一题

输入答案，中间不含空格:

15.设有如下程序 Private Sub search(a()As Variant, ByVal key As Variant, index%) Dim I% For I = LBound(a) To UBound(a) If key = a(I) Then index = I exit Sub End If Next I index = -1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call search(b,11,n) Print n End sub 程序运行后，输出结果是____。

输入答案，中间不含空格: