高中信息技术【算法和程序设计】练习

《高中信息技术【算法和程序设计】练习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《算法与程序设计》练习（满分：100分）   说明：本卷分为第一卷和第二卷两部分。第一卷为客观题，含单选题和判断题，其中单选题30小题，共45分；判断题20小题，共20分。第二卷为操作题，共3题，第1题15分，第2题10分，第3题10分，共35分。一、单选题1、(1.5分)下面是4位同学为解决问题编写的程序，完全正确的是()。同学1：某同学从17岁开始栽了1棵树，以后每年都比前一年多栽1棵，他要栽够100棵树，最小得多少岁？程序如下：PrivateSubCommand1_Click()      DimAgeAsInteger,TreeAsInteger

2、       Do          Age=17          Age=Age+1          Tree=Tree+Age（Tree应该是树的累加数，这样合适吗？）        LoopUntilTree=100        PrintAge&“岁”EndSub同学2：计算S=1×2×3×4×5×6×7×8×9的值。程序如下：PrivateSubCommand1_Click()     DimSAsInteger      （S没有初始值，默认为0）Fora=1To10（终值设置错误）          S=S*a      Nexta 

3、     Print“S=”&SEndSub同学3：求解方程ax+b=0。程序如下：PrivateSubCommand1_Click()     DimAAsSingle,BAsSingle     InputBox("A=")（从键盘得到的数据赋给谁了？）     InputBox("B=")     X=-B/A     PrintXEndSub同学4：计算S=1+(1+2)+(1+2+3)+…+(1+2+3+…+100)的值。程序如下:PrivateSubCommand1_Click()     DimiAsInteger,TAsLong,SAsL

4、ong     S=0:T=0      Fori=1to100             T=T+i（T的值为：1＋2＋3＋……n）              S=S+T      NextI       Print"S=";SEndSub    A、同学1   B、同学2    C、同学3    D、同学4  2、(1.5分)下面的4个VB程序段能使变量a、b、c的值全部相同的是()。程序一：a=1:b=2:c=3a=bb=cc=a程序二：a=1:b=2:c=3c=ac=bc=c程序三：a=1:b=2:c=3c=ab=c程序四：a=1:b=2:c=3c

5、=a=b    A、程序一    B、程序二    C、程序三    D、程序四  3、(1.5分)如果要改变窗体的标题，则需要设置的属性是()    A、Caption    B、名称    C、Font    D、Visible   4、(1.5分)已知数组D的1到N号元素已经赋入常数值，下面4个程序段都把这N个常数值输出，其中不能保证输出的数据是由小到大的程序段是哪个？()。程序一：fori=1ton-1 Min=D（i）:M=i forj=i+1ton   ifD(j)＜MinthenMin=D(j):M=j Nextj k=D(i):D(i)=

6、Min:D(M)=kNextIfori=1toN printD（i）;Nexti程序二：Fori=1Ton-1 Forj=nToi+1Step-1   Ifd(j)＜d(j-1)ThenM=d(j):d(j)=d(j-1):d(j-1)=M NextjNextifori=1toN printD(i);Nexti程序三：fori=1ton-1 forj=i+1ton  ifD(j)＜D(i)thenM=D(j):D(j)=D(i):D(i)=M NextjNextifori=1toN printD(i);Nexti程序四：Fori=1Ton-1 Forj=

7、i+1Ton   Ifd(j)＜d(j-1)ThenM=d(j):d(j)=d(j-1):d(j-1)=M NextjNextifori=1toN printD(i);NextiA、程序一    B、程序二    C、程序三    D、程序四 （调试程序时请将下列代码加在源代码的前面Dimd(5)AsIntegerFori=1To5d(i)=InputBox("D("&i&")=")NextN=5）5、(1.5分)以下程序运行后输出的结果是()。PrivateSubCommand1_Click()　a=71*72　P=10000a+1（“”为取整运算

8、）　Fori=P*aTo11111Stepa　　c=i100Mod10　　If