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

1高三算法复习九（过程函数）2015样卷1、程序运行界面如图所示。要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为（）A．Command1_ClickB．Text1_ClickC．Form_ClickD．Label2_Click【解析】所考知识点：事件处理过程。事件处理过程名的命名规则：对象名_事件的标准名，本题中在对象按钮Command1上激发事件Click（鼠标单击），VB中事件处理过程为Command1_Click。还有一些事件处理过程如Text1_Change（文本框内容变化）、Form_Load（窗体装载）等。5、下列VB程序模块用来判断年份y是否是闰年。回答以下两个问题Functionleap(yAsInteger)AsBooleanIfyMod100=0ThenIfyMod400=0Thenleap=TrueElseleap=FalseElseIfyMod4=0Thenleap=TrueElseleap=FalseEndIfEndFunction①．该函数的计算结果返回值的数据类型是（）A．整型B．实数型C．字符串型D．逻辑型②．调用该函数进行计算，以下程序段中空白处应填写的语句是（）PrivateSubCommand1_Click()DimnAsIntegern=Val(Text1.Text)IfThenText2.Text=是闰年ElseText2.Text=不是闰年EndIfEndSubA.leap(y)B.leap(n)C.yD.n210、自定义函数Fa用来返回输入参数的绝对值。则下划线处应该输入的是（）FunctionFa(XAsDouble)AsDoubleIfThenFa=-XElseFa=XEndIfEndFunctionA．X0B．X0C．X=0D．X011、下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是______。PrivateSubCommand1_Click()Dima(1To10)AsInteger,iAsInteger,sAsIntegera(1)=1:a(2)=1Fori=3To10a(i)=a(i-1)+a(i-2)NextiText1.Text=Str(a(10))EndSub12、随机产生100个1～100之间的整数，fun函数用来判定一个数的奇偶性。如果是奇数函数返回1，若是偶数便返回0，相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。程序中①划线处应填入___________________程序中②划线处应填入___________________Functionfun(mAsInteger)AsIntegerIfmMod2=1Thenfun=1Else①EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,s1AsInteger,s2AsInteger,xAsIntegers1=0:s2=0RandomizeFori=1To100x=Int(Rnd*100+1)If②Thens1=s1+1Else3s2=s2+1EndIfNextPrint偶数个数：;s1,奇数个数：;s2EndSub13、两质数的差为2，称此对质数为质数对，下列程序是找出100以内的质数对，并成对显示结果。其中，函数IsP判断参数m是否为质数。相应的程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。程序中①划线处应填入___________________程序中②划线处应填入___________________FunctionIsP(m)AsBooleanDimiAsInteger①Fori=2ToInt(Sqr(m))IfmModi=0ThenIsP=FalseNextiEndFunctionPrivateSubCommand1_Click()DimiAsIntegerp1=IsP(3)Fori=5To100Step2p2=IsP(i)Ifp1Andp2ThenPrinti-2,ip1=②NextiEndSub【嘉兴201609】VisualBasic程序段如下：Functionf(xAsSingle,yAsSingle)AsSingleIfxyAndy0Thenf=x^Abs(y)Elsef=x*Int(Sqr(y))EndFunctionPrivateSubCommand1_Click()DimaAsSingle,bAsSinglea=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=Str(f(a,b))EndSub该程序段运行后，文本框Text1、Text2分别输入3，2后，单击命令按钮Command1，文本框Text3中显示的是（）A．2B．3C．6D．9