资源描述：
《浙江省高校计算机等级考试复习资料——二级vb语言(答案)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、·《浙江省高校计算机等级考试复习资料——二级VB语言》答案目录2009年春浙江省高等学校计算机等级考试二级VB参考答案22008年秋浙江省高等学校计算机等级考试二级VB参考答案32008年春浙江省高等学校计算机等级考试参考答案（二级VB）42007年秋浙江省高等学校计算机等级考试参考答案（二级VB）52007年春浙江省高等学校计算机等级考试参考答案（二级VB）7VB上机考试程序调试题样题(填空)参考答案7VB上机考试程序调试题样题(改错)参考答案7VB上机考试程序设计题样题参考答案9····2009年春浙江省高等学校计算机等级考试二级VB参考答案试题1~
2、试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(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分）Dima()AsDouble,aveAsDouble,nAsInteger,seitAsDoublePrivateSubCommand1_Click()'输入数据n以及n个数。小计10分DimiAsInteger'1分n=Inputbox
3、("n=")'2分Redima(n)'3分Fori=1Ton'4分a(i)=InputBox("a("&i&")=")NextiEndSubPrivateSubCommand2_Click()'计算、显示平均值。小计7分DimiAsInteger'1分Fori=1Ton'4分ave=ave+a(i)/nNextiText1.Text=ave'2分EndSubPrivateSubCommand3_Click()'计算、显示标准差。小计11分····DimiAsInteger'1分Fori=1Ton'5分seit=seit+(a(i)-ave)^2Nexti
4、seit=sqr(seit)/(n-1)'3分Tetx2.Text=seit'2分EndSub2008年秋浙江省高等学校计算机等级考试二级VB参考答案试题1~试题6请在各小题正确选项的对应位置处填“√”（每小题3分，共72分）ABCDABCD(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后用通用对话框确定待输入的文件（格式如下，各行中四个数据
5、分别表示学生姓名以及三门功课成绩），将其中三门课成绩均及格的学生信息按同样的格式输出到文件"e:score.txt"。"张三",77,86,93"李四",77,86,93......PrivateSubCommand1_Click()'声明变量····DimnameAsString,k1AsInteger,k2AsInteger,k3AsInteger（2分）'用控件CommonDialog1选择文件CommonDialog1.Action=1（2分）'打开所选文件用于读数据，打开文件e:score.txt用于写数据OpenCommonDialog1
6、.FileNameForInputAs#1（2分）Open"e:score.txt"ForOutPutAs#2（2分）'读文件中数据并处理DoWhileNotEof(1)（18分）Input#1,name,k1,k2,k3循环结构6分Ifk1>=60Andk2>=60Andk3>=60Then_Input4分Write#1,name,k1,k2,k3条件4分LoopWrite#4分（Print#扣2分Close#1:Close#2（2分）EndSub2008年春浙江省高等学校计算机等级考试参考答案（二级VB）试题1~试题6请在各小题正确选项的对应位置处
7、填“√”（每小题3分，共72分）ABCDABCD(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可输入有10个实数的数组，调用函数f求他们的平均值V，然后输出其中与V之差的绝对值为最小的那个数组元素。请将答卷上函数过程f（包括形参列表）、事件过程Command1补充完整。PrivateFunctionf(b()AsSingle,nAsI
8、nteger)AsSingle'2分DimiAsInteger'1分Fori=1
