浙江省高校计算机等级考试复习资料 二级 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 分） A B C D A B C D (1) (13) (2) (14) (3) (15) (4) (16) (5) (17) (6) (18) (7) (19) (8) (20) (9) (21) (10) (22) (11) (23) (12) (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(n=) 2 分 Redim a(n) 3 分 For i = 1 To n 4 分 a(i) = InputBox(a( & i & )=) 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 分） A B C D A B C D (1) (13) (2) (14) (3) (15) (4) (16) (5) (17) (6) (18) (7) (19) (8) (20) (9) (21) (10) (22) (11) (23) (12) (24) 试题7（28 分） 编程， 按 Command1 后用通用对话框确定待输入的文件（格式如下， 各行中四个数据分别表示 学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件 e:score.txt。 张三 ,77,86,93 李四 ,77,86,93 . Private Sub Command1_Click() 声明变量 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 分） A B C D A B C D (1) (13) (2) (14) (3) (15) (4) (16) (5) (17) (6) (18) (7) (19) (8) (20) (9) (21) (10) (22) (11) (23) (12) (24) 试题7（28 分） 编程， 按 Command1 后用通用对话框确定待输入的文件（格式如下， 各行中四个数据分别表示 学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件 e:score.txt。 张三 ,77,86,93 李四 ,77,86,93 . Private Sub Command1_Click() 声明变量 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 分） A B C D A B C D (1) (13) (2) (14) (3) (15) (4) (16) (5) (17) (6) (18) (7) (19) (8) (20) (9) (21) (10) (22) (11) (23) (12) (24) 试题7（28 分） 编程， 按 Command1 后用通用对话框确定待输入的文件（格式如下， 各行中四个数据分别表示 学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件 e:score.txt。 张三 ,77,86,93 李四 ,77,86,93 . Private Sub Command1_Click() 声明变量 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 分） A B C D A B C D (1) (13) (2) (14) (3) (15) (4) (16) (5) (17) (6) (18) (7) (19) (8) (20) (9) (21) (10) (22) (11) (23) (12) (24) 试题7（28 分） 编程， 按 Command1 后用通用对话框确定待输入的文件（格式如下， 各行中四个数据分别表示 学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件 e:score.txt。 张三 ,77,86,93 李四 ,77,86,93 . Private Sub Command1_Click() 声明变量 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 分） A B C D A B C D (1) (13) (2) (14) (3) (15) (4) (16) (5) (17) (6) (18) (7) (19) (8) (20) (9) (21) (10) (22) (11) (23) (12) (24) 试题7（28 分） 编程， 按 Command1 后用通用对话框确定待输入的文件（格式如下， 各行中四个数据分别表示 学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件 e:score.txt。 张三 ,77,86,93 李四 ,77,86,93 . Private Sub Command1_Click() 声明变量 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 分） A B C D A B C D (1) (13) (2) (14) (3) (15) (4) (16) (5) (17) (6) (18) (7) (19) (8) (20) (9) (21) (10) (22) (11) (23) (12) (24) 试题7（28 分） 编程， 按 Command1 后用通用对话框确定待输入的文件（格式如下， 各行中四个数据分别表示 学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件 e:score.txt。 张三 ,77,86,93 李四 ,77,86,93 . Private Sub Command1_Click() 声明变量 Dim i As Integer 1 分 For i = 1 To n