当前位置:首页 >> 其它课程 >> 信息技术

信息技术


晋元高级中学 2013 年高一信息科技寒假作业
第 1、2 天——算法基础
1. 若执行时依次输入 3、6,以下流程图描 述的算法执行结果是( )。 2. 以下流程图描述的算法执行结果是 ( )。

A.8 A.3,108 C.3,36 B.108,36 D.108,3

B.16

C.12

/>
D.24

3. 若执行时依次输入 8、9,以下流程图描 述的算法执行结果是( )。

4. 若执行时依次输入 12、34,以下流程图 描述的算法执行结果是( )。

5. 以下流程图执行结果是(

)。

6. 以下流程图的运行结果是(

)。

1

7. 以下流程图执行结果是(

)。

8. 以下流程图执行结果是(

)。

9. 下列流程图的功能是( )。 A.输入三个数,输出其中的最大数 B.输入三个数,输出其中的中间数 C.输入三个数,输出第一个数 D.输入三个数,输出其中的最小数

10. 以下流程图的功能是: 求输入的 10 个数 之和。图中 ________ 框有错(仅有一处错 误,填写编号“①、②、③”),此框应改为: _____________________。

11. 关于双重循环的表述错误的有( )。 ① 双重循环由两个单循环在程序中前后排列组成 ② 双重循环分成内循环和外循环,它们内外嵌套,不得交叉 ③ 双重循环的内循环部分实际上可以看成是外循环的循环体 A. 三个 B. 零个 C. 两个 D. 一个 12. 关于算法,以下表述错误的是( )。 A.算法就是指解决问题的方法和步骤 B.算法可用多种程序设计语言实现 C.算法就是计算方法 D.算法的每个步骤都必须是确定的,不能有二义性 13. 当型循环和直到型循环的区别是( )。
2

A.当型循环的循环体至少执行一次,直到型循环的循环体可能一次也不执行 B.当型循环的循环体可能一次也不执行,直到型循环的循环体至少执行一次 C.当型循环和直到型循环的循环体都至少执行一次 D.当型循环和直到型循环的循环体都有可能一次也不执行 14. 数组 d 中的数据存放情况如下表,以下关系表达式成立的是( )。 d[1] 10 d[2] 5 d[3] 21 d[4] 12 d[5] 15 d[6] 6 d[7] 3 d[8] 18

A.d[5]=d[2]*d[7] B.d[1]>d[3] - d[6] C.d[3*2]>d[4] D.d[6] + d[1]=d[7] 15. 学校需要购买一批单价为 280 元的课桌椅,共需 500 套,运费为总价的 1.5%,学校一共需要付款 多少元?完成该算法需要 5 个步骤,正确的顺序是( )。 ① 输出学校应付款项 YFK ② 计算总价 ZJ=DJ*N ③ 输入每套桌椅的单价 DJ 和购买数量 N ④ 计算应付款 YFK=ZJ + YF ⑤ 计算运费 YF=ZJ*0.015 A. ③④⑤②① B. ③⑤④②① C. ③②⑤④① D. ③②④⑤① 16. 设 a=4,b=9,下列表达式的运算结果中,值最大的是( )。 A.a Mod b B.Int(b/a) C.Sqr(b/a) D.b/a 17. 设字符型变量 a="123":b="456",那么 a+b 的值是( )。 A."123456" B.579 C."579" D."456123" 18. 表达式 Sqr(25) > 1 And 4 / 9 = int(4 / 9)的值是( )。

19. 若变量 a=5,b=8,则逻辑表示式: (a*b<10) and not (a=b) or (a+3=b)的值是(
20. 请将数学表达式 写成计算机程序设计语言表达式为____________________。 ) 个或多个输出。

)。

21. 算法就是指解决问题的具体方法和步骤。一般算法可以有( 22. 某超市促销香蕉: 香蕉促销价 购买量 w(千克) 单价(元/千克) 3 以下 3.5 3~6(含 3 千克) 3 6(含 6 千克)以上 2.6

以下是根据购买量 w 计算应付价格 price 的流程图。请将流程图中(1)、(2)处填写完整。

3

(1) ______________________ (2) ______________________

23. 以下流程图描述的算法功能是:通过键盘输入三个不相等的数 a、b、c,输出这三个数中的最小值。 请将流程图中①、②处填写完整(注:填写答案时用“=”代替“←”。 )

① ②

第 23 题图 第 24 题图 24. 以下流程图描述的的算法功能是:通过键盘连续输入 5 个正整数,输出它们的积。请将流程图中① 处填写完整(注:填写答案时用“=”代替“←”。 )



4

晋元高级中学 2013 年高一信息科技寒假作业
第 3、4 天——算法基础 1. 下列流程图的功能是:已知正方形边长为 2. 下列流程图的功能是(
A, 其中有一个内切圆, 圆内小圆的直径为 A/2。 执行流程图后,输出的 S 是( )。 A.圆环面积 B.阴影部分面积 C.内切圆面积 D.小圆面积 A.从大到小依次输出三个数 B.按中、小、大依次输出三个数 C.从小到大依次输出三个数 D.按中、大、小依次输出三个数 )。

3. 以下流程图的功能是(
A.求输入的 5 个数的积 B.求输入的 6 个数的积 C.统计输入数据的个数 D.求输入的 6 个数的最大值

)。

4. 以下流程图的功能是(

)。 A.输出[2,1000]中能被 3 整除的偶数 B.输出[2,1000]中能被 3 整除的奇数 C.输出[2,1000]中的偶数 D.输出[2,1000]中的奇数

5

5. 以下流程图的运行结果是
( )。

6. 输入 3, 以下流程图的运行结果是(

)。

7. 以下流程图的运行结果是
( ) 。

8. 输 入 15 , 以 下 流 程 图 的 运 行 结 果 是
( ) 。

9. 下面用自然语言描述的算法中包含的基本结构是(
① ② ③ ④ ⑤ ⑥ 输入两个正整数 m、n; r ← m 除以 n 的余数; m ← n; n ← r; 如果 r>0,那么转② 输出最大公约数 m。

)。

A.分支结构、循环结构 C.顺序结构、循环结构

B.顺序结构、分支结构、循环结构 D.顺序结构、分支结构
6

10. 输入直角坐标系中 A.B 亮点的坐标值(X1,Y1)(X2,Y2) 、 ,计算 A.B 两点间的距离。完成该算
法需要 4 个步骤,正确的顺序是( ①用公式计算 )。

L ? ( x 2 ? x1) 2 ? ( y 2 ? y1) 2

②输出两点间的距离 L ③输入 A 点的坐标值 X1、X2 ④输入 B 点的坐标值 Y1、Y2 A.④②①③ B.①③④② C.②③①④ D.④③①② )。 D.Int(x/y)=x/y

11. 若 x、y 都是正整数,且 x 能被 y 整除的逻辑表达式是(
A.x/y=0 B.Sqr(x\y)=x\y C.Int(x\y)=0

12. 在 R1、R2 并联电路中,总电阻计算公式是
A.R1R2/R1+R2 B.(R1R2)/(R1+R2)

R?

R1R2 R1 ? R2 ,计算 R 的表达式是(
D.R1*R2/(R1+R2)

)。

C.R1*R2/R1+R2 )。

