《(完整版)浙江省高校计算机等级考试复习资料——二级VB语言(答案)》由会员分享,可在线阅读,更多相关《(完整版)浙江省高校计算机等级考试复习资料——二级VB语言(答案)(22页珍藏版)》请在金锄头文库上搜索。
1、浙江省高校计算机等级考试复习资料 二级 VB 语言答案 目录 2009 年春浙江省高等学校计算机等级考试二级VB 参考答案 . 2 2008 年秋浙江省高等学校计算机等级考试二级VB 参考答案 . 3 2008 年春浙江省高等学校计算机等级考试参考答案(二级VB) . 4 2007 年秋浙江省高等学校计算机等级考试参考答案(二级VB) . 5 2007 年春浙江省高等学校计算机等级考试参考答案(二级VB) . 7 VB 上机考试程序调试题样题(填空)参考答案 . 7 VB 上机考试程序调试题样题(改错)参考答案 . 8 VB 上机考试程序设计题样题参考答案. 9 2009 年春浙江省高等学校计
2、算机等级考试二 级 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
3、 个数。小计 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()
4、 计算、显示标准差。小计 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)
5、 (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)
6、 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 后
7、用通用对话框确定待输入的文件(格式如下, 各行中四个数据分别表示 学生姓名以及三门功课成绩),将其中三门课成绩均及格的学生信息按同样的格式输出到文件 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 年秋浙江省高等学
8、校计算机等级考试二 级 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.t
9、xt。 张三 ,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) (
10、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
11、 分 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
12、) (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)
13、 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