1 / 27
文档名称:

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

格式:doc   大小:94KB   页数:27页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

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

上传人:aluyuw1 2019/8/26 文件大小:94 KB

下载得到文件列表

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

文档介绍

文档介绍:高中信息技术《算法与程序设计》练****算法与程序设计》练****满分:100分)   说明:本卷分为第一卷和第二卷两部分。第一卷为客观题,含单选题和判断题,其中单选题30小题,共45分;判断题20小题,共20分。第二卷为操作题,共3题,第1题15分,第2题10分,第3题10分,共35分。一、单选题1、()下面是4位同学为解决问题编写的程序,完全正确的是()。同学1:某同学从17岁开始栽了1棵树,以后每年都比前一年多栽1棵,他要栽够100棵树,最小得多少岁?程序如下:mand1_Click()      DimAgeAsInteger,TreeAsInteger       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的值。程序如下:mand1_Click()     DimSAsInteger      (S没有初始值,默认为0)Fora=1To10(终值设置错误)          S=S*a      Nexta      Print“S=”&SEndSub同学3:求解方程ax+b=0。程序如下:mand1_Click()     DimAAsSingle,BAsSingle     InputBox("A=")(从键盘得到的数据赋给谁了?)     InputBox("B=")     X=-B/A     PrintXEndSub同学4:计算S=1+(1+2)+(1+2+3)+…+(1+2+3+…+100)的值。程序如下:mand1_Click()     DimiAsInteger,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、()下面的4个VB程序段能使变量a、b、c的值全部相同的是()。程序一:a=1:b=2:c=3a==a程序二:a=1:b=2:c=3c=ac=bc=c程序三:a=1:b=2:c=3c=ab=c程序四:a=1:b=2:c=3c=a=b    A、程序一    B、程序二    C、程序三    D、程序四  3、()如果要改变窗体的标题,则需要设置的属性是()    A、Caption    B、名称    C、Font    D、Visible   4、()已知数组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)=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=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、()以下程序运行后输出的结果是()。mand1_Click() a=71*72 P=10000\a+1(“\”为取整运算) Fori=P*aTo11111Stepa c=i\100Mod10 Ifc=2ThenPrintI; NextiEndSub    A、10224    B、10224 56232