《浙江省高校计算机等级考试复习资料
——二级VB语言》答案
目 录
2009年春浙江省高等学校计算机等级考试二级VB参考答案 .......... 2 2008年秋浙江省高等学校计算机等级考试二级VB参考答案 .......... 3 2008年春浙江省高等学校计算机等级考试参考答案（二级 VB） . 4 2007年秋浙江省高等学校计算机等级考试参考答案（二级 VB） . 5 2007年春浙江省高等学校计算机等级考试参考答案（二级 VB） . 7 VB上机考试程序调试题样题(填空)参考答案 ..................................... 7 VB上机考试程序调试题样题(改错)参考答案 ..................................... 8 VB上机考试程序设计题样题参考答案 ................................................ 9
2009年春浙江省高等学校计算机等级考试二级VB参考答案
试题1~试题6 请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）
(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) A √ √ √ √ B √ √ √ C √ √ √ D √ √ (13) (14) (15) (16) (17) A √ √ B √ √ √ √ C √ √ D √ √
(18) (19) (20) (21) (22) (23) (24) √ √ 试题7（28分）
Dim a() As Double, ave As Double, n As Integer, seit As Double
Private Sub Command1_Click() '输入数据n以及n个数。 小计 10分 Dim i As Integer ' 1 分 n = Inputbox(\分 Redim a(n) ' 3 分 For i = 1 To n ' 4 分 a(i) = InputBox(\ Next i
End Sub
Private Sub Command2_Click() '计算、显示平均值。 小计 7分 Dim i As Integer ' 1 分 For i = 1 To n ' 4 分 ave = ave + a(i)/n Next i
Text1.Text = ave ' 2 分 End Sub
Private Sub Command3_Click() '计算、显示标准差。 小计 11分
Dim i As Integer ' 1 分 For i = 1 To n ' 5 分 seit = seit + (a(i) - ave) ^2 Next i
seit = sqr(seit) / (n - 1) ' 3 分 Tetx2.Text = seit ' 2 分 End Sub
2008年秋浙江省高等学校计算机等级考试二级VB参考答案
试题1~试题6 请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）
(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) A √ √ √ √ B √ √ C √ √ √ D √ √ √ (13) (14) (15) (16) (17) A √ √ √ B √ √ C √ √ √ D √ √ √
(18) (19) (20) (21) (22) (23) (24) √
试题7（28分）
编程，按Command1后用通用对话框确定待输入的文件（格式如下，各行中四个数据分别表示学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件\。
\张三\\李四\
......
Private Sub Command1_Click() ' 声明变量
浙江省高校计算机等级考试复习资料——二级VB语言(答案)
