显示“输入错误”
显示“添加项目失败”
显示“添加项目成功”
没有任何显示
第1题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim k As Long
k=1
Do While num
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为( )。
第2题：
窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。
A.文本框中显示的是"程序设计"，且焦点在文本框中
B.文本框中显示的是"等级考试"，且焦点在文本框中
C.文本框中显示的是"程序设计"，且焦点在命令按钮上
D.文本框中显示的是"等级考试"，且焦点在命令按钮上
第3题：
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入一个具有大小写的字符串，则在标签中显示的内容全部为大写。请填空。
第4题：
在窗体上画1个组合框(名称为Cbl，设置为简单组合框)和1个命令按钮(名称为C1，标题为“添加”)，编写适当的事件过程。程序运行后，在组合框中输入一个列表项，单击命令按钮后，程序检查组合框的下拉列表，如果列表中没有此项，则把此项添加到列表中；如果有此项，则通过信息框提示“此项已存在”，并清除输入的内容。程序的运行情况如图2—1所示。
存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
2．在窗体上画一个名称为L1的列表框，通过属性窗口向列表框中添加3个项目，分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后，每次双击列表框中的任何一项，则总在最后面添加一项，该项的内容为前面所有项之和。程序的运行情况如图2—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjr4.vbp。
③ 编写命令按钮的Click事件过程：
Private Sub C1_Click()
Dim flag As Boolean
For i＝0 To Cb1.ListCount—1
If Cb1.List(i)＝Cb1.Text Then
flag＝True
Else
flag＝False
End If
Next
If flag Then
MsgBox"此项已存在"""
Cb1.Text=""
Else
Cb1.Addltem Cb1.Text
End If
End Sub
2．① 对象主要属性设置如表4所示。
② 分析：按试题要求在窗体上画一个列表框并分别将它们的属性按表4的内容进行设置。ListIndex属性返回或设置控件中当前选择项目的索引值。当双
击列表框中的任一项时即触发了DblCilck(双击)事件。向列表框 (对象)中添加内容的方法为AddItem其格式为：对象．AddItem字符串表达式位置如果
省略“位置”当Sorted属性设置为False时“字符串表达式”将添加到列表的结尾。
③ 编程代码：
Private Sub L1 DblClick()
For i＝0 To L1. ListIndex
s＝s+Val(L1.list(i))
Next i
L1.AddItem s
End Sub
③ 编写命令按钮的Click事件过程：
Private Sub C1_Click()
Dim flag As Boolean
For i＝0 To Cb1.ListCount—1
If Cb1.List(i)＝Cb1.Text Then
flag＝True
Else
flag＝False
End If
Next
If flag Then
MsgBox"此项已存在",,""
Cb1.Text=""
Else
Cb1.Addltem Cb1.Text
End If
End Sub
2．① 对象主要属性设置如表4所示。
② 分析：按试题要求在窗体上画一个列表框，并分别将它们的属性按表4的内容进行设置。ListIndex属性返回或设置控件中当前选择项目的索引值。当双
击列表框中的任一项时，即触发了DblCilck(双击)事件。向列表框 (对象)中添加内容的方法为AddItem，其格式为：对象．AddItem字符串表达式，位置如果
省略“位置”，当Sorted属性设置为False时，“字符串表达式”将添加到列表的结尾。
③ 编程代码：
Private Sub L1 DblClick()
For i＝0 To L1. ListIndex
s＝s+Val(L1.list(i))
Next i
L1.AddItem s
End Sub
第5题：
在窗体上添加一个命令按钮，名为Command1，事件过程如下：
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1后，输出的结果是______。
A．5
B．4
C．3
D．2
第6题：
在考生文件夹下有“xx”数据库。
在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”，添加“显示学生姓名”按钮，编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
第7题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
第8题：
在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：
Private Sub Command1_Click()
A=InputBox("被除数")
B=InputBox("除数")
Print A；"÷"；B；"="；A / B
End Sub
则窗体中显示的内容是______。
第9题：
以下程序运行后的窗体如图所示。其中组合框的名称是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．没有任何显示
第10题：
在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为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