本溪市2011年第二学期高中信息技术选修模块《算法与程序设计》期末试卷.doc

本溪市2011年第二学期高中信息技术选修模块算法与程序设计期末试卷考试时间：60分钟 满分：100分一、单项选择题（本大题10小题，每小题2分，共20分）1、小林同学想通过程序设计解决“韩信点兵”的问题，他制定的如下步骤，正确的是（ ）A、设计算法，编写程序，提出问题，运行程序，得到答案B、分析问题，编写程序，设计算法，调试程序，得到答案C、分析问题，设计算法，编写程序，调试程序，得到答案D、设计算法，提出问题，编写程序，运行程序，得到答案2、以下关于算法的描述，正确的是( )A、一个算法不允许有零个输入 B、一个算法只允许有一个输出 C、一个算法可以执行无穷个步骤 D、一个算法的每个步骤必须要确切地定义3、下列各种基本数据类型说明符中表示整数型的是（ ）A. Integer B. Boolean C. Single D. String4、VisualBasic工程文件的扩展名是（ ） A、.for B、.frm C、.vbp D、.bat5、 在VB中，要想单击“结束”按钮时结束程序，可在该按钮的（ ）事件过程中输入代码EndA、Change B、KeyPress C、DblClick D、Click6、下列常量说明中，符合语法的是（ ）A、CONST color As red B、CONST const=10*5C、CONST PI As Single=3.14 D、CONST color=abcd7、下列选项中函数Mid(yesterday, 7, 3)的返回值是（ ）A、yes B、ter C、day D、ds8、下列选项中函数Len（VB的学习）返回值的是（ ）A、7 B、5 C、9 D、119、字符串 ABCD 和字符串 DCBA 进行比较，如果让比较的结果为真，应选用关系运算符（ ）A、 B、=10、以下程序中的循环体执行的次数是( ) Private Sub Command1_Click() For A=1 To 100 Step 2 S=S+A Next A Print S End Sub A、48 B、49 C、50 D、51 二、判断题（本大题10小题，每小题2分，共20分。在题后的括号中填“”或“”）1、一个算法可以用多种程序设计语言来实现（ ）2、字符串型数据是指用 括起来的一串字符（ ）3、MsgBox函数返回值的类型为数值（ ）4、控件是应用程序的基本元素，与窗体共同构成应用程序的界面（ ）5、在VB程序中，若有下面的程序片断，则其中print语句的作用是输出一个空行（ ）Print 6、在面向对象的程序设计中，对象是有着特殊数据(属性)与操作(行为)的实体（ ）7、若a=10，b=20，执行a=b : b=a后，则a=20，b=10（ ）8、面向对象程序设计的优点主要表现在可以用于解决软件复杂性控制和提高软件生产力( )9、当我们编写好程序后想调试运行程序，可以在VB可视化环境中选择“运行”菜单下的“启动”命令或按F6键( )10、穷举法的思路是，列举出所有可能的情况，逐个判断有哪些是符合问题所要求的条件从而得到问题的解答( )三、看图填空：下图是VB的标准工具箱，请在横线上写出对应的控件名称（每空2.5分，共10分） 四、完善程序（每个空5分，共20分）1、计算1+1/2+1/3+1/50的值。Private Sub Command1_Click()Dim I as IntegerDim s As Doubles = 0For i = 1 To s = Next iPrint S=; sEnd Sub2、程序界面如右图所示，在文本框Text1中输入一个十进制正整数，单击“转换”按钮command1后，对应的二进制数在标签label1中显示出来；之后命令按钮变为“再来一次”，又可再次进行转换。Private Sub command1_click() Dim nk As String Dim n As Integer Dim k As Integer If Command1.Caption = 转换 Then n = Val(Text1.Text) Do While n 0 k = n Mod 2 nk = CStr(k) & nk Loop Label1.Caption = Command1.Caption = 再来一次 Else Label1.Caption = Text1.Text = Text1.SetFocus Command1.Caption = 转换 End IfEnd SubPrivate Sub Form_Load()Command1.Caption = 转换End Sub五、阅读程序写出运行结果（每小题5分，共10分）1、 Private Sub form_activate()Dim a, b, c As Integera = 15b = 60c = 38If a c Then m = cPrint M=; mEnd Sub运行结果 2、 Private Sub form_activate()Dim i, s As Integers = 0For i = 2 To 6s = s + 1Next iPrint S=; sEnd Sub运行结果 六、程序设计（共20分）陈雷每年的生日正好是3月12日植树节。他在15岁时栽了5颗树并且他打算今后每年都比前一年多