1、第 1 页 共 9 页2011 南平一中信息技术（算法与程序设计）综合题集第一部分：选择题1. 编写计算机程序解决问题的正确步骤是调试程序 分析问题 设计算法 编写程序A、 B、 C、 D、2. 下列叙述正确的是A、算法是求解某一个问题的方法和步骤 B、算法的每一步骤不需要确切的定义C、一个算法中至少有一个输入 D、算法的步骤可以是无穷的3. 下列叙述中，不正确的是A、算法执行的步骤是有限的 B、算法的每一步骤都含有一定的歧义性C、算法是求解某一个问题的方法和步骤 D、算法有一个或多个的输出4. 下列关于算法的叙述，正确的是A.解决一个问题的算法只有一种 B.有穷性是算法的基本特征之一C.可行
2、性不属于算法基本特征 D.算法对程序设计没有任何作用5. 下列不属于算法基本特征的是A.集成性 B.有穷性 C.确定性 D.可行性6. 下列关于自然语言的说法中，正确的是A.自然语言是描述算法的一种方式 B.自然语言就是流程图C.高级语言等同于自然语言 D.自然语言就是用机器语言编写的程序7. 下列选项中，不能用于描述算法的是A.流程图 B.伪代码 C.自然语言 D.机器语言8. 用流程图描述算法中表示“开始/结束”的图形符号是 A. B. C. D. 9. 在 Visual Basic 中，“a 大于 b 且 a 小于 c“ 的正确表达式是A、ab and bb or ab and aab1
3、0. 已知 a=4,b=5,c=6,下列表达式的值为“True“的是A、not bb or ac C、ab+c and ac or b #7/19/2009#C.#10/13/2009# #10/23/2009# D.#12/15/2008# I / 2 ThenS=S+I End IfNextPrint “10到200之间所有的奇数的和是：“; SEnd Sub13在 VB 代码窗口指定位置修改完善程序代码，实现计算 1 到 100 之间，所有能被 3 整除数的积。Private Sub Command1_Click()Dim I As IntegerDim S As DoubleS = 1
4、For I = 3 To 100 Step 3S=S*I NextPrint “计算1到100之间,所有能被3整除数的积：“; SEnd Sub14在 VB 代码窗口指定位置修改完善程序代码，实现计算 3 到 100 之间(包括 3)所有能被 3 整除的数的个数。 Private Sub Command1_Click()Dim I As IntegerDim S As IntegerS = 0For I = 3 To 100 Step 3 S=S+1 NextPrint “3到100之间(包括3)所有能被3整除的数的个数：“; S第 7 页 共 9 页End Sub第三部分：编程1.编写代码，
5、使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，判断a和b的积能否被3整除，若能，则在Text3文本框中输出“能“，否则在Text3文本框中输出：“不能“。a=val(text1.text)b=val(text2.text)if a*b mod 3=0 then text3.text=“能“else text3.text=“不能“end if2.编写代码，使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，判断a和b的大小，并把较大的数在Text3文本框中输出。a=val(text1.text)b=val(text2.text)if a b then t
6、ext3.text=aelsetext3.text=bend if3.编写代码，使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，如果a大于b，则在Text3文本框中输出a减去b的值，否则在text3文本框中输出b减去a的值。a=val(text1.text)b=val(text2.text)if a b then text3.text=a-belsetext3.text=b-aend if4.编写代码，使之能够实现如下功能： 在Text1输入整数a、Text2输入整数b，判断a的平方与b的平方之和是否比100大，若比100大，则在Text3文本框中输出”大于” ，否则在T
7、ext3文本框中输出：”小于或等于” 。 a=val(text1.text)b=val(text2.text)if a2+b2 100 then text3.text=”大于”elsetext3.text=”小于或等于”end if5.编写代码，使之能够实现如下功能： 已知小明有50元钱到商店买东西，在Text1、Text2分别输入单价a和数量b,判断小明的钱是否足够，如果够，则在Text3文本框中输出“足够“，否则在Text3文本框中输出“不够“。a=val(text1.text)b=val(text2.text)if a *b 5 and a+5b and b+5a then text3.
8、text=“能“elsetext3.text=“不能“end ifb=val(text2.text)if a -b 0 then text3.text=a/belsetext3.text=“除数为零“end if10编写代码使之能够实现如下功能：编程实现求下列分段函数的值。 x=val(text1.text)if x3 then text2.text=8elsetext2.text=3*xend if11编写代码使之能够实现如下功能： 求 35 以内与 24 匹配的勾股数。 例：在Text1输入小于35的正整数a、Text2输入小于35的正整数b，判断24 2+a2=b2。并在Text3文本框
9、中显示判断结果，即有等式成立则在Text3文本框中输出“成立“，否则输出“重试“。a=val(text1.text)b=val(text2.text)if 242+a2=b2 then text3.text=“成立“elsetext3.text=“重试“end if12编写代码，使之能够实现如下功能： 判断一元二次方程 ax2+bx+7=0 有无相等实根。若有相等实根,则输出此实根,否则输出“无“。 例：在Text1输入整数a、Text2输入整数b，如果b 2-4ac=0,则在Text3文本框中输出实根，否则在Text3文本框中输出“无“。a=val(text1.text)b=val(text2.text)if b2-48a*7=0 then text3.text=“有“elsetext3.text=“无“end if13编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 从text1文本框中输入一个数，判断能否被7整除，并在text2文本框中输出结果“能“或“不能“。a=val(text1.text)if a mod 7=0 then text2.text=“能“elsetext2.text=“不能“end if第 9 页 共 9 页
