高级语言程序设计作业及答案(2017.1)_第1页
高级语言程序设计作业及答案(2017.1)_第2页
高级语言程序设计作业及答案(2017.1)_第3页
高级语言程序设计作业及答案(2017.1)_第4页
高级语言程序设计作业及答案(2017.1)_第5页
已阅读5页,还剩2页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

高级语言程序设计作业及答案(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)

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论