VB自定义函数.ppt_第1页
VB自定义函数.ppt_第2页
VB自定义函数.ppt_第3页
VB自定义函数.ppt_第4页
VB自定义函数.ppt_第5页
已阅读5页，还剩2页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、,VB自定义函数,函数过程体 Private|Public Static Function () As = Exit Function = End Function,函数过程体,3) 函数过程名 函数过程名的命名规则与变量名相同，长度不超过40个字符，同样，一个过程名只能有唯一的名字在同一模块中，同一名称不能既作Function函数过程名又作Sub过程名。As 指定Function过程返回值的类型，可以是Integer，Long，Single，Double，Currency，String或Boolean。如果没有As子句，缺省的类型为Variant。,VB自定义函数,4) 语句系列 是函数的过

2、程体，语句系列中可以用一个或多个Exit Function语句从函数中退出。 5) 形参表 6) 表达式 表达式的值是函数返回的结果。在程序中，通过赋值语句将值赋给函数名，该值就是Function过程返回的值。如果在Function过程中省略了“=”，则该过程返回一个默认值：数值函数过程返回0，字符串函数过程返回空字符串。因此，为了能使一个Function过程完成所指定的操作，通常要在过程中为函数赋值。,VB自定义函数,弧度转角度自定义函数,Function hudu (n As Double) 弧度化角度函数 Dim a As Double Dim b As Double Dim c As

3、Double a = Int(n * 180 / pi) b = Int(n * 180 / pi - a) * 60) c = Int(n * 180 / pi - a) * 60 - b) * 60) hudu = a & 度 & b & 分 & c & 秒 返回值 End Function,函数名“hudu”,参数列表,调用角度互化函数,Private Sub Command1_Click() dim angel as double Dim radian as double radian=inputbox(“输入弧度值”，“输入”) Angel=hudu(radian) ?angel End sub,VB自定义过程,Private Sub Form_Click() Dim A As Single, B As Single此处还可以这样调用Recarea A,B A = Val(InputBox(请输入矩形长度?) B = Val(InputBox(请输入矩形宽度?) Call Recarea(A, B） End Sub Sub Recarea(Rlen As Single, Rwid As Single) Dim Area As S

人人文库> 全部分类> 应用文书 > 技术指导

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论