《VisualBasic程序设计》试题及其答案

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