算法与程序设计复习卷1

高一信息技术算法与程序设计复习卷(一)班级学号姓名.一、选择题（本题有16小题，每小题4分，共64分。选出各题中一个符合题意的正确选项，不选、多选、错选均不给分。）1、表示某展馆是否允许参观者持票进入的算法如下：①totalcount=0'馆内人数用变量totalcount表示，并将初值赋为0②Whiletotalcount<=5000③读入持票情况④If持票Then变量totalcount增加1打开入口放行EndIf⑤EndWhile对于上述算法，下列说法正确的是【】(A)允许进入展馆的人数最多是5000(B)将代码“EndIf”与“打开入口放行”互换位置是可行的(C)将代码“变量totalcount增加1”与“打开入口放行”(D)算法是用自然语言来描述的2、下图是VisualBasic设计环境中的部分控件工具箱。若要将某工程的程序运行结果显示在标签上，则在窗体中必须要有的控件工具是【】(A)①(B)②(C)③(D)④3、下列属于VB窗体文件的是【】(A)large.exe(B)large.vbp

(C)large.frm

(D)large.mdb4、下列属于VB逻辑常量的是【】(A)"True"

(B)1/2(C)False(D)255

5、在VB中表达式Abs（-10）+Len（“10”）的值是(A)0

(B)12

(C)20

(D)101010、在VisualBasic中，语句Class.Caption=“高一（1）班”中的“Caption”是【】(A)对象名(B)属性名(C)属性值(D)类名14、某商场对顾客购买货物的货款满500元，减价30%，不足500元不予优惠。用算法计算某顾客实付金额的算法流程是【】

(A)顺序模式(B)选择模式(C)循环模式(D)树型模式6、某VisualBasic程序的代码窗口如下图所示：为了实现“在文本框(Text1)中输入一个数据，并按下回车键后，该数据即被存储到数组a中”的功能，图中应选择的驱动文本框（Text1）对象的事件是【】

(A)1

(B)2

(C)3

(D)48、有如下VisualBasic程序段：Sum=0n=0t=1Fori=1To100Sum=Sum+t/nn=n+1t=-tNexti调试时出现如图示的错误提示，产生此错误的语句是【】

(A)sum=0(B)sum=sum+t/n(C)n=n+1(D)t=-t9、在VisualBasic中，将流水线上随机抽取的40件产品的重量（单位：克，精确到0.1）用一维数组w存储，其说明语句是：“Dimw(1To40)As”，则填入划线处最适合的数据类型是【】(A)Single(B)Integer(C)Boolean(D)Date

11、将写成VisualBasic表达式，正确的是【】(A)x/Sqr(3)+3*x(B)x/(Sqr(3)+3x)(C)x/Sqr(3)/3*x(D)x/(Sqr(3)+3*x)13、与程序段：a=a+bb=a-ba=a-b功能相同的程序段是【】(A)a=b(B)a=a+bb=aa=a-bb=a-b(C)t=a(D)IFa>bTHENa=ba=bb=tELSEb=aENDIF16、下面左、右框内的VB程序段均能实现相同的功能，则左框内程序划线处的正确代码是【】

Ifint1>int2ThenIfint1>int3ThenIfint1>int2ThenIfint1>int3ThenMax=int1ElseMax=int3EndIfElseIfint2>int3ThenMax=int2ElseMax=int3EndIfEndIfMax=int1IfMax<int2ThenMax=int2EndIfIfThenMax=int3EndIf(A)Max>int2(B)Max<int2(C)Max>int3(D)Max<int3三、程序设计题（本题有6小题，第1－4小题，每小题3分，第5-6小题，每小题6分，共24分）1、有如下VisualBasic程序段：a=“Command1b=Mid(a,4,2)c=Len(b)+Sqr(4)该程序段运行后，变量c的值为___________。2、有如下VisualBasic程序段：a=Asc(“A”)b=a+3c=Chr(b)该程序段运行后，变量c的值为_________。3、有如下VisualBasic程序段：x=0Fori=1To20If(iMod2=0)And(iMod3=0)Thenx=x+iEndIfNextiLabel1.Caption=Str(x)该程序段运行后，在标签Label1上显示的是____________。4、有如下VisualBasic程序段：s=0i=DoWhilei<=7s=s+ii=i+2Loop该程序段运行后，s的值为16，则划线处填入___________。6、最大圆面积计算。在一矩形铁皮中，裁剪出面积最大的一个圆形材料，求该圆形材料的面积。程序运行界面如右图所示。在文本框Text1和文本框Text2中分别输入矩形铁皮的宽和高，单击“计算”按钮（Command1），的文本框Text3中输出最大圆面积。解决上述问题的VisualBasic程序如下：PrivateSubCommand1_Click()DimwAsSingle,hAsSingle,rAsSingle,sAsSinglew=Val(Text1.Text)h=Val(Text2.Text)Ifw<=0Orh<=0ThenText3.Text=“