《浙江高中信息技术VB自定义过程和函数ppt课件.ppt》由会员分享，可在线阅读，更多相关《浙江高中信息技术VB自定义过程和函数ppt课件.ppt（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VB自定义过程和自定义函数自定义过程和自定义函数经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用n自定义过程经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用VB内部内部过程（系程（系统提供）提供）Private Sub Command1_Click()Dim x As Integer,i As IntegerFor i=1 To 5 x=x+iNext iText1.Text=Str(x)End Sub过程过程过程名过程名Sub代表
2、过程代表过程经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用自定自定义过程程调用自定用自定义过程程 CallPrivate Sub Command1_Click()Dim a As Integer,b As Integera=1:b=9Call jh(a,b)Text1.Text=Str(a)End SubSub jh(x As Integer,y As Integer)Dim t As Integert=xx=yy=tEnd Subjh(a,b)jh(x As Integer,y As Integer)调用时a
3、和x，就是同一个存储单元，x发生改变，a就好发生改变。变量b和y也同理。经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用自定自定义过程程调用自定用自定义过程程Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integera=1:b=9:c=-5 Call jh(a,b)Call jh(a,c)Text1.Text=Str(a)End SubSub jh(x As Integer,y As Integer)Dim t As Integer
4、t=xx=yy=tEnd Sub经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用n自定义过程经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用自定自定义函数格式函数格式Function 函数名(参数表)As 类型名 函数名=表达式End Function 函数体部分实现计算得到一个结果，赋值给函数名！函数体部分实现计算得到一个结果，赋值给函数名！函数内部至少有一个形如函数内部至少有一个形如“函数名函数名=表达式表达式”的语句的语句经营
5、者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用VB内部函数（系内部函数（系统函数）函数）Private Sub Command2_Click()Dim x As Integerx=-9y=Abs(x)Text1.Text=Str(y)End SubAbs系统函数系统函数Str系统函数系统函数函数有函数有返回值返回值，要赋值给某个变量，要赋值给某个变量经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用自定自定义过程程调用函数用函数Priv
6、ate Sub Command1_Click()Dim x As Integer,y As Integerx=-8y=myabs(x)Text1.Text=Str(y)End SubFunction myabs(a As Integer)As Integer If a=0 And ch=9 Then fact=fact+1 _Next iEnd Function经营者提供商品或者服务有欺诈行为的，应当按照消费者的要求增加赔偿其受到的损失，增加赔偿的金额为消费者购买商品的价款或接受服务的费用单击按按钮后后标签上上显示的内容是多少？示的内容是多少？Private Sub Command1_Click()Dim s As StringDim n As Integer,m As Integers=Text1.Textn=myct(s,a)m=myct(s,d)Label1.Caption=Str(n+m)End SubFunction myct(x As String,c As String)As IntegerDim i As Integer,ans As Integerans=0For i=1 To Len(x)If Mid(x,i,1)=c Then ans=ans+1Next imyct=ansEnd Function