vb6中如何来调用function(函数)过程.docx.pdf
《vb6中如何来调用function(函数)过程.docx.pdf》由会员分享,可在线阅读,更多相关《vb6中如何来调用function(函数)过程.docx.pdf(6页珍藏版)》请在三一文库上搜索。
1、1.首先我们启动Vb界面,新建工程界面点击上方工具栏工程项目,然后 在工程项目栏点击添加模块项目如图 -licrosoft Visual Basic 设计 2.添加模块后得到加载模块窗口如图 皱?& 肯iyi 工程d)格式(Q)调试Q)运行? 査询Q!)国表CD工具C ? 囹电答決 fabl U 3 ta 0 na ? . ? 1 zl 口 mertl 厂不再显示这个对话框 (U) 5.接下来呢在过程名称命名为fmax “,类型为函数 , 范围是公有的如图 4. 3.双击模块图标 , 得到工程1程序编辑窗口如图 然后再上方工具栏,选取“ 工具添加 过程如图所示 添加过程 范围 a 公有的(B)
2、| r私有的 &) r所育本地变量为静态变量(X) 6.单击确走之后我们先输入它的参数,让后定义ABC ,如果ab成立则t为 两个 数当中的最大数,否则B为两个数当中最大数如图 Else t = b If t b Then famx = t Else famx = c End If End Function 7.最后编写完程序后,运行程序。如图 ora) ulel (Code) 名称on二 类型 _ 子程序OS) fh4X 确定I a 函数(F) r 雇性a) r爭件住 ) 取消 Public Function fmax (a As b As Int? cer/ c As Integer) D
3、im t As Integer If a b Then X jQtdiO Private Sub Commandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim max As Integer b = 2 c = 3 max = fmax(ar b, c) Print max Print fmax End Sub B ABXa“f?r ? AB Xat? b Then t = a Else t = b If t b Then fmax = t Else fmax = c End If End If End Function Ml) SB MW IfttnK) MOD S9(D UUD 烫Kl 7ml Crs) F? B? E P r H ?o 21 5b ? B ? ? o ffi 、 羁 Q dl “ ?4 Tn: Mol Cede anf U Xa? cw 八 2 xj S4? l? l Ble -2 *?M ? V?* tto ? EMM
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb6 何来 调用 function 函数 过程 docx
链接地址:https://www.31doc.com/p-5616409.html