35. 设置组合框的风格，可用的属性是（ ）。
（A） Backstyle （B）Borderstyle （C）Style （D）Sorted
36. 窗体上有文本框Textl和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击\保存\菜单项，则把其标题显示在Textl文本框中。下面可实现此功能的事件过程是（ ）。
标题 名称 文件 file 新建 new 保存 save
（A）Private Sub save_Click()
Text1.Text＝file.save.Caption End Sub
（B）Private Sub save _Click()
Text1.Text＝save.Caption End Sub
（C）Private Sub file_Click()
Text1.Text＝file.save.Caption End Sub
（D）Private Sub file_ Click()
Text1.Text＝save.Caption End Sub
37. 若要清除列表框的所有项目内容，可以使用（ ）方法。
（A） AddItem （B） ReMove （C）Clear （D）Print
38. 可以用作其它控件容器的控件有( )。
（A）窗体，列表框，图像 （B）窗体，文本框，框架 （C）窗体，框架，图片框 （D）窗体，标签，图片框
39. 下列控件中，没有Caption属性的是( )。
（A）框架 （B）列表框 （C）复选框 （D）单选按钮
40. 下面关于菜单的叙述中错误的是（ ）。 （A）各级菜单中的所有菜单项的名称必须唯一
（B）同一子菜单中的菜单项名称必须唯一，但不同子菜单中的菜单项名称可以相同 （C）弹出式菜单用PopupMenu方法显示 （D）弹出式菜单也用菜单编辑器编辑
三 程序填空题
1. 单击按钮，在图片框上显示20个两位的随机整数，每五个数换一行。 Private Sub Command1_Click() Dim x(20) As Integer Randomize
For i = 1 To 20
x(i) = Int(90 * Rnd + 10) (1) ;
If i Mod 5 = 0 Then (2) Next i End Sub
2. 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当单击列表框中的某个项目时，在标签Label1中显示所选中的项目。 Private Sub Form_Load()
List1.AddItem \北京\List1.AddItem \上海\List1.AddItem \湖北\End Sub
Private Sub (1)
Label1.Caption= End Sub
3. 产生一个由两位随机正整数组成的5行5列二维数组a，并显示在一个文本框中。
Option Base 1
Private Sub Command1_Click( ) Dim a(5, 5) As Integer
Dim i As Integer, j As Integer For j = 1 To 5 For i = 1 To 5
a(i, j) = Int(Rnd * 90 + 10)
（1） = Text1 + Str(a(i, j)) Next i
Text1 = Text1 + （2） Next j End Sub
4. 在窗体上画一个按钮、一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Command1_Click() （1） =\程序设计” End Sub
Private Sub Text1_Change()
（2） “VB programming” End Sub
将程序补充完整，使得程序运行后，单击按钮，在文本框中显示的内容是VB程序设计 ，在图片框中显示的内容是VB programming 。
5. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。 Private Sub Form_Load( )
Command1.Enabled=( 1 ) End Sub
Private Sub Text1_change( )
Command1.Enabled=( 2 ) End Sub
6. 窗体上有一个名称为Combo1的组合框，其初始内容为空，有一个名称为Command1、标题为\添加项目\的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。样例：
Option Base 1
Private Sub Command1_Click() Dim city As Variant
city = Array(\北京\天津\上海\武汉\重庆\西宁\ For i＝ (1) To UBound(city) (2) city(i) Next End Sub
7. 在窗体上画名称为Command1、标题为\计算\的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为\操作数1\、\操作数2\、\运算结果\和空白；再建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为\、\、\和\。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应计算结果显示在Label4中，程序运行情况如图所示。请在空处填入适当的内容，将程序补充完整。
Private Sub Command1_Click() For i = 0 To 3
If _(1) _=True Then opt = Option1(i).Caption End If Next
Select Case opt Case \
Result = Val(Text1.Text) + Val(Text2.Text) Case \
Result = Val(Text1.Text) - Val(Text2.Text) Case \
Result = Val(Text1.Text) * Val(Text2.Text) Case \
Result = Val(Text1.Text) / Val(Text2.Text) End Select
_(2)_ =Result End Sub
8. 以下是一个比赛评分程序。在窗体上建立一个名称为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入六个分数，单击\计算得分\命令按钮，去掉一个最高分和一个最低分后求得的平均分即为最后得分,然后将最后得分显示在Text2文本框中，如下图所示。请填空。
Private Sub Command1_Click()
Dim k As Integer, Sum As Single, max As Single, min As Single Sum = _(1)
max = Text1(0): min = Text1(0) For k = 1 To 5
If max < Text1(k) Then max = Text1(k) End If
If min > Text1(k) Then min = Text1(k) End If
Sum = Sum + Text1(k) Next k
Text2 = _(2)_ / 4 End Sub 9． 在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。
Private Sub Check1_Click(Index As Integer) Text1.Text＝\ For k＝0 To 3
If (1) ＝1 Then
Text1.Text＝Text1.Text & Check1(k)．Caption & \ End If
(2) End Sub
10. 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click() Text1．Text=\常州大学” End Sub
Private Sub Text1_Change() Picture1．Print“怀德学院” End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 （1） ，而在图片框中显示的 内容是_（2） 。