13. 下列流程图属于循环结构的有(

A. ②④

B. ③④

C. ①④

D. ①③

14. 关于算法,以下表述正确的是(
A.算法就是程序设计 C.算法就是指解决问题的方法和步骤

)。 B.算法的某些步骤具有不确定性 D.求解某一类问题的算法是唯一的 )。

15. 设 a=3,b=5,c=4,下列表达式的运算结果中,值最小的是( A.a^2+b^2 - c^2 C.Int((a + b)/c) B.b – a*2+c D.b/c + 2*a
)。

16. 表达式 Abs(-10) + 21 Mod (18 / 6)的值是( 17. 请将数学表达式

写成计算机程序设计语言表达式_________。

7

18. 交换两个变量的值,请补全流程 19. 以下流程图的功能是:输入任意实数 x,求
图。 (1) ________________ (2) ________________ 1/(x-5)的绝对值 y,将流程图填写完整。 (1) ________________ (2) ________________

20. 以下流程图描述的功能是:从任 21. 2011 年初,某市人口总数为 100 万,假设人口
意输入的 5 个数中找最小的 1 个并输 出。请将流程图处填写完整。 (1) ________________ (2) ________________ 增长率为 0.5%,多少年后该市人口就会达到或超过 120 万?请将流程图填写完整。 (1) ________________ (2) ________________

8

晋元高级中学 2013 年高一信息科技寒假作业
第 5、6 天——算法基础

1. 请 将 数 学 表 达 式

? b ? b 2 ? 4ac 2a

写 成 计 算 机 程 序 设 计 语 言 表 达 式 为

______________________________________。 2. 若变量 a=4,b=1,则:not (a > -b) or (a - b = 3) and (a >= b)的值是( 3. 判断一个正整数 X 为偶数,以下关系表达式错误的是( A.X\2 = 0 B.Int(X/2) = X/2 )。 ) 。 D.X Mod 2 = 0 )。

C.X\2 = X/2

4. 关于变量的说法,错误的是(

A.变量是计算过程中存储要用到的数据的存储单元 B.数据存储到某个变量,当数据被读取后,变量中的数据就变为空 C.在算法执行过程中可以读取变量的值,也可以将数据存储到指定的变量中 D.对变量的赋值操作将改变该变量中原来的值。 5. 计算执行变量赋值:x ← y+2 的过程是( )。

A. 读取变量 y 的值 → 将运算结果写入变量 x → 将 y 的值加 2 B. 读取变量 y 的值 → 将 y 的值加 2 → 将运算结果写入变量 x C. 将 y 的值加 2 → 读取变量 x 的值 → 将运算结果写入变量 x D. 将 y 的值加 2 →将运算结果写入变量 x → 读取变量 y 的值 6. 下列给出的赋值语句中正确的是( A.4=M B.-M=M C.B=A-3 D.x+y=0 )。 C.Temp1st )。 C.2*y=y+y )。 D.X=X-X D.7Line )。

