Private Sub Combol_KeyPress(KeyAscii As Integer)
If ( 9 ) =13 Then ‘ 回车符的 ASCII 码是 13
F．or k=0 To Combol.ListCount-1
If Combol.Text= Combol.List(k) Then
C．ombol.Text= ” ”
E．xit For
E．nd If
Next k
If Combol.Text <> “” Then
C．ombol.AddItem ( 10 )
E．nd If
E．nd If
E．nd Sub
程序的功能是 ： 在组合框的编辑区中输入文本后按回车键 ， 则检查列表中有无与此文本相同的项目 ， 若有 ，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
[单选题]窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。Option Base 1Private Sub Command1_Click()D．im city As Variantcity=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)F．or i=_______ To UBound(city)C．ombol．AddItem_
[单选题]设在窗体上有—个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是 ______。A．Combo1.RemoveItem Combo1.TextB．Combo1.Removeltem4C．Combo1.RemoveItem Combo1.ListCountD．Combo1.RemoveItem5
[试题]设窗体上有一个名称为CDl的通用对话框、一个名称为Textl的文本框和一个名称为Commandl的命令按钮。程序执行时，单击Commandl按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文字文件，并读人一行文本，显示在Textl中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click CD1.Filter=“文本文件|*.txt|Word文档|*.doc” CDl.FilterIndex=1：CD1.Show
[试题]（ 8 ） 设窗体上有一个名称为 CD1 的通用对话框 ， 一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时，单击 Command1 按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的 “ 打开 ” 按钮后 ， 则可打开该文本文件 ， 并读入一行文本 ， 显示在 Text1 中 。 下面是实现此功能的事件过程，请填空。Private Sub Command1_Click()C．D1.Filter =" 文本文件 1*.txt(Word
[单选题]设窗体上有一个文本框，名称为Textl，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是( )。A．Textl.MaxLength=0B．Textl.Enabled=FalseC．Textl.Visible=FalseD．Textl.Width=0
[单选题]（17）在窗体上有一个文本框，其名称为Text1，编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer ) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Test=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”则在文本框Text3中显示的内容为 A.aaa B.AAA C.AA D.aa
[试题]（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load( )Open "d:/temp/dat.txt" For Output As #1Text1.Text=""E．nd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)= (14) ThenC．lose #1E．ndE．lseWrite #1, (15)
[单选题]（16）窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A．）Print Cb1.SelectedB．）Print Cbl.I,ist(Cbl.ListIndex)C．）Print Cb1.Selected.TextD．）Print Cbl.List(Listlndex)
[单选题]设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是（ ）。A．Text1.MaxLength=0B．Text1.Enabled=FlaseC．Text1.Visible=FlaseD．Text1.Width=0
[单选题]设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是A．Text1．Maxength=0B．Text1．Enabled=FalseC．Text1．Visible=FalseD．Text1．Width=0