浙江省台州市2016_2017学年高一信息技术下学期第四次统练试题.doc

《浙江省台州市2016_2017学年高一信息技术下学期第四次统练试题.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、浙江省台州市2016-2017学年高一信息技术下学期第四次统练试题一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）1．下列问题不能用算法描述的是（）A．找出所有能被3整除的自然数B．输入身高体重，判断体型情况C．找出1000个整数中的最大值与最小值D．将（64）10转换为对应的二进制数2．在VB中，语句Text1.Text="无解"中的“Text”是（）A．对象名B．属性名C．属性值D．方法名3.下列VB表达式中，计算结果为3的是（）A．Abs(-3.2)B．Len("a_8")C．Sqr(3)+1D．Int(2.9

2、)4．VB中，能够正确表示代数式的是()A．x^3+1/abs(x)+sqr(x)B．(x^3+1)/abs(x)+sqr(x)C．x^3+1/(abs(x)+sqr(x))D．(x^3+1)/(abs(x)+sqr(x))5.执行如下VB程序段S=0Fori=20To1Step-5S=S+1NextiText1.text=str(s)文本框中显示的值是（）A．50B．20C．5D．46.某VB程序设计界面如第6题图所示，下列说法正确的是（）①第6题图-9-①工程文件是“工程1.vbp”②将text属性值删除，图中①处将不会显示“text1”③该窗体中共有3个对象④窗

3、体名称是“整除问题”A.①②B.②③C.①③D.②④第7题图7．某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是A．2，TrueB．3，TrueC．2，FalseD．3，Falsea←0,b←1,c←0a←a+1b←b*ac←c+ba≤3?YN第8题图8.某算法的部分流程图如第8题图所示，执行这部分流程后，变量a、b、c的值分别是()A．369B．469C．32433D．424339．有如下VisualBasic程序段：S=0：k=1Do　while　k<=4　If8/k>=3Thens=s＋k　k=k＋1Loop该程序段运行后，变量s和k的值

4、分别是（）A．3,3B．5,4C．3,5D．4，5第10题图10.计算器中乘方运算实际上是通过累乘的方法实现的。实现计算器上xy运算处理的算法部分流程图如第10题图所示，下列说法正确的是（）A．框图①中该填入的是f←x*jB．框图①中该填入的是f←f*j-9-C．j←j+1被执行了x次D．j←j+1被执行了y次11.【加试题】《孙子算经》中提出“物不知其数”第11题图6的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如第11题图所示，VB程序段如下：PrivateSubCommand1_Click()k=

5、0'用来计数Max=600'指定范围600以内n=9DoWhilen<=MaxLoopLabel1.Caption=Str(Max)&"范围内满足问题的数有"&Str(k)&"个"EndSub方框中的代码由以下五部分组成：①n=n+7②k=k+1③List1.AddItemStr(n)④EndIf⑤IfnMod3=2AndnMod5=3Then代码顺序正确的选项是（）A.⑤①②③④B.②⑤③①④C.⑤③②④①D.⑤①③④②-9-12.调试如下VB程序段，出现如第12题图所示的错误信息。第12题图Fori=1To10Ifa(i)>=0Thenn=n+1List1.Add

6、ItemStr(a(i))Elsem=m+1List2.AddItemStr(a(i))Next则该程序段出错的原因是缺少了（）A．NextB．iC．EndIfD．For二、非选择题（本大题共5小题，共26分）13.一个大于1的自然数，除了1和它本身外，不能被其他自然数整除的数称为质数又称素数，下列程序用来判断文本框text1中输入的数是否素数，请完善以下三处代码。DimiAsInteger,mAsInteger,flagasBooleanm=①flag=②Fori=2Toint(sqr(m))If③Thenflag=falseExitForEndifNextiIff

7、lag=trueThenText2.Text=str(m)+"是素数"ElseText2.Text=str(m)+"不是素数"Endif-9-14.对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下,请完善以下两处代码s=Text1.Textn=Len(s)'s是待判断的字符串k=0:j=nFori=1ton/2c1=Mid(s,i,1)c2=Mid(s,j,1)Ifc1<>c2Thenk=k+1:ExitForj=①NextiIf②ThenLabel1.Capt