Private Sub Combol_________[12] (KeyAscii As integer)
1f KeyAscii＝13 Then
Fori＝0 To Combo1．listCount-1
1f Combo1．Text＝______ [13] Ihen
Label2．Caption＝”输入项己在组合框中”
ExIt Sub
End lf
Next i
Label2．Caption＝“已成功添加输入项”
Combo1．______ [14] CombO1．Text
End lf
End Sub
(10)设有如下程序
Private sub search(a()As variant，ByVal key As Variant，index%)
Dim I％
ForI＝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
Dtm b() As Variant
Dim n As Integer
b＝Array(1，3，5，7，9，11，13，15)
Call search(b，11，n)
Printt n
End Sub
程序运行后，输出结果是________。 |
