单选题以下程序运行后的窗体如图所示，其中组合框的名称是Combol，已有列表项如下图所示；命令按钮的名称是Command1。程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（　　）。A 显示“输入错误”B 显示“添加项目失败”C 显示“添加项目成功”D 没有任何显示

窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。

A.文本框中显示的是"程序设计"，且焦点在文本框中

B.文本框中显示的是"等级考试"，且焦点在文本框中

C.文本框中显示的是"程序设计"，且焦点在命令按钮上

D.文本框中显示的是"等级考试"，且焦点在命令按钮上

在窗体上添加一个命令按钮，名为Command1，事件过程如下：

程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1后，输出的结果是______。

A．5

B．4

C．3

D．2

在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。

存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图2—2所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjr4.vbp。

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：

打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果是（ ）。

A. 输出0

B. 输出25

C. 输出45

D. 无任何输出

以下程序运行后的窗体如图所示。其中组合框的名称是Combo卜已有列表项如图所示；命令按钮的名称是Command 1。

Private Sub Commandl_Click()

If Not Check(Combo 1.Text) Then

MsgBox ("输入错误")

Exit Sub

End If

For k=0 To Combol.ListCount-1

If Combo l .Text=Combol.List(k) Then

MsgBox (" 添加项目失败")

Exit Sub

End If

Next k

Combo 1 .AddItem Combo 1.Text

MsgBox（"添加项目成功"）

End Sub

Private Function Check(ch As String) As Boolean

n=Len(ch)

for k＝1To n

c＄＝UCase(Mid(ch, k, 1））

If c＜"A"Or c＞"Z" Then

Check＝False

Exit Function

End If

Next k

Check=True

End Function

程序运行时：如果在组合框的编辑区中输入"Java",单击命令按钮后产生的结果是

A）显示“输入错误”

B)显示“添加项目失败”

C) 显示“添加项目成功”

D)没有任何显示

在考生文件夹中有一个工程文件execise88.vbp及窗体文件exeeise88.frm。在名称为 Form1的贸体中有一个组合框和一个命令按钮，如下图所示。

在运行程序时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示： “已有此项”，然后清除输入的内容。

要求：

去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。

（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。

注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。

（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。

注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。

窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。

Option Base 1

Private Sub Command1_Click()

Dim city As Variant

city=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)

For i=_______ To UBound(city)

Combol．AddItem_______

Next

End Sub

以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。Private，Sub Command1_Click（ ） If Not Check(Combo1．Text)Then MsgBox("输入错误") Exit Sub End If For k=0 To Comb01．ListCount-1 If Comb01．Text=Combo1．List(k)Then MsgBOX("添加项目失败") Exit Sub End If Next k Cornbol．AddItem Combo1．Text MsgBOX("添加项目成功") End Sub Private Function Check(ch As String)As Boolean n=Len(ch) For k=1 To n c$=Ucace(Mid(ch，k，1)) If c<"A"Or c>"Z"Then Check=False Exit Function End If Next k Check=True End Function 程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。

A.显示“输入错误”

B.显示“添加项目失败”

C.显示“添加项目成功”

D.没有任何显示

在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：

打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。

在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

程序运行后，单击命令按钮，在文本框中显示的值是__________。

以下程序运行后的窗体如图所示。其中组合框的名称是Combol，已有列表项如图所示；命令按钮的名称是Commandl。

Private Sub Commandl Click()

If Not Check(Comb01．Text)Then

MsgBox(”输入错误”)

Exit Sub

End If

For k=0 TO Comb01．ListCount一1

If Comb01．Text=Comb01．List(k)Then

MsgBox(”添加项目失败”)

Exit Sub

End If

Next k

． Comb01．AddItem Comb01．Text

MsgBox(”添加项目成功”)

End Sub

Private Function Check(ch As String)As Boolean

n=Len(ch)

For k=1 Ton

c$=UCase(Mid(ch，k，1))

If c<“A”Or c>”Z”Then

Cbeck=False

Exit Function

End If

Next k

Check—True

End Function

程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是

A．显示“输入错误”

B．显示“添加项目失败”

C．显示“添加项目成功”

D．没有任何显示

在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combol和Text1，然后编写如下事件过程： Private Sub Form_Load() Combol.AddItem "AAAAA" Combol.AddItem "BBBBB" Combol.AddItem "CCCCC" Combol.AddItem "DDDDD" Combol.AddItem "EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目，"CCCCC"。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为______。

A．Text1．Text=Combol．List(2)

B．Text1．Text=Combol．Text

C．Text1．Text=Combol．List(3)

D．Text1．Text=Combol．ListIndex

窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。

A. 京

B. 北京南京

C. 南京北京

D. 没有匹配的项目

有一个工程文件ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图20所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1 Click（ ） XzInputBox("输入X："，，0) y=InputBox("输入y："，，0) Label1．Caption=x+y End Sub 运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（ ）。

A.程序运行有错误，数据类型不匹配

B.程序运行有错误，InputBox函数的格式不对

C.在Label1中显示5

D.在Label1中显示23

在考生文件夹中有一个工程文件execise38.vbp，相应的窗体文件名为execise38.frm。在名为Form1的窗体中有一个组合框和一个命令按钮，如下图所示。

程序的功能是：在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示：“此项已存在”，然后清除输入的内容。

要求：

去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后原名保存修改后的文件。

在名为Form1的窗体上绘制一个名称为Lab1、标题为“AddItem:”的标签；绘制一个名称为Text1的文本框，没有初始内容；绘制一个名称为Com1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)：再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为Add和Display。在运行时，向Text1中输入字符，单击Add按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中：单击Display按钮，则在窗体上显示组合框中列表项的个数，如下图所示。请编写两个命令按钮的Click事件过程。

注意：

程序中不得使用变量，也不能使用循环；文件必须存放在考生文件夹中，工程文件名为execise13.vbp，窗体文件名为execise13.frm。

在考生文件起下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为 Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的故值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框．输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。 程序运行时的窗体界面如图5-3所示。注意：该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：

窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。