年第二学期高中信息技术选修模块《算法与程序设计》

《年第二学期高中信息技术选修模块《算法与程序设计》》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、本溪市2011年第二学期高中信息技术选修模块《算法与程序设计》期末试卷考试时间：60分钟满分：100分一、单项选择题（本大题10小题，每小题2分，共20分）1、小林同学想通过程序设计解决“韩信点兵”的问题，他制定的如下步骤，正确的是（）　　A、设计算法，编写程序，提出问题，运行程序，得到答案　　B、分析问题，编写程序，设计算法，调试程序，得到答案　　C、分析问题，设计算法，编写程序，调试程序，得到答案　　D、设计算法，提出问题，编写程序，运行程序，得到答案2、以下关于算法的描述，正确的是()A、一个算法不允许有零个输入B、一个算法只

2、允许有一个输出C、一个算法可以执行无穷个步骤D、一个算法的每个步骤必须要确切地定义3、下列各种基本数据类型说明符中表示整数型的是（）A.IntegerB.BooleanC.SingleD.String4、Visual Basic工程文件的扩展名是（）   A、.forB、.frmC、.vbpD、.bat5、在VB中，要想单击“结束”按钮时结束程序，可在该按钮的（）事件过程中输入代码"End"A、ChangeB、KeyPressC、DblClickD、Click6、下列常量说明中，符合语法的是（）A、CONSTcolorAsredB、

3、CONSTconst=10*5C、CONSTPIAsSingle=3.14D、CONSTcolor=abcd7、下列选项中函数Mid("yesterday",7,3)的返回值是（）A、"yes"B、"ter"C、"day"D、"ds"8、下列选项中函数Len（"VB的学习"）返回值的是（）A、7B、5C、9D、119、字符串"ABCD"和字符串"DCBA"进行比较，如果让比较的结果为真，应选用关系运算符（）A、>B、=10、以下程序中的循环体执行的次数是( )PrivateSubCommand1_Click()第6页 

4、 ForA=1To100Step2     S=S+A  NextA  PrintSEndSub  A、48B、49C、50D、51二、判断题（本大题10小题，每小题2分，共20分。在题后的括号中填“√”或“×”）1、一个算法可以用多种程序设计语言来实现（）2、字符串型数据是指用''括起来的一串字符（）3、MsgBox函数返回值的类型为数值（）4、控件是应用程序的基本元素，与窗体共同构成应用程序的界面（）5、在VB程序中，若有下面的程序片断，则其中print语句的作用是输出一个空行（）……Print……6、在面向对象的程序设计中，对

5、象是有着特殊数据(属性)与操作(行为)的实体（）7、若a=10，b=20，执行a=b:b=a 后，则a=20，b=10（）8、面向对象程序设计的优点主要表现在可以用于解决软件复杂性控制和提高软件生产力()9、当我们编写好程序后想调试运行程序，可以在VB可视化环境中选择“运行”菜单下的“启动”命令或按F6键(　)10、穷举法的思路是，列举出所有可能的情况，逐个判断有哪些是符合问题所要求的条件从而得到问题的解答(　)三、看图填空：下图是VB的标准工具箱，请在横线上写出对应的控件名称（每空2.5分，共10分）第6页四、完善程序（每个空5分

6、，共20分）1、计算1+1/2+1/3+……+1/50的值。PrivateSubCommand1_Click()DimIasIntegerDimsAsDoubles=0Fori=1To　　　s=　　NextiPrint"S=";sEndSub2、程序界面如右图所示，在文本框Text1中输入一个十进制正整数，单击“转换”按钮command1后，对应的二进制数在标签label1中显示出来；之后命令按钮变为“再来一次”，又可再次进行转换。PrivateSubcommand1_click()DimnkAsStringDimnAsIntege

7、rDimkAsIntegerIfCommand1.Caption="转换"Thenn=Val(Text1.Text)DoWhilen<>0k=nMod2　　第6页nk=CStr(k)&nkLoopLabel1.Caption=　　Command1.Caption="再来一次"ElseLabel1.Caption=""Text1.Text=""Text1.SetFocusCommand1.Caption="转换"EndIfEndSubPrivateSubForm_Load()Command1.Caption="转换"EndSub五、阅

8、读程序写出运行结果（每小题5分，共10分）1、PrivateSubform_activate()Dima,b,cAsIntegera=15b=60c=38IfacThenm=cPrint"M="