7. 以下哪个是合法的变量名( A.$Std B.Name#1

8. 下列给出的赋值语句中正确的是( A.a * x + b = 0 B.-M=M*M

9. 关于算法,以下表述错误的是( A.算法必须通过某种程序设计语言描述 B.算法必须在执行有限步骤后结束 C.算法不一定有输入 D.算法必须有输出 10. 关于双重循环的表述正确的有(

)。

①两个单循环在程序中前后排列,不能称之为双重循环 ② 双重循环分成内循环和外循环,它们内外嵌套,不得交叉 ③内循环的循环体被执行的总次数由内外循环的循环次数共同决定 A. 两个 B. 一个 C. 零个 D. 三个
9

11. 关于程序中使用的变量,下列叙述错误的是(

)。

A.将数据存入某一变量后,只要不存入新的数据,该变量保存的内容就不会改变 B.将数据存入某一变量后,可以多次读取该变量的数据值,不会改变变量的内容 C.将数据存入某一变量后,该变量将一直保存该数据,不能存入新数据 D.将数据存入某一变量后,如果再存入一个新的数据,则老的数据将被替换 12. 下列算法中错误的有( A.0 个 B.1 个 )。 C.2 个 D.3 个

开始 a=3 b=5

开始 输入a,b a>b T a=b F

开始 输入a,b a<b T a=a+b F F

开始 输入a,b c=a+b a<20 T 输出c 结束

输出a+b 结束

输出a 结束 结束


13. 该算法的功能是( A.求 s=1+2+4+?+2 B.求 s=2+4+?+2 D.求 s=2+4+?+2
n-1 n n-1


)。


14. 该算法的功能是( )。 A.求 1*2+2*3+3*4+??+19*20 B.求 1*2+2*3+3*4+??+18*19 C.求 1*2+2*3+3*4+??+20*21 D.求 2*3+3*4+4*5+??+19*20



C.求 s=1+2+4+?+2
n

15. 对于一个正整数 n,要判断它是奇数还是偶数,下列叙述错误的是( A. 若 n mod 2=0,则 n 是偶数。 B. 若 n mod 2=1,则 n 是奇数。
10

)。

C. 若 int(n/1)=n/1,则 n 是奇数。

D. 若 int(n/2)=n/2,则 n 是偶数。 )。

16. 已知 x 是一个三位正整数,要判断它的个位是否为 5,以下表述错误的有( ①如果 x mod 5=0 则 x 的个位为 5。 ②如果 x mod 10<>5 则 x 的个位不为 5。 ③如果 x/5=int(x/5)则 x 的个位为 5。 ④如果 x/5<>int(x/5)则 x 的个位不为 5。 A.零个 B.一个 C.两个 D.三个 )。

17. 以下流程图描述的算法有错,根据算法 的特征,错误的原因是( )。

18. 下列流程图的功能是(

A.该算法没有数据输入 B.该算法不符合有穷性特征 C.该算法没有输出步骤 D.该算法不符合确定性特征

A.输出三个数中的最大数 B.输出三个数中的中间数 C.输出三个数中的第一个数 D.输出三个数中的最小数

19. 以下流程图的功能是:输入 40 个数,求平均值。图中 ________ 框有错(仅有一处错误),此框应 改为:_____________________。 20. 以下流程图描述的算法功能是:求满足 3+6+9+??的和小于等于 200 时的最大项数。请将流程图 中①处填写完整(注:输入答案时,用“=”代替“←”。 ) ① 21. 一根 1 米长的绳子,每天剪去当天长度的 1/2,问经过多少天后,其长度小于 0.01 米。请将流程 图中的(1)、(2)处填写完整。 (1) ____________________________ (2) ____________________________

11

第 19 题图

第 20 题图

第 21 题图

22. 以 下 流 程 图 描 述 的 算 法 执 行 结 果 是 ( )。

23. 若执行时依次输入 12、21、11,执行结 果是( )。

24. 以下流程图是计算 S = 3 + 6 + 9 + ?? + 150 的算法,图中的 s = ___________。
开始 s=0:n=1 F

n<=50 T s=____________ n=n+1

Print s 结束

12

晋元高级中学 2013 年高一信息科技寒假作业
第 7、8 天——算法实例
一、单项选择题或填充题 1.使用枚举法解决问题,在列举问题的可能解的过程中( )。 A. 不能遗漏, 也不应重复 B. 可以遗漏, 但不应重复 C. 不能遗漏, 但可以重复 D. 可以遗漏, 也可以重复 2.下列问题适合用解析算法求解的是( );适合用枚举算法求解的是( );适合用查 找算法求解的是( );适合用排序算法求解的是( )。 A. 计算 10 个电阻并联的总电阻值 B. 统计 1000 以内各位数字之和是 15 的偶数的个数 C. 将全班 40 名学生根据身高从低到高排队 D. 在一批数据中寻找考试成绩为 95 分的同学 3.有 9 张卡片,上面分别写着自然数 1 至 9。从中取出 4 张,要使这 4 张卡片上的数字之和为 15。问有 多少种不同的取法,应选择的算法为( )。 A. 解析法 B. 枚举法 C. 查找法 D. 递推法 4.以下数组定义变量会产生错误的是( )。 A. Dim a4, a(4) B. Dim a4,a( 1 to 4) C. Dim a, a4 D. Dim a, a(4) 5.已知在 8 个大小相同的小球中,有一个是废品球,废品球的重量比正品球重量轻。现有一台无砝码 的天平称,试用二分查找算法,至少要称( )次才能找出废品球。 A.3 B.4 C.5 D.7 6.有一个物品的价格在 1 元到 1000 元之间的整数。你可以试猜,你试猜的每一次价格都会获得如下的 三个反馈信息之一:(1)小了,(2) 大了,(3)对了。问至多只需猜( A.10 次 B.20 次 C.30 次 7.AB 两地的电缆发生了故障,检修人员做了以下的检查工作: )次,就能说出正确价格? D.1000 次

① 取 AB 两端的中点 C ② 检查 AC 段,检查结果 AC 畅通 ③ 取 CB 两端的中点 D ④ 检查 CD 段 按照以上的方法,下一步的判断应该是( )。 A.如果 CD 段畅通,则故障在 DB,否则故障在 CD 段 B.如果 CD 段畅通,则故障在 DB,否则故障在 AC 段 C.如果 CD 段畅通,则故障在 AC,否则故障在 DB 段 D.如果 CD 段畅通,则故障在 AD,否则故障在 BD 段 8 以下问题的算法实现中,适合用解析算法的个数是( )。 ① 求两个电阻串联的等效电阻值; ② 已知数组 d 中已经存放了 20 个数,输出其中的最小数; ③ 输入直角三角形的两个边长值 a 和 b,求斜边的边长值 c; ④ 已知平面直角坐标系中两个点的坐标(x1,y1)、(x2,y2) 用两点部距离公式求其所围成的矩形面积 A.0 个 B.1 个 C.2 个 D.3 个 9 在数组 a[1]~a[10]中存放了以下数据:2,4,6,8,10,12,14,16,18,20,指定关键字为 12 时,对数组进行对分查找,找到该元素所花费的比较次数是( )。 A.2 B.3 C.4 D.6 10.2010 年上海世博会 6 月 9 日到 6 月 13 日五天的旅行团预约游客人数(单 位:万人次)存放在数组 d 中,如下表所示。现对这些数据进行降序排列, 若采用冒泡排序算法自下而上进行比较和交换,那么在第一遍的加工过程中, 数据的比较次数和交换次数依次为:( )。 A.4 3 B.3 2 C.4 4 D.3 3
13

11.将北京、天津、上海等 6 个城市某天的最高气温(单位:℃)存放在数组 a 中:

a[1] 35.4

a[2] 33.1

a[3] 34.6

a[4] 35.6

a[5] 35.3

a[6] 34.8

(1) 若按降序排列, 并采用冒泡排序算法自右向左进行比较和交换, 那么在第二轮的数据处理过程中, 数据的比较次数是( )。 A.4 B.2 C.3 D.5 (2) 经过第二轮的数据处理后,数组 a 的值是( )。 A. a[1] 35.6 B. a[1] 35.6 C. a[1] 35.6 D. a[1] 35.6 a[2] 35.4 a[3] 35.3 a[4] 34.8 a[5] 33.1 a[6] 34.6 a[2] 35.4 a[3] 35.3 a[4] 33.1 a[5] 34.6 a[6] 34.8 a[2] 35.4 a[3] 35.3 a[4] 34.8 a[5] 34.6 a[6] 33.1 a[2] 35.4 a[3] 33.1 a[4] 34.6 a[5] 35.3 a[6] 34.8

12.下表列出了存放在数组 d 中的 8 个学生身高(单位:厘米)的数据,若按升序排列,并采用冒泡排序 算法自左向右进行比较和交换,在第二轮数据比较和交换过程结束后,数组变量 d[5]的值应该为 ( ) d[1] 172 d[2] 168 d[3] 166 d[4] 159 d[5] 171 d[6] 185 d[7] 158 d[8] 161

13.数组 d 中的数据存放情况如下表: ①以下关系表达式成立的是( )。

A. d[8]=d[6]+d[2] B. d[8-3]=3 C. d[7]=d[8]-1 D. d[6]=3*d[2] ② 数据 d[d[4]]=___________。 ③ 要交换 d[1]与 d[6]两个变量值,其 VB 语句是: _______________________________________________________。 14. 数组 a 和数组 b 的数据存放情况如下表, b[a[5]-2]的值是________, 则 a[b[1]*6]的值是________。 a[1] 2 b[1] 1 二、算法与程序设计 15. 已知三角形的高 h 和底边长 a。 求三角形 面积。 (面积公式: S ? a[2] 5 b[2] 4 a[3] 4 b[3] 2 a[4] 1 b[4] 3 a[5] 6 数组 a b[5] 7 数组 b 16.计算分段函数: y ? ?2 * x ? 1 x ?? 0 ?
?1 ? 2 * x x?0

a[6] 3 b[6] 5

a[7] 8 b[7] 9

a[8] 7 B[8] 6

1 ah ) 2

h = InputBox(“”) a = __________________‘输入底边长 ____________________ ‘计算三角形面积

x = InputBox(“”) If _______ Then Print 1-2*x Else
14

____________________ ‘输出三角形 17.计算 10 个并联电阻的总阻值。 公式:1/Rs = 1/r1 + 1/r2 +??+ 1/r10 Rs = 0 For i = 1 To 10 r = InputBox(“请输入电阻值”) Rs = Rs + 1/r Next i Print _________

Print ________ End If 18. 打印输出斐波那契数列(Fibonacci)前 30 项。(1,1,2,3,5,8,13,?) Dim a(30) As Integer a(1) = 1 : a(2) = 1 For i = ____ To 30 a(i) = ________________ Next i ‘以下打印输出 For i = 1 To 30 Print _________ Next i 20.一个六位正整数 x 能同时被 157 和 233 整除, 且第一位和最后一位的数字恰好相同。 求出所有满足上述条件的六位正整数。 For x = _______ To ________ a = ______________ ’取出个位数 b = ______________ ’取出第一位数 If ___________________________ Then Print x End If Next x 22.以下流程图的运行结果是 。

19. 今有鸡兔同笼,一共有 73 只头,234 只 脚,问鸡兔各有几何?完成填空。 For x = _____ To _____ y = _______________ If ________________ Then Print x, y End If Next x

21.一个三位正整数,它的百位数小于十位 数,且十位数小于个位数,例如:123。试求 所有满足上述条件的三位正整数的个数。 t = 0 ’计数器 For n = _______ To ________ a = ______________ ’取出个位数 b = ______________ ’取出十位数 c = ______________ ’取出百位数 If ________________________ Then t = t + 1 End If Next n :Print t

23. 20 元和 50 元两种纸币组成 500 元,共 用 有几种组合方式?并列出所有不同的取法和 种数。 设:x 为 20 元的张数,y 为 50 元的张数, c = 0 ‘计数器 For x = ______ To ______ For y = ______ To ______ If__________________Then Print ________:c = _______

24.判断一个正整数是否为质数。 n = InputBox(“输入 n=”) Flag = 1 ‘设置标志 For i = 2 To n - 1 If ___________ Then Flag =______ : Exit For EndIf Next i If ___________ Then
15

EndIf Next y Next x Print ______

Print “是素数” Else Print “不是素数” End If

25.冒泡排序:在数组 d 中,已存放有 10 个同学的计算机考试成绩,请按成绩由高到低进行排序,并打 印显示结果。完成下面程序填空。 ?? n = 10 For i = 1 To n – 1 ‘n 个数要比较的遍数 For j = n To ________ Step -1 ‘每一遍要比较的数据个数 If________________ Then ‘前后相邻两数据比较大小 c = _______:d(j) = d(j - 1):_________= c ‘交换数据 End If Next j Next i For i = 1 To n :______________ :Next i ’打印输出 26.顺序查找:假设已有 n 个数据在 d 数组 中,key 为所查数据,p 为数据位置。程序 主代码: 完成下面程序填空。 Key=InputBox(“输入查找数据:”) i = 1 : p = 0 Do While ___________ If ________ Then ‘若找到 ________ ‘记录位置 End If __________ Loop Print p *本算法只查找第一个满足条件的数组元素 即停止查找。 27.对分查找:假设有 n 个数据在 d 数组中 已按升序排列。key 为所查数据,p 为数据 位置。程序主代码如下,完成填空。 Key = InputBox(“输入查找数据: ”) L = 1 : R = n : p = 0 Do While L <= R And p = 0 m = __________ ‘对分取中间值 If Key = d(m) Then ‘若找到 _______ ‘记录位置 Else If Key>d(m) Then ___________ ‘舍去前半部分 Else ___________ ‘舍去后半部分 End If End If
16

Loop: print p 28.编程:求 s=1+11+111+1111+??+1111111111 的和。 程序代码:

17

晋元高级中学 2013 年高一信息科技寒假作业
第 9、10 天——算法实例
一、单项选择题或填充题 1.将 40 个桃子分给甲、乙、丙三孩子,规定每个孩子最多可得到 15 个,找出所有不同分法的算法是: 采用列举方式,列举每个孩子所有可能得到的苹果数,对三人所得苹果数总和是否为 40 进行判断,找 出符合要求的各种分法,此算法属于( )。 A. 解析算法 B. 枚举算法 C.查找算法 D. 冒泡排序 2.右边流程图描述的算法是: 输出 1~2013 之间能被 137 整除 的数。该算法采用的是( )。 A.冒泡排序算法 B.枚举算法 C.顺序查找算法 D.解析算法 3.小明有面值为 5 角、8 角的邮票各两枚。他用这些邮票能 付多少种不同的邮资(寄信时,所需邮票的钱数) ,应选择的 算法为( )。 A. 解析法 B. 枚举法 C. 查找法 D. 递推法 4.在 VB 中要定义一个数组 a,用于存储 15 名运动员的成绩数 据 (精确到 0.01 米) 则正确的数组定义语句是( , )。 A. Dim a(1,15) As Integer B. Dim a(1 to 15) As single C. Dim a(1,15) As single D. Dim a(1 to 15) As Integer 5.已知有一台天平称,要称重 1 到 10 克重量的物质,问至少 需要( )个砝码? A.1 个 B.2 个 C.3 个 D.10 个 6.以下关于枚举算法的描述中正确的是( ) A.由于枚举算法具有较高的准确性和全面性,所以解决问题的效率高 B.由于计算机的运算速度快,所以在枚举对对解的个数可以不作限制 C.在枚举过程中要特别注意的问题是不能重复也不能遗漏 D.枚举算法通常不必用到循环结构 7.关于顺序查找和对分查找下列说法中不正确的是( ) A.顺序查找效率低,对分查找效率高 B.顺序查找数据可以是无序的 C.对分查找数据必须是有序的 D.顺序查找效率和对分查找效率是一样的 8.2012 年某市计算机能力考试五个考点的考生人数(单位:人)存放在数组 d 中,如下表所示。现对这些数据进行升序排列,若采用冒泡排序算法自下而上 进行比较和交换,那么在第一遍的加工过程中,数据的比较次数和交换次数依 次为:( )。 A.3 3 B.4 3 C.5 4 D.4 4 9.将六种水果的单价(单位:元)存放在数组 a 中,如下表示。 a[1] 6.5 a[2] 8.7 a[3] 16.4 a[4] 17.2 a[5] 4.1 a[6] 10.5

(1) 若按升序排列, 并采用冒泡排序算法自右向左进行比较和交换, 那么在第二轮的数据处理过程中, 数据的比较次数是( )。 A.2 B.4 C.3 D.5 (2) 经过第二轮的数据处理后,数组 a 的值是( ) 。
18

A. a[1] 4.1 B. a[1] 4.1 C. a[1] 4.1 D. a[1] 4.1 a[2] 6.5 a[3] 8.7 a[4] 16.4 a[5] 17.2 a[6] 10.5 a2] 6.5 a[3] 8.7 a[4] 10.5 a[5] 17.2 a[6] 16.4 a[2] 6.5 a[3] 8.7 a[4] 10.5 a[5] 16.4 a[6] 17.2 a[2] 6.5 a[3] 8.7 a[4] 17.2 a[5] 16.4 a[6] 10.5

10.下表列出了存放在数组 d 中的 5 个学生身高(单位:厘米)的数据,若按升序排列,并采用冒泡排序 算法自右向左进行比较和交换,在整个排序过程中 其数据比较的总次数最多不超过__________次。

d[1] 172

d[2] 168

d[3] 166

d[4] 159

d[5] 171

11.下表列出了存放在数组 d 中的 8 个学生身高(单位:厘米)的数据,若按升序排列,并采用冒泡排序 算法自右向左进行比较和交换,在第二轮数据比较和交换过程结束后,数组变量 d[2]的值应该为 __________。 d[1] 172 d[2] 168 d[3] 166 d[4] 159 d[5] 171 d[6] 185 d[7] 158 d[8] 161

12.以下流程图描述的功能是:从键盘输入 6 个数,依次存放到数组 a 中,再将其逆序输出。将流程图 中(1)、(2)处填写完整。 (1)________________ (2)________________ 13.若运行时分别输入-9、4、-34、89,以下流程图的运行结果是( ) 。 A.10 B.a[10] C.50 D.93

第 13 题 第 14 题 14. 数组 d 中的数据存放情况如下表,以下关系表达式成立的是( )。
19

d[1] 10 A.d[2*d[3]]<d[1] C.d[2+3]<d[4] 二、算法与程序设计

d[2] 5

d[3] 4

d[4] 12

d[5] 15

d[6] 6

d[7] 3

d[8] 1

B.d[2] + 5=d[2] + d[5] D.d[d[4] - d[2]]=d[1] + d[7] 16.三个连续的三位自然数,最小的数是 9 的倍数,中间的数是除以 11 余 2,最大的数 是除以 15 余 2,求这三个连续的自然数。 For n = _______ To ________ If ___________________________ Then Print _________________ End If Next n

15 已知梯形的上底 a,下底 b 和高 h.求梯形面

1 积。 (面积公式: S ? ( a ? b) h ) 2
h = InputBox(“”) a = __________________‘输入上底长 b = __________________‘输入下底长 ____________________ ‘计算梯形面积 ____________________ ‘输出梯形面积

17.以下列流程图描述的功能是:从任意输 18.一个三位正整数能被 7 整除, 且十位数等 入的 5 个数中找出最小的数。请将流程图填 于 5,例如:252。试求所有满足上述条件的 写完整。 (1)____________(2)____________。 三位正整数的和。 s = 0 ’计数器 For n = _______ To ___________ b = ______________ ’取出十位数 If _________________________ Then s=__________ End If Next n Print s

19.输入 10 个数到数组 a 中,打印输出最大 值,并指出最大值所处位置。 Dim a(10)‘以下输入数据 For i = 1 To 10: a(i) = InputBox(“”) Next i‘以下找最大值 Max = a(1) : t = 1 For i = _____ To 10 If __________ Then Max = a(i) : t = ______

20.从 1 至 8 这 8 个自然数中,每次取出两个 不同的数相加,要使它们的和大于 10.共有多 少种不同的取法? 设:这两个数分别为 x 和 y, c = 0 ‘计数器 For x = ______ To ______ For y = ______ To ______ If_________________________Then c = _______ EndIf
20

End If Next i Print Max , t 21. 判断一个正整数是否为质数。 n = InputBox(“输入 n=”) Flag = True i=2 Do While ___________ And (Flag =True) If ___________ Then Flag =______ i = i + 1 Loop If ________________ Then Print “是素数” Else Print “不是素数” EndIF

Next y Next x Print ______ 22. 一根长为 369CM 的钢筋截成长为 69CM 和 39CM 两种规格的短料,问在这两种规格至少 各截一根的前提下,给出一种截法,能使所 剩的余料最少。 设:长 69CM 为 x 根,长 39CM 为 y 根 Min = 369 ’最小余料设置初值 x0 = 0 : y0 = 0 ’截法记录设置初值 For x = 1 To __________ y = ______________________ r = ______________________ ’余料 If Min > r Then Min = ____ : x0 = ____ : y0 = ____ End If Next x Print x0 , y0 Print __________ ’输出最小余料

23. 25.在数组 d 中,已存放有 10 个同学的计算机考试成绩,请按成绩由低到高进行排序,并打印显示 结果。完成下面程序填空。 ?? n = 10 For i = 1 To ________ ‘n 个数要比较的遍数 For j = ______ To i + 1 Step -1 ‘每一遍要比较的数据个数 If________________ Then ‘前后相邻两数据比较大小 c = d(j):____________:_________= c ‘交换数据 End If Next j Next i For i = 1 To n ______________ Next i ’打印输出 26.顺序查找:假设已有 n 个数据在 d 数组 中,key 为所查数据,p 为数据位置。程序 主代码: 完成下面程序填空。 Key=InputBox(“输入查找数据:”) i = 1 : p = 0 Do While ___________ If ________ Then ‘若找到 ________ ‘记录位置 End If __________ Loop Print p *本算法只查找第一个满足条件的数组元素
21

即停止查找。 27.对分查找:假设有 n 个数据在 d 数组中 已按降序排列。key 为所查数据,p 为数据 位置。程序主代码如下,完成填空。 Key = InputBox(“输入查找数据: ”) L = 1 : R = n : p = 0 Do While ___________ m = __________ ‘对分取中间值 If Key = d(m) Then ‘若找到 _______ ‘记录位置 Else If Key>d(m) Then ___________ ‘舍去后半部分 Else ___________ ‘舍去前半部分 End If End If Loop: print p 28.数组 d 中,存放有已按降序排列的 10 个数,现要对这 10 个数按升序重新排列。请给出解决方案, 并用代码实现。 d[1] 90 d[2] 87 d[3] 81 d[4] 79 d[5] 77 d[6] 73 d[7] 70 d[8] 65 d[9] 62 d[10] 54

For i = 1 To ______ ________________________________________________ ________________________________________________ ________________________________________________ ________________________________________________ ________________________________________________ Next i

22

晋元高级中学 2013 年高一信息科技寒假作业
第 11、12 天——程序设计
1. 以下程序的运行结果是( x = 25 If x Mod 5 = 0 Then x = x + x Else x = x – x End If Print x 3. 以下程序的运行结果是( s = 0 i = 1 Do While i < 5 s = s + 2 * i i = i + 1 Loop Print s 5. 以下程序的运行结果是( s = 0 : t = 1 Do s = s + t t = t + 1 Loop Until t > 8 Print s )。 2. 以下程序的运行结果是( a = 5 b = 8 If a > b Then c = a – b Else c = b – a End If Print c 4. 以下程序的运行结果是( s = 0 For i = 1 To 10 Step 3 s = s + i Next i Print s )。

)。

)。

)。

6. 以下程序的运行结果是( s = 0 For k = 1 To 4 If 8 / k >= 3 Then s = s + 1 End If Next k Print s

)。

7. 运 行 以 下 程 序 段 以 后 , 变 量 y 的 值 为 ( )。 x = 15 If x > 10 Then y = x * 2 + 2 Else If x <= 5 Then y = x * 3 Else y = 4 – x End If

8. 以下程序代码中的赋值语句 s = s + 1 / i 共执行了( )次。 s = 0 For i = 5 To 20 Step 3 s = s + 1 / i Next i Print s

End If 9. 以下是用 VB 编写的程序段,运行以后,变量 a 和变量 b 的值分别为( )。 a = 5: b = 9: c = 0 a = a + b b = a + b c = a + b 10. 比较下面两段计算圆周长和面积的程序代码,如果圆周率π 的值需要精确到 3.14159265,哪段程 序修改起来更方便?为什么?
23

Dim r As Single Dim c As Single Dim s As Single r = InputBox(“请输入半径 r: ”) c = 2 * 3.14 * r s = 3.14 * r * r Print c, s

Dim r As Single Dim c As Single Dim s As Single Dim p As Single p = 3.14 r = InputBox(“请输入半径 r: ”) c = 2 * p * r s = p * r * r Print c, s

(a) (b) ______________________________________________________________________________________ ______________________________________________________________________________________ 11. 请在下列 9 条语句中选取 4 条拼接成一段完整的程序,实现上述功能。 (注意:每条语句最多使用一次;答题时只要将选取语句的标号按执行先后排列即可) 1.a=Val(InputBox(“请输入 a”)): b=Val(InputBox(“请输入 b”)) 2.r=1/x 3.x=1/r 4.x=1/a+1/b 5.r=(a+b)/a*b 6.r=a*b/a+b 7.x=(a+b)/a*b 8.x=a*b/(a+b) 9.Print r 选取的语句标号序列是____、____、____、____。 12. 任意输入 a,b,c 三个整数,输出其中的最大数。 在下列 9 条语句中选取 4 条拼接成一段完整的程序,实现上述功能。 (注意:每条语句最多使用一次;答题时只要将选取语句的标号按执行先后排列即可) 1.a = Val(InputBox(“请输入 a”)): b = Val(InputBox(“请输入 b”)): c = Val(InputBox(“请 输入 c”)) 2.If a > b Then Max = a Else Max = b 3.If b > c Then Max = b Else Max = c 4.Max = 0 5.If Max > c Then Max = c 6.If Max > b Then Max = b 7.If Max < b Then Max = b 8.If Max < c Then Max = c 9.Print Max 选取的语句标号序列是____、____、____、____。 13. 本程序要求完成的功能是:输入任意两个正整数 a,b,判断 a 能否被 b 整除,若 a 能被 b 整除, 则输出商的算术平方根, 否则输出余数的算术平方根。 (结果精确到 0.001)修改程序中仅有的一个错误。 程序源代码如下: Private Sub Command1_Click() a = Val(InputBox(“请输入 a 的值”)) b = Val(InputBox(“请输入 b 的值”)) ‘以上是输入 x 的值的正确代码,不必作修改 If Int(a / b) Then ‘(1) y = Sqr(Int(a / b)) ‘(2) Else ‘(3)
24

y = Sqr(a Mod b) ‘(4) End If ‘(5) ‘以下是输出语句的正确代码,也不必作修改 Print Int(y * 1000 + 0.5) / 1000 End Sub (1) 错误语句的编号是( ___ ) (2) 修改为__________________________________________________。 14. 本程序要求完成的功能是: 输入任意三个电阻的阻值, 输出电阻并联后的阻值(结果精确到 0.001)。 修改程序中仅有的一个错误。电阻并联的物理公式是:

1 1 1 1 ? ? ? r r1 r 2 r 3
程序源代码如下: Private Sub Command1_Click() r1 = Val(InputBox(“请输入第 1 个电阻的阻值”)) r2 = Val(InputBox(“请输入第 2 个电阻的阻值”)) r3 = Val(InputBox(“请输入第 3 个电阻的阻值”)) ‘以上是输入 x 的值的正确代码,不必作修改 r1 = 1 / r1 ‘(1) r2 = 1 / r2 ‘(2) r3 = 1 / r3 ‘(3) r = r1 + r2 + r3 ‘(4) ‘以下是输出语句的正确代码,也不必作修改 Print Int(r * 1000 + 0.5) / 1000 End Sub (1) 错误语句的编号是( ___ ) (2) 修改为__________________________________________________。 15. 三个连续的四位自然数,最小的数是 19 的倍数 ,中间的数是 23 的倍数,最大的数是 27 的倍数, 求这三个连续的自然数。 (1)设最小自然数为 x,满足上述条件计算机程序语言的关系表达式是( )。 A.x Mod 19 = 0 And x + 1 mod 23 = 0 And x + 2 Mod 27 = 0 B.x Mod 19 = 0 And (x + 1) mod 23 = 0 And (x + 2) Mod 27 = 0 C.Int(x/19) = 0 And Int(x+1/23) = 0 And Int(x+2/27) = 0 D.Int(x/19) = 0 And Int((x+1)/23) = 0 And Int((x+2)/27) = 0 (2) 编写 VB 程序,求这三个连续的自然数。

16. 一个六位正整数 x 能同时被 157 和 233 整除,且第一位和最后一位的数字恰好相同。 (1)判断 x 第一位和最后一位的数字是否相同,其计算机程序语言的关系表达式是( )。 A.Int(x / 100000) = x Mod 100 B.Int(x / 10) = x Mod 100000
25

C.Int(x / 100000) = x Mod 10 D.Int(x / 10000) = x Mod 10 (2) 编写 VB 程序,求满足上述条件的 x 的值。

17. 求 1 ?

1 1 1 ? ? ?? ? 的和(保留 2 位小数)。 3 5 97

(1) 某同学用自然语言描述了部分算法,请根据题意,将下列自然语言按执行顺序排列( )。 ① 判断是否是第 50/(30)项 ② 计数器、累加器等变量赋初值 ③ 若不满足条件(即:未累加到第 50/(30)项),累加本项的值,计数器增加 1 ④ 输出累加器的值 A.③②①④ B.①②③④ C.②③①④ D.②①③④ (2)第 N 项的计算机程序语言表达式是_______________________________________________。 (3) 试运用程序设计语言,求 1 ?

1 1 1 ? ? ?? ? 的和。 3 5 97

18. 1,4,5,16,25??,被称为完全平方数。试对所有小于 5000 的完全平方数求和。 (提示: 1=12,4=22,9=32,??) (1) 某同学用自然语言表述了部分算法, 请根据题意, 将下列自然语言按执行顺序排列_____________。 ①判断一个完全平方数是否小于 5000 ②累加器等变量赋初值 ③条件成立,将这个完全平方数累加到累加器 ④输出累加器的值 A.①②③④ B.③②①④ C.②①③④ D.②③①④ (2)假设:变量 S 累加各个完全平方数,变量 N 存放一个自然数(1,2,3??) 。根据题意,试用计算 机程序语言,表述 S 与 N 之间的关系,并将赋值语句填写完整。 S=____________________________________________________。 (3)试运用程序设计语言,对所有小于 5000 的完全平方数求和。

26

19. 程序功能:输入每个人的考试分数(均为整数) ,若输入负数,则停止输入,然后输出大家的平均 分。 操作要求:修改程序中的三个错误,使其能输出正确结果,结果要用带小数的形式表示。 程序源代码如下: Private Sub Command1_Click() Dim N1 As Integer, C1 As Integer, S1 As Integer, A1 As Integer ‘(1) Text1 = "" ‘(2) C1 = 1 ‘(3) S1 = 0 ‘(4) Do While True ‘(5) N1 = InputBox("输入一个整数:") ‘(6) If N < 0 Then Exit Do ‘(7) C1 = C1 + 1 ‘(8) S1 = S1 + N1 ‘(9) Loop ‘(10) A1 = S1 / C1 ‘(11) Text1 = A1 ‘(12) End Sub (1) 错误语句的编号是( ___ ),修改为__________________________________________________。 (2) 错误语句的编号是( ___ ),修改为__________________________________________________。 (3) 错误语句的编号是( ___ ),修改为__________________________________________________。 20. 程序功能:输入三条边长,判断能否构成一个三角形。 操作要求:在指定位置正确补写三个 IF 语句。 程序源代码如下: Private Sub Command1_Click() Dim A1 As Single, B1 As Single, C1 As Single A1 = InputBox("请输入 A 边边长:") Text1 = A1 B1 = InputBox("请输入 B 边边长:") Text1 = A1 & ", " & B1 C1 = InputBox("请输入 C 边边长:") Text1 = A1 & ", " & B1 & ", " & C1 '''补充一条 IF 语句 __________________________________________________ MsgBox "你输入的三条边不能构成三角形!" Exit Sub End If '''补充一条 IF 语句 __________________________________________________ MsgBox "你输入的三条边不能构成三角形!" Exit Sub End If '''补充一条 IF 语句 __________________________________________________ MsgBox "你输入的三条边不能构成三角形!" Exit Sub End If
27

MsgBox "你输入的三条边可以构成三角形!" Text1 = "" End Sub 21. 程序功能:输入三个整数,按从小到大顺序输出。 操作要求:将下面三个代码块正确写入下列程序中,使其能正常运行,并能实现上述功能。 ①比较 a 和 c 两个变量中的数字大小,如果 a 大于 c,则互换两者的数字。 '''If a > c Then '''Temp = a '''a = c '''c = Temp '''End If ②比较 a 和 b 两个变量中的数字大小,如果 a 大于 b,则互换两者的数字。 '''If a > b Then '''Temp = a '''a = b '''b = Temp '''End If ③比较 b 和 c 两个变量中的数字大小,如果 b 大于 c,则互换两者的数字。 '''If b > c Then '''Temp = b '''b = c '''c = Temp '''End If 程序源代码如下: Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = InputBox("输入第一个整数:") b = InputBox("输入第二个整数:") c = InputBox("输入第三个整数:") '''在下面插入三段代码

Text1 = a & " " & b & " " & c End Sub
28

晋元高级中学 2013 年高一信息科技寒假作业
第 13、14 天——程序设计
1. 以下程序的运行结果是( x = 25 If Int(x/5) = x/5 Then x = x + x Else x = x – x End If Print x 3. 以下程序的运行结果是( s = 0 i = 8 Do While i > 5 s = s + 2 * i i = i - 1 Loop Print s 5. 以下程序的运行结果是( s = 0 : t = 1 Do s = s * t t = t + 1 Loop Until t > 6 Print s )。 2. 以下程序的运行结果是( a = 8 b = 5 If a > b Then c = a – b Else c = b – a End If Print c 4. 以下程序的运行结果是( s = 0 For i = 1 To 10 Step 2 s = s + i Next i Print s )。

)。

)。

)。

6. 以下程序的运行结果是( s = 0 For i = 10 To 15 If i Mod 2 = 0 Then s = s + i End If Next i Print s

)。

7. 运 行 以 下 程 序 段 以 后 , 变 量 y 的 值 为 ( )。 x = 10 If x > 10 Then y = x * 2 + 2 Else If x <= 5 Then y = x * 3 Else y = 4 – x End If

8. 以下程序代码中的赋值语句 s = s + 1 / i 共执行了( )次。 s = 0 For i = 5 To 20 Step 2 s = s + 1 / i Next i Print s

End If 9. “一尺之棰,日取其半,万世不竭”是我国古书中最早体现微积分思想的一段记载。模拟此意的数 学表达式为:

s?

1 1 1 1 ? ? ??? n 2 2*2 2*2*2 2

请在下列 9 条语句中选取 7 条拼接成一段完整的程序,程序的功能是:求该数列前 10 项的和。 (注意:每条语句最多使用一次;答题时只要将选取语句的标号按执行先后排列即可)
29

1.s = 0: t = 1: i = 0 2.i=i+1 3.s=s+1/t 4.t=t*2 5.Do While i<10 6.For i=2 To 10 7.Next i 8.Loop 9.Print s 选取的语句标号序列是____、____、____、____、____、____、____。 10. 计算 s

? 12 ? 32 ? 52 ? ? ? 192

请在下列 9 条语句中选取 5 条拼接成一段完整的程序,实现上述功能。 (注意:每条语句最多使用一次;答题时只要将选取语句的标号按执行先后排列即可) 1.s = 0 2.s = s + i * i 3.i = i * 2 4.i = i + 2 5.For i = 1 To 20 Step 2 6.Next i 7.Do While i <= 10 8.Loop 9.Print s 选取的语句标号序列是____、____、____、____、____。 11. 任意输入 a,b 两个整数,判断 a 能否被 b 整除,并输出判断结果。 请在下列 9 条语句中选取 6 条拼接成一段完整的程序,实现上述功能。 (注意:每条语句最多使用一次;答题时只要将选取语句的标号按执行先后排列即可) 1.a = Val(InputBox(“请输入 a”)): b = Val(InputBox(“请输入 b”)) 2.If a Mod b <> 0 Then 3.If Int(a / b) = a / b Then 4.If a Mod b = a / b Then 5.If a Mod b = Int(a / b) Then 6.Else 7.End If 8.Print “a 不能被 b 整除!” 9.Print “a 能被 b 整除!” 选取的语句标号序列是____、____、____、____、____、____。 12. 本程序要求完成的功能是:输入任意一个圆的周长值,并根据该值输出该圆的面积值(结果精确到 0.001,x 取 3.14159)。修改程序中仅有的一个错误。 程序源代码如下: Private Sub Command1_Click() c = Val(InputBox(“请输入圆周长的值”)) ‘以上是输入圆周长值的正确代码,不必作修改 r = c / 2 * 3.14159 ‘(1) s = 3.14159 * r * r ‘(2) ‘以下是输出语句的正确代码,也不必作修改 Print Int(s * 1000 + 0.5) / 1000 End Sub (1) 错误语句的编号是( ___ ) (2) 修改为__________________________________________________。
30

13. 本程序要求完成的功能是:计算

s ? 1?

2 3 4 n ? ? ??? 1? 2 1? 2 ? 3 1? 2 ? 3 ? 4 1? 2 ? 3 ??? n

的值(结果精确到 0.001)。修改程序中仅有的一个错误。 程序源代码如下: Private Sub Command1_Click() n = Val(InputBox(“请输入 n 的值”)) ‘以上是输入 n 值的正确代码,不必作修改 s = 0: t = 1 ‘(1) For i = 1 To n ‘(2) t = t + i ‘(3) s = s + i / t ‘(4) Next i ‘(5) ‘以下是输出语句的正确代码,也不必作修改 Print Int(s * 1000 + 0.5) / 1000 End Sub (1) 错误语句的编号是( ___ ) (2) 修改为__________________________________________________。 14. 本程序要求完成的功能是:计算下列分段函数的值(结果精确到 0.001)。

? 3? x x ?? 0 ? ?2 ? 5 y?? ? 16 ? x x ? 0 ? 1? 7 ?
程序源代码如下: Private Sub Command1_Click() x = Val(InputBox(“请输入 x 的值”)) ‘以上是输入 x 的值的正确代码,不必作修改 If x < 0 Then ‘(1) y = Sqr(3 + x) / (2 – Sqr(5)) ‘(2) Else ‘(3) y = Sqr(16 - x) / (1 + Sqr(7)) ‘(4) End If ‘(5) ‘以下是输出语句的正确代码,也不必作修改 Print Int(y * 1000 + 0.5) / 1000 End Sub 修改程序中仅有的一个错误。 (1) 错误语句的编号是( ___ ) (2) 修改为__________________________________________________。 15. 一个六位正整数 x 能同时被 79 和 111 整除,且中间两位(即千位、百位)是 36。 (1)判断 x 中间两位数字是否为 36,其计算机程序语言的关系表达式是( )。 A.x Mod 10000=36 B.Int(x / 100) Mod 100 = 36 C.(x Mod 100) / 100=36
31

D.Int(x / 10000) = 36 (2) 编写 VB 程序,求满足上述条件的 x 的值。

16. 三个连续的三位自然数,最小的数是 7 的倍数 ,中间的数是 9 的倍数,最大的数是 11 的倍数,求 这三个连续的自然数。 (1)设最小自然数为 x,满足上述条件计算机程序语言的关系表达式是( )。 A.Int(x/7) = 0 And Int((x + 1)/9) = 0 And Int((x + 2)/11) = 0 B.x Mod 7 = 0 And x + 1 mod 9 = 0 And x + 2 Mod 11 = 0 C.Int(x / 7) = 0 And Int(x + 1 / 9) = 0 And Int(x + 2 / 11) = 0 D.x Mod 7 = 0 And (x + 1) mod 9 = 0 And (x + 2) Mod 11 = 0 (2) 编写 VB 程序,求这三个连续的自然数。

17. 三个连续的三位自然数, 最小的数是 9 的倍数 , 中间的数是除以 11 余 2, 最大的数是除以 15 余 2, 求这三个连续的自然数。 (1)设最小自然数为 x,满足上述条件计算机程序语言的关系表达式是( )。 A.x Mod 9 = 0 And x + 1 mod 11 = 2 And x + 2 Mod 15 = 2 B.x Mod 9 = 0 And (x + 1) mod 11 = 2 And (x + 2) Mod 15 = 2 C.Int(x / 9) = 0 And Int(x + 1 / 11) = 2 And (x + 2 / 15) = 2 D.Int(x / 9) = 0 And Int((x + 1)/11) = 2 And ((x + 2)/15) = 2 (2) 编写 VB 程序,求这三个连续的自然数。

32

18. 程序功能:解一元二次方程,输入三个系数,输出两个根,或报告无实数解。 操作要求:完整填写两行缺失的代码,使程序能够正常运行。 程序源代码如下: Private Sub Command1_Click() Dim a1 As Integer, b1 As Integer, c1 As Integer Dim X1 As Single, X2 As Single a1 = InputBox("输入二次项系数:") b1 = InputBox("输入一次项系数:") c1 = InputBox("输入常数项:") Text1 = a1 & "·X·X" & " + (" & b1 & "·X" & ") + (" & c1 & ") = 0" If b1 * b1 - 4 * a1 * c1 < 0 Then Text2 = "无实数解。" Else '''完整填写下面两行代码 X1 =________________________________________ X2 =________________________________________ Text2 = "X1 = " & X1 & " X2 = " & X2 End If End Sub 19. 程序功能:输入起始数讫止数,计算连续整数之和。 操作要求:在指定处补充输入代码块,使程序能够正常运行。 程序源代码如下: Private Sub Command1_Click() Dim M1 As Long, M2 As Long, M3 As Long M1 = InputBox("输入起始整数:") M2 = InputBox("输入讫止整数:") '''在此处输入代码块 ________________________________________ ________________________________________ ________________________________________ ________________________________________ ________________________________________ ________________________________________ Text1 = M3 End Sub 20. 程序功能:输入一个两位整数,将其个位和十位换位,例如,输入 12 换位为 21,输入 47 换位 为 74。
33

操作要求:将下面 4 行代码的部分或全部正确插入到 Private Sub Command1_Click() 代码中,使其能 正常运行。 ''''''Do While True ''''''A0 = InputBox("请输入一个两位整数") ''''''If A0 < 100 And A0 > 9 Then Exit Do ''''''Loop 程序源代码如下: Private Sub Command1_Click() Dim A0 As Integer, A1 As Integer, A2 As Integer, A3 As Integer A0 = 12 A1 = A0 Mod 10 A2 = A0 \ 10 A3 = A1 * 10 + A2 Text2 = A0 Text1 = A3 End Sub 程序代码: Private Sub Command1_Click()

End Sub

34


更多相关文档:

我眼中的信息技术

我眼中的信息技术_教学案例/设计_教学研究_教育专区。我眼中的信息技术现在是 21 世纪,信息技术的发展日新月异,它影响了我们生活的方方面面。 人们可以在计算机上...

信息技术概念

信息技术概念_互联网_IT/计算机_专业资料。第一章信息技术概念 1.1 信息与信息技术 (1)什么是信息? 信息是指事物运动的状态及状态变化的方式, 是认识主体所感知...

信息的基本特征及信息技术的概念

信息的基本特征及信息技术的概念_其它课程_高中教育_教育专区。第 2 课时 信息的基本特征及信息技术的概念、发展教学目标: 1、信息的基本特征 2、信息技术的概念 ...

信息技术的作用

信息技术作为信息加工与知识建构的工具,主要途径有以下几种: (1)利用专门的工具型教学软件:工具型教学软件不为教师提供具体的教学内容,而 是提供一个展示、处理某...

信息技术研修心得体会

信息技术研修心得体会_学习总结_总结/汇报_实用文档。信息技术研修心得体会愉快而又充实的培训时光弹指间就过去了。作为一名教师,能够参加这次 的中小学信息技术培训,...

高中信息技术学业水平考试试题汇总(含答案)

高中信息技术学业考试试题(必修部分) 主题一:信息技术与社会 (一)信息及其特征 1.现代社会中,人们把(B)称为构成世界的三大要素。 A.物质、能量、知识 C.财富...

怎样上好信息技术的第一节课

上好第一节课有以下几个目的: 1、激发学生对信息技术的兴趣。为了达成这一目的,我们要精心设计这节课的教学 内容上,要尽量地从学生感兴趣的话题着手,例如:让...

信息技术资料

信息技术资料_信息与通信_工程科技_专业资料。信息技术资料 第一部分 一、丰富多彩的信息 1.信息存在于我们的生活之中 报纸、电视、网络上的各种新闻事件。如:一...

信息技术改变着我们的生活

信息技术改变着我们的生活_计算机软件及应用_IT/计算机_专业资料 暂无评价|0人阅读|0次下载|举报文档 信息技术改变着我们的生活_计算机软件及应用_IT/计算机_专业...

信息技术应用计划

信息技术应用计划当今世界, 信息技术的发展正呈现出日新月异的变化, 信息技术 在教学中的运用越来越得到普及, 为了更好将信息技术与教学有机的 进行整合,充分发挥...
更多相关标签:
信息技术的发展 | 信息 | 什么是信息技术 | 中国科技信息 | 会员信息系统 | 通信与信息技术 | 信息技术学习平台 | 初中信息技术 |
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com