高中信息技术《算法与程序设计》练习

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

1、word完美格式《算法与程序设计》练习（满分：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,TreeAsInteg

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

3、      Nexta      Print“S=”&SEndSub同学3：求解方程ax+b=0。程序如下：PrivateSubCommand1_Click()     DimAAsSingle,BAsSingle     InputBox("A=")（从键盘得到的数据赋给谁了？）     InputBox("B=")     X=-B/A     PrintXEndSub精心整理学习帮手word完美格式同学4：计算S=1+(1+2)+(1+2+3)+…+(1+2+3+…+100)的值。程序如下:PrivateSubCommand1_Click()     Dimi

4、AsInteger,TAsLong,SAsLong     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精心整理学习帮手word完美格式程序二：a=1:b=2:c=3c=ac=bc=c程序三：a

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

6、(j)＜MinthenMin=D(j):M=j Nextj k=D(i):D(i)=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)=精心整理学习帮手word完美格式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 Next

7、jNextifori=1toN printD(i);Nexti程序四：Fori=1Ton-1 Forj=i+1Ton   Ifd(j)＜d(j-1)ThenM=d(j):d(j)=d(j-1):d(j-1)=M Next精心整理学习帮手word完美格式jNextifori=1toN printD(i);NextiA、程序一    B、程序二    C、程序三    D、程序四 （调试程序时请将下列代码加在源代码的前面Dimd(5)AsIntegerFori=1To5d(i)=InputBox("D("&i&")=")NextN=5）5、(1.5分)以下程序运行后