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