习题_项目四函数

习题_项目四函数项目四习题一、单选题1.在自定义函数过程体内，至少对函数名赋______________值。A.一次B.两次C.三次D.四次2.自定义函数过程只能返回______________值。A.一个B.两个C.三个D.多个3.要重复使用的程序段且返回多个值时，应考虑选择用自定义______________。A.函数过程B.子过程C.循环D.数据类型4.从函数过程退出，并返回到主调过程，可使用语句____________。A.ExitSubB.EnterC.ExitFunctionD.Exit5.以下关于函数过程的叙述中，正确的是_____________。A.函数过程形参的类型与函数返回值得类型没有关系B.在函数过程中，函数过程的返回值可以有多个C.如果不指明函数过程的类型，则函数过程返回值就没有类型D.函数过程也可以没有返回值6.在窗体模块中自定义过程前加Private关键字，该过程可以在_____________中被调用。A．本窗体B．其他窗体C．该应用程序其他模块D．其他应用程序7.若有一个过程定义成PublicSubW1(ByValxAsInteger,ByRefAsInteger)，调用该过程的正确形式是____________。A.W1(x,3)B.CallW1(x,3)C.CallW1D.W1(3,x)8.用于声明窗体模块内各过程都能使用的变量的语句是____________。A.PublicB.PrivateC.DimD.Static二、多选题1.以下关于过程及过程参数的描述中，正确的是____________。A.过程的形参不可以是控件名称B.用数组作为过程的实参数时，应确定数组的大小C.只有函数过程能够将过程中处理的信息传回到调用的程序中D.文本框的内容不可以作为过程的实参2.在窗体模块中自定义过程前加Public关键字，该过程可以在_____________中被调用。A．本窗体B．其他窗体C．该应用程序其他模块D．其他应用程序3.下列是声明语句中可用的关键字_____________。A．ArrayB．StaticC．DimD．Private4.函数过程和子过程的参数传递方式有_____________。A．数组B．函数C．传值D．传址三、填空题1.在函数过程或子过程的定义中，将形参定义为传值方式，可保证实参的值_____________。‘不被改变2.在同一窗体的两个事件过程中用到变量x、y。变量x、y的声明语句应放在_____________。‘窗体模块声明段3.在所有窗体中都能调用的函数过程，应在声明时用关键字____________。‘public4.静态（Static）变量的特点是再次调用时____________。‘不被初始化5.调用子过程或函数过程时，实参的个数、____________、类型必须和形参一致。‘位置四、程序填空1.下面函数过程功能是求两数之和。请在空格中填写适当的内容。Functionaddsum(ByValxAsInteger,ByValyAsInteger)____________addsum＝x+yEndFunction2．下列是交换两个变量值的子过程。请在空格中填写适当的内容。Subswap(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=x____________x＝yy=tEndSub3.下列是求数组中最大元素的子过程，并在按钮的单击事件过程中调用该过程，将数组中最大数显示在标签框中。请在空格中填写适当的内容。PublicClassForm1SubAmax(ByRefx()AsInteger,ByValmaxAsInteger)DimiAsIntegermax=x(LBound(x))Fori=LBound(x)ToUBound(x)Ifx(i)maxThen_____(1)_______max＝x（i）NextiEndSubDimk(9)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsInteger,mAsIntegerFori=0To10k(i)=Int(Rnd()*100)Nexti_____(2)_______callamax（k，m）Label1.Text=”最大数为：”&CStr(m)EndSubEndClass4.下列程序中的变量x、y在窗体模块的两个按钮单击的事件过程中用到，请在适当的位置声明变量x、y。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clickx=InputBox(输入x的值)y=InputBox(输入y的值)Label1.Text=CStr(x+y)EndSubPrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel1.Text=CStr((x+y)/2)EndSub参考答案一、单选题1.A2.A3.B4.C5.A6.A7.D8.C二、多选题1.ABABC3.BCD4.CD三、填空题1.不被改变2.窗体模块声明段中3.ublic4.不被初始化5.位置四、程序填空1.addsum=x+y2.x=y3.(1)max=x(i)(2)CallAmax(k,m)4．在代码窗口的窗体模块声明段中声明：DimxAsInteger,yAsInteger