高三算法复习九(过程函数)

《高三算法复习九(过程函数)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、高三算法复习九(过程函数)2015样卷1、程序运行界面如图所示。要求在文本框Textl中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为()A.Commandl_ClickB.Textl_ClickC.Form_ClickD.Label2_Click【解析】所考知识点：事件处理过程。事件处理过程名的命名规则：对象名—事件的标准名，本题屮在对象按钮Command1±激发事件Click(鼠标单击)，VB屮事件处理过程为Commandl_Clicko还

2、有一些事件处理过程如Textl_Change(文本框内容变化)、Form_Load(窗体装载)等。5、下列VB程序模块用来判断年份y是否是闰年。回答以下两个问题Functionleap(yAsInteger)AsBooleanIfyMod100=0ThenIfyMod400=0Thenleap=TrueElseleap=FalseElseIfyMod4=0Thenleap=TrueElseleap=FalseEndIfEndFunction①.该函数的计算结果返回值的数据类型是()A.整型B.实数型C.字符串型②•调用该

3、函数进行计算，以下程序段屮空白处应填写的语句是(PrivateSubCommandI_Click()DimnAsIntegerA.leap(y)n=Val(Textl.Text)C.yIfThenText2.Text=11是闰年”D.逻辑型)B.leap(n)D.nElseText2.Text=H不是闰年”EndIfEndSub10、自定义函数Fa用来返回输入参数的绝对值。则下划线处应该输入的是()FunctionFa(XAsDouble)AsDoubleIfThenFa=-XElseFa=XEndIfEndFuncti

4、onA.X<()B・X>0C.X=0D.XoO11、下列VB程序运行时，单击命令按钮Command1后,文本框Text!中显示的内容是PrivateSubCommandl_Click()Dima(lTo10)AsInteger,iAsInteger,sAsIntegera(l)=1:a(2)=1Fori=3To10a(i)=a(i-1)+a(i-2)NextiText1.Text=Str(a(10))EndSub12、随机产生100个1〜100之间的整数，fun函数用来判定一个数的奇偶性。如果是奇数函数返回1,若是偶数便

5、返回0,相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。程序中①划线处应填入程序屮②划线处应填入Functionfun(mAsInteger)AsIntegerIfmMod2=1Thenfun=1Else①EndIfEndFunctionPrivateSubCommandl_Click()DimiAsInteger,siAsInteger,s2AsIntegersAsIntegersi=0:s2=0RandomizeFori=1To100x=lnt(Rnd*100+1)If②Thensl=sl

6、+1Elses2=s2+1EndIfNextPrin「偶数个数:”;si,”奇数个数：“;s2EndSub13、两质数的差为2,称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m是否为质数。相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。程序屮①划线处应填入程序中②划线处应填入FunctionIsP(m)AsBooleanDimiAsInteger①Fori=2ToInt(Sqr(m))IfmModi=0ThenIsP=FalseNextiEndF

7、unctionPrivateSubCommandl_Click()DimiAsIntegerpl=IsP(3)Fori=5To100Step2p2=IsP(i)IfplAndp2ThenPrinti-2,ipl=②NextiEndSub【嘉兴201609]VisualBasic程序段如下：Functionf(xAsSingle,yAsSingle)AsSingleIfx>yAndy<0Thenf=xAAbs(y)Elsef=x*lnt(Sqr(y))EndFunctionPriva怕SubCommand1_Click()

8、DimaAsSingle,bAsSinglea=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=Str(f(a,b))EndSub该程序段运行后，文本框Text"!、Text2分别输入3,2后，单击命令按钮Commandl,文本框Text3中显示的是()A.2B.3C.6D.9