过程与自定义函数

第一节过程与自定义函数算法与程序设计（加试部分）第一课时基本思想：把复杂的程序分解成简单的模块特点：可以被重复调用，强调的是动作模块化程序设计程序模块过程函数事件处理过程通用过程系统函数(int(),str(),val())自定义函数概念：对象上发生的事件所触发执行的程序模块基本格式：Sub事件处理过程名(参数表)语句块EndSub提前退出过程——Exitsub事件处理过程也称为子程序体或过程体格式：对象名_事件名常用对象有哪些？相应的常用事件有哪些？文本框:Text1_DbClick、Text1_Change、Text1_KeyPress按钮:Command1_Click标签:Label1_Click窗体:Form_Load(窗体装载)事件处理过程名小明编写了一个生成随机数的VB程序,当他一启动窗体时在列表框List1中就自动显示了随机数,则他编写的事件处理过程名为(

)A.List1_Click B.Form_Click C.Form_Load D.List1_Load完成书本P2的实例点拨某程序代码如下:

PrivateSubCommand1_Click()

DimxAsString,yAsInteger

x="123"

y=45

Text1.Text=Str(y)+x

EndSub下列说法不正确的是(

)A.这是一个事件处理过程代码,其中过程名为Command1_ClickB.在Command1_Click中,Click是鼠标单击事件C.在Command1_Click中,Command1是事件作用的对象D.该事件过程执行后,在文本框Text1中显示的内容为168下列VB程序的功能是:求出数列中的最大数和最小数,并在标签Label1中显示。PrivateSubCommand1_Click()

Dimd(1To10)AsInteger

DimiAsInteger,jAsInteger,kAsInteger,tempAsInteger,maxiAsInteger,MiniAsInteger′输入十个数据,并存储在数组d中

maxi=1

Mini=1

Fori=2To10

Ifd(maxi)<d(i)Then？？？

If？？？ThenMini=i

Nexti

Label1.Caption=“max=”+？？？+“min=”？？？EndSub为实现上述功能,则在程序？？？应填入的语句为

第二课时概念：根据需要，自己编写的程序模块，可以将函数的计算结果返回主程序里调用函数处基本格式：Function函数名(参数表)

As类型名语句块EndFunction自定义函数包含类似于“函数名=表达式”的语句包括声明和调用两部分程序分析方法：自顶向下——先分析主程序，再分析被调用的函数自定义函数下列VB程序的功能是:在文本框Text1中输入一个数,在标签Label1上显示该数的绝对值。Functionfx(xAsInteger)AsSingle

Ifx>0Then

fx=x

Else

fx=-x

EndIfEndFunctionPrivateSubCommand1_Click()

DimnAsSingle,yAsSingle

n=Val(Text1.Text)

Label1.Caption=Str(y)EndSub则程序中划线处应填入的正确语句是(

)A.fx(x) B.fx(n) C.y=fx(x) D.y=fx(n)完成书本P3的实例点拨DimpAsString,kAsStringFunctionf(sAsInteger)AsBooleanIfMid(p,s,1)=kThenf=TrueEndFunctionPrivateSubCommand1_Click()DimsAsInteger,resultAsString,flagAsBooleanresult=""p=Text_1.Textk=Text_2.TextFors=1T