2012级VB语言程序设计期末考试卷

Private Sub Command1_Click()

  Dim A As Integer, B As Integer

  A = 10

  B = 4

  Print A \ B; A Mod B

End Sub

2、下面是一个歌手大赛评分程序。10位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。请在[1]、[2]、[3]和[4]处填入适当的内容，将程序补充完整。

Private Sub Form_Click()

Max= 0

Min= 10

For i = 1 To 10

x=Val(InputBox("请输入分数"))

If[1]________ Then Max=x

If[2]________ Then Min=x

s =s + x

[3]________

s =[4]________

p = s/8

Print "最高分"；Max,"最低分"；Min

Print "最后得分"；p

End Sub

3. 电梯的最大容量为12人，在此范围内电梯能正常运行，超出了这个范围电梯将发出警报。

DIM a as integer

a=val(inputbox(请输入进入电梯的人数“))

IF a<=12[1]_____

Print “正常运行”

[2]_______

Print “发出警报”

[3]_______