您好,欢迎访问三七文档
当前位置:首页 > 商业/管理/HR > 项目/工程管理 > 高三算法复习九(过程函数)
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
本文标题:高三算法复习九(过程函数)
链接地址:https://www.777doc.com/doc-1945222 .html