vb6中如何来调用function(函数)过程.docx_第1页
vb6中如何来调用function(函数)过程.docx_第2页
vb6中如何来调用function(函数)过程.docx_第3页
vb6中如何来调用function(函数)过程.docx_第4页
vb6中如何来调用function(函数)过程.docx_第5页
已阅读5页，还剩5页未读， 继续免费阅读

下载本文档

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

文档简介

1、1.首先我们启动Vb界面，新建工程界面点击上方工具栏工程项目，然后 在工程项目栏点击添加模块项目如图工程d）格式（Q）调试Q）运行？查询Q!）国表CD工具C皱？&，肯iyi，曜>? .囹在爸决2.添加模块后得到加载模块窗口如图板块打开9）眼清阳助00厂不再显示这个对话框（U）3.双击模块图标，得到工程1程序编辑窗口如图4 .然后再上方工具栏，选取“工具添加 过程如图所示5 .接下来呢在过程名称命名为fmax :类型为函数，范围是公有的如图名称on二襁确定I6.类型子程序os）r雇性a>）a函数（F）r串件住）范围a公有的（B）| r私有的&）r所育本地变量为静态变量

2、（X）取消单击确走之后我们先输入它的参数，让后定义 ABC ,如果a>b成立则t为 两个数当中的最大数，否则B为两个数当中最大数如图Public Function fmax (a Asb As Int? cer/ c As Integer)Dim t As Integer If a > b ThenElse t = bIf t > b Then famx = t Else famx = c End IfEnd Function7.最后编写完程序后,运行程序。如图X jQtdiOB Ab Xa "f?r ? Ab Xat? <w ? At WywPrivate

3、Sub Commandl_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim max As Integer b = 2c = 3max = fmax(a r b, c)Print maxPrint fmaxEnd SubPublic Function fmax(a As Integer, b As Integer, c As Integer)Dim t As IntegerIf a > b Thent = aElset = bIf t > b Thenfmax = tElsefmax = cEnd IfEnd IfEnd FunctionMl)SBMW IfttnK) MOD S9 (D UUD 烫 K<A ？超F? B? E P r h ?o 21? W*6|21 HtRiP b C ,a .心祁?Fermi(Code)?*? SU V?7.C1W? ? b At U<M? ? Ai U<?<w ? ? M I? Q? E*?M ? V?*< tto ?EMM?4 Tn : Moaa| Cede<anfU Xa&l

人人文库> 全部分类> 应用文书 > 作业报告

温馨提示

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

最新文档

评论

0/150

提交评论