A. AND B. IMP C. NOT D. XOR 38.下面 不是VB的工作模式。
A.设计模式 B.运行模式 C.中断模式 D.大纲模式 参考答案：D
39.在VB中， 被称为对象。
A.窗体 B.控件 C.窗体和控件 D.窗体、控件、属性 参考答案：C
40.设a=”Visual Basic”,下面使b=”Basic”的语句是 。
A.b=Left(a,8,12) B.b=Left(a,8,5) C.b=Mid(a,8,5) D.b=Right(a,5,5) 参考答案：C
三、填空题：（每空2分，共10分）。
1、使用Dim CJ(1 To 3, 1 To 4, 2 To 3)，声明数组CJ有【1】个数组元素。 （答案：24）
2、为了使标签中的文字以粗体形式显示，需要把【2】属性设置为【3】。（答案：FontBold，true）
3、在定义子过程或函数的形式参数时，使用关键字【4】表示传数值，使用【5】表示传地址。（答案：Byval，ByRef）
4、下列程序允许用户按Enter键将一个组合框（cboComputer）中没有的项目添加到组合框中。
Sub cboComputer_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii=13 Then flag=False
For I=0 To cboComputer.ListCount-1 If 【6】 Then Flag=True Exit For End If Next i
第 6 页 共 14 页
If Not flag Then 【7】 Else
MsgBox(”组合框中已有该项目！”) End If End If End Sub
（答案：cboComputer.Text=cboComputer.list(i)，cboComputer.AddItem cboComputer.Text ）
5、函数odd用于判断一个数是否是奇数。当单击命令按钮时，产生[10,100]之间的随机数，调用odd过程，判断该数是否为奇数。 如果是则显示“奇数”，否则显示“偶数”。 Private Sub odd(n As Integer)
Print n; If n/2<>n\\2 Then
Print \奇数\
Else
【8】
End If
End Sub
Private Sub Command1_Click()
Dim x As Integer Randomize x =【9】
odd x End Sub
（答案：Print “偶数”，Int((100-10+1)*Rnd+10）或Int（91*Rnd+10） ) 6、请用正确内容填空，以下程序的输出结构是： 4 7 10
第 7 页 共 14 页
5 8 11 6 9 12 Option Base 1
Private Sub Form_Click() Dim i as integer Dim j as integer Dim a(3,3) as integer For i=1 to 3 For j=1 to 3 a(i,j)=【10】
print a(i,j);
Next j
Next i End Sub
（答案：3+i+3*(j-1))
五、编程题：(共30分)
1. 窗体设计（7分）
请设计如图1所示的界面。各控件和属性参照表1。第 8 页 共 14 页
图1 学生成绩统计 表2 窗体控件与属性
控件 窗体 框架 名称（Name）属性 form1 Frame1 Frame2 Text1 Text2 Text3 Text4 文本框 Text5 Text6 Text7 Text8 Text9 Text10 Label1 Label2 标签 Label3 Label4 Label5 Label6 标题（Caption）属性 学生成绩统计 学生成绩统计 分数段统计 无 无 无 无 无 无 无 无 无 无 总人数： 最高分： 及格率： 请输入及格分数线： 平均分： 最低分： 文本（text）属性 无 无 无 “” “” “” “” “” “” “” “” “” “” 无 无 无 无 无 无 第 9 页 共 14 页
Label7 Label8 Label9 Label10 Label11 Label12 列表框 命令按钮 List1 Command1 Command2 评分标准： 控件 窗体 框架 名称（Name）属性 form1 Frame1 Frame2 Text1 Text2 Text3 Text4 文本框 Text5 Text6 Text7 Text8 Text9 Text10 Label1 Label2 Label3 Label4 Label5 Label6 标签 Label7 Label8 Label9 Label10 Label11 Label12 列表框 命令按钮
List1 Command1 Command2 优秀率： 请输入优秀分数线： 从第一个到N各学生的成绩： 各分数段人数： 0--59分人数 60--100分人数 无 统计 开始 无 无 无 无 无 无 无 无 无 标题（Caption）属性 学生成绩统计 学生成绩统计 分数段统计 无 无 无 无 无 无 无 无 无 无 总人数： 最高分： 及格率： 请输入及格分数线： 平均分： 最低分： 优秀率： 请输入优秀分数线： 从第一个到N各学生的成绩： 各分数段人数： 0--59分人数 60--100分人数 无 统计 开始 文本（text）属性 评分标准 无 无 无 “” “” “” “” “” “” “” “” “” “” 无 无 无 无 无 无 无 无 无 无 无 无 无 无 无 1 1 1.5 1.5 1 1 第 10 页 共 14 页