高级语言程序设计作业及答案(2017.1)

高级语言程序设计作业及答案(2017.1)高级语言程序设计作业及答案(2017.1)高级语言程序设计作业及答案(2017.1)高级语言程序设计作业及答案(2017.1)编制仅供参考审核批准生效日期地址：电话：传真:邮编:《高级语言程序设计》作业教学中心：新疆产业发展研究中心校外学习中心专业层次：高中升大专学号：20姓名：王成均分数:注意事项：1.本作业共五大题，满分100分；2.请将以上各项信息填写清楚,否则,作0分处理；3.所有答案直接做在答案栏上,做在其它地方无效。（密封（密封线内不答题）一．判断题(如正确打√，否则，打×。)1．源程序中的错误一般分为编译错误、运行错误和逻辑错误等三种。2．控制台应用程序至少有一个Main过程。3．在程序设计语言系统中具有固定语法含义的符号串称为标识符。4.判别a是否等于b，若a=b，则输出字符串“aisequaltob”的块结构条件语句为：Ifa=bThenWriteLine(“aisequaltob”)EndIf5.输入结构变量的值就是输入该变量的各个元素的值。6．若某个模块中以关键字private定义函数过程，则该函数过程只能在该模块中使用。7.关键字private用于声明私有成员。私有成员可以在类中和类外访问。8．在程序运行期间，用户可以用文本框显示信息。文本框接受输入的内容的属性是Text。9．列表框ListBox中项目的序号从1开始到Listcount结束。10.以数据流的方式对文本文件中的数据进行读/写操作，需要StreamReader类和StreamWriter类。答案栏：1．√2．√3．√4．√5．√6．×7．√8．×9．√10．×二．单项选择题1.下列变量名中错误的是()。A.nB.名称C.ab#D.“年龄”2．设X为整型变量,不能正确表达1<X<5的逻辑表达式是()。A.1<X<5B.X=2orX=3orX=4C.1<XAndX<5D.Not(X<=1)AndNot(X>=5)3．设有数组说明语句：Dimc(10)ASInteger，则下面表示数组c的元素选项中（）是错误的。A.c(i-1)B.c(5+C.c(0)D.c(11)4．在过程的形式参数前面加上关键字（），则该参数说明为引用参数。A.ValB.refC.ByrefD.ByVal5.设已定义函数过程f，它有三个实型传值参数；设a,b和c为实型变量，则调用该函数的正确形式为（）。A.fB.f(a+b,b+c)C.f(a+b,b+c,c+a)C.fa+b,b+c,c+a6．若使命令按钮不可见，可以设置Visible属性的值为（）。A.False B.True C.T D.F7．要使单选按钮RadioButton处于选中或未选中状态，需由（）属性来决定。A.Show B.List C.Text D.Checked8．要删除列表框中的某一个项目，需要使用（）方法。A.Clear B.ReMove C.Move D.ReMoveItem9．要设置计时器的时间间隔可以通过（）属性来实现。A.Value B.Text C.Minimum D.InterVal10．下面（）类用来把数据写入文本文件中。A.StreamWriterB.BinaryWriterC.StreamReaderD.BinaryReader答案栏：1.__A____2.__D____ 3.__B____ 4.__C____ 5.__C____ 6.__A____ 7.__D____ 8.__B____ 9.____D__ 10.___D___三.简答题1.在控制台应用程序中，如何输入输出一维数组的元素2．若有数组定义语句：Dimc%()={76,80,75}，则数组c有多少个元素这些元素是什么它们的初值是多少3.文件操作可以分为哪些步骤答案栏：1.答：输入一维数组元素的值可以使用赋值语句，也可以使用Console类的输入方法Read和ReadLine从键盘输入数据。输出一维数组元素的值可以使用Console类的Write方法和WriteLine方法。2.答：窗体上的控件有5个标签、5个文本框和2个命令按钮。3答：三种文件的基本操作均分为三阶段：（1）打开文件。（2）读（磁盘→内存）/写（内存→磁盘）文件。（3）关闭文件。四.程序阅读题1．当x的输入值分别为、8、4和15时，写出执行下列程序的输出结果。ImportsModuleModule1SubMain()Dimx%,y%Write("请输入x的值:")x=ReadLine()SelectCasexCase1,3,5y=x-1Case6To10y=x+1Case2,4y=2*xCaseIs>10y=x*x+1EndSelectWriteLine("x={0}y={1}",x,y)EndSubEndModule2.写出执行下列程序的输出结果。ImportsModuleModule1SubMain()Dimf(10)AsIntegerf(0)=1:f(1)=1Fori=2To10f(i)=f(i-2)+f(i-1)NextiFori=0To10IfInt(i/4)=i/4ThenWriteLine()Write("f({0})={1}",i,f(i))NextiEndSubEndModule答案栏：1．x=2y=4、x=8y=9、x=4y=8、x=15y=2262．f(0)=1f(1)=1f(2)=2f(3)=3f(4)=5f(5)=8f(6)=13f(7)=21f(8)=34f(9)=55f(10)=89五.程序填空题1.下面程序的功能是使用公式求π的近似值，直到最后一项的值小于为止，在横线上填上适当内容。ImportsImportsModuleModule1SubMain()Dimi&,s#,term#i=1s=(1)Doterm=1/(i*i)s=(2)i=i+1LoopWhile(3)WriteLine("圆周率的近似值为：{0}",Sqrt(6*s))EndSubEndModule2.下面程序的功能是输入m和n的值，并按公式：求组合数的程序，在横线上填上适当内容。ImportsModuleModule1SubMain()Dimm&,n&,cmn#,c1&,c2&,c3&Write("n=")n=ReadLine()Write("m=")m=ReadLine()Callfac(m,c1):Callfac(n,c2):Callfac(m-n,c3)cmn=(4)WriteLine("cmn={0}",cmn)EndSubPrivateSubfac(ByValk&,ByReff&)Dimt&,i&t=(5)Fori=1Tokt=t*iNexti(6)