Case Is >= 70
Print \中等\
Case Is >= 60
Print \通过\
(2) Case Else或Is >=0
Print \差\
End Select
End If
End Sub
2.下面程序的功能是：计算 f=1 -1/(2×3)+1/(3×4)-1/(4×5)+ … +1/(19×20)的值，在横线上填上适当内容。
Private Sub Form_Click()
Dim f As Single,i As Integer,sign As Integer
（3） sign=-1
f = 1
（4） for i=2 to 19
f = f + sign/(i*(i + 1))
（5） sign=sign*(-1)
Next i
Print \
End Sub
3.下面窗体模块的功能是：从键盘上输入x，y和z的值，按如下公式求f (x，y，z)的值的程序，在横线上填上适当内容。
f(x,y,z)=sin(x)/(sin(x-y)*sin(x-z))+sin(y)/(sin(y-z)*sin(y-x))+sin(z)/(sin(z-x)*sin(z-y))
其中x、y和z互不相等。
Function f(ByVal a As Single,ByVal b As Single,ByVal c As Single) (6) As Single
(7) f=Sin(a)/(Sin(b)* Sin(c))
End Function
Private Sub Command1_Click()
Dim x!, y!, z!, s!
x = InputBox(\
y = InputBox(\
z = InputBox(\
If x <> y And y <> z And z <> x Then
s=f(x,x-y,x-z)+f(y,y-z,y-x)+ (8) f(z,z-x,z-y)
Print \
Else
Print \数据输入错误！\
End If
End Sub
4.下面事件过程的功能是从学生分数顺序文件D: \\file1.dat中读取各个学生的分数，并求该班的平均成绩，在横线上填上适当内容。
Private Sub command1_Click()
Dim n%, score!, s!
Open \For Input
n = 0: s = 0
While (10) Not EOF(3)
Input #3,score
s = s + score
n = (11) n+1
Wend
Print \平均成绩为：\
Close #3
End Sub
五、程序设计题（每题7分，共14分）
1. 假设体操比赛有10个评委和评分规定为：①采用10分制；②去掉一个最高分和去掉一个最低分，然后计算平均分，该平均分作为最后得分。试编写一个事件过程，输入10个评委对某个运动员的评分存放在一维数组s中，计算该运动员的最后得分。
Private Sub Command1_Click()
Dim s!(1 To 10), max!, min!, i%, sum!
max = 0: min = 11: sum = 0
For i = 1 To 10
s(i) = InputBox(\请输入第\个评委的分数\
Next i
For i = 1 To 10
If s(i) > max Then max = s(i)
If s(i) < min Then min = s(i)
sum = sum + s(i)
Next i
Print \最后得分：\
End Sub
2. 勾股定理中的三个数a、b和c的关系为：a2?b2?c2。试编写一个事件过程，求出30以内满足上述关系的整数组合并输出。例如，3、4和5就是这样一个整数组合。
Private Sub Command1_Click()
Print \
For a = 1 To 30
For b = 1 To 30
For c = 1 To 30
If a*a+b*b=c*c Then Print a,b,c
Next c
Next b
《VisualBasic程序设计》试题及其答案
