（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
<< 上一页 [11] [12] 下一页
