（8）当文本框中的内容发生了改变时，触发的事件名称是 【8】 。 （9）在VBA中求字符串的长度可以使用函数 【9】 。
（10）要将正实数x保留两位小数，若采用Int 函数完成，则表达式为 【10】 。 （11）在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1,编写如下两个事件过程：
Private Sub Command1_Click( ) a = Text1.Value + Text2.Value MsgBox a End Sub
Private Sub Form_Load( ) Text1.Value = “” Text2.Value = “” End Sub
程序运行时，在文本框Text1中输入78，在文本框中Text2输入87，单击命令按钮，消息框中输出的结果为 【11】 。
（12）某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 Sub command1_click( )
Dim mark!, aver!, i%,max1!,min1! aver = 0 For i = 1 To 7
Mark = InputBox(“请输入第”& i & “位评为的打分”) If i = 1 then
max1 =mark : min1=mark Else
If mark < min1 then min1= mark
ElseIf mark> max1 then 【12】 End If End If 【13】 Next i
aver = (aver - max1- min1)/5 MsgBox aver End Sub
（13）“学生成绩”表含有字段（学号，姓名，数学，外语，专业，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在程序空白处填入适当语句，使程序实现所需要的功能。
Private Sub Command1_Click( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim zongfen As New ADODB.Fileld Dim shuxue As New ADODB. Fileld Dim waiyu As New ADODB. Fileld Dim zhuanye As New ADODB. Fileld Dim strSQL As Sting
Set cn = CurrentProject.Connection StrSQL = “Select*from成绩表”
rs.OpenstrSQL, cn, adOpenDynamic, adLockptimistic, adCmdText Set zongfen = rs.Filelds(“总分”) Set shuxue = rs.Filelds(“数学”) Set waiyu = rs.Filelds(“外语”) Set zhuanye = rs.Filelds(“专业”) Do while 【14】
Zongfen = shuxue + waiyu + zhuanye 【15】 rs.MoveNext Loop rs.close cn.close Set rs = Nothing Set cn = Nothing End Sub 参考答案 选择题
1-5 CBDAB 6-10 ACBCD 11-15 BBAAC 16-20 DDACB 21-25 AADCC 26-30 CAAAD 31-35 BBDBD 填空题
1 14 2 逻辑分析 3 需求分析 4 多对多 5 身份证号 6 数据访问页 7 GOTO RECORD 8 CHARGE 9 Len 10 Int(x*100)/100 11 7887 12 max1=mark aver=aver+mark 13 not rs.EOF rs.UPDATE