填空题
在窗体上画一个名称为Combol的组合框,画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示:如果存在,则在Label2中给出提示“输入项已在组合框中”。请在
【12】
、
【13】
和
【14】
处将程序补充完整。
Private Sub Combo1
【12】
(Key Ascii As Integer)
If Key Ascii=13 Then
For i=0 TO Comb01.ListCount-1
If Combo1.Text=
【13】
Then
Label2.Caption=“输入项已在组合框中”
Exit Sub
End If
Next i
Label2.Caption=“已成功添加输入项”
Combo1.
【14】
Combo1.Text
End If
End Sub
【参考答案】
[12] KeyPress
[13] Comb01.List(i)
[14] Addltem
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
设有如下程序 Private Sub Search(a( )As Variant,ByVa1 key As Variant,index%) Dim I% For I=LBound(a) To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I 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程序动行后,输出结果是 【15】 。
点击查看答案&解析
填空题
设有如下程序 Private Sub Fom1_Click( ) Dim s As Integer,b As Integer a=20:b=50 p1 a,b p2 a,b p3 a,b Print a= ;a, b= ;b End Sub Sub pl(x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后,单击窗体,则在窗体上显示的内容是:a= 【9】 和b= 【10】 。
点击查看答案&解析
相关试题
在数据库设计的4个阶段,为关系模式选择存...
利用E-R模型进行数据库的概念设计,可以分...
表示滚动条控件取值范围最大值的属性是
下列叙述中,正确的是
在窗体上画一个名称为List1的列表框,一个...