vb6中如何来调用function(函数)过程.docx

1.首先我们启动Vb 界面，新建工程界面点击上方工具栏〃工程〃项目，然后

在工程项目栏点击〃添加模块〃项目如图

-licrosoft Visual Basic ［设计］

2.添加模块后得到加载模块窗口如图

皱・& ▼肯iyi

工程d ）格式（Q ）调试Q ）运行® 査询Q!）国表CD 工具C

■❺囹电答決

fabl

U ］

3 ta

na

• . •

±

1 zl

口

mertl

厂不再显示这个对话框

（U ）

5. 接下来呢在过程名称命名为〃 fmax “，类型为函数,范围是公有的如图

4. 3.双击’模块〃图标,得到工程1程序编辑窗口如图

然后再上方工具栏，选取"工具〃添加

'过程〃如图所示

添加过程

范围

a 公有的(B)| r 私有的&)

r 所育本地变量为静态变量(X )

6. 单击确走之后我们先输入它的参数，让后定义ABC ,如果a>b 成立则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«

c er / c As Integer)

Dim 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(a r b, c) Print max Print fmax End Sub

B A B Xa“f«r « A B Xat«

ZJ

Public Function fmax(a As Integer, b As Integer, c As Integer)

Dim t As Integer

If a > 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 烫K<^ ■•超

■

€ W*6|21 HtRi

A 0

a 心祁 •Fermi

(Code) »•*•«• SU V ・7.C1W ・• b At U

« Ai U<«

“I ・l Utl

F«r>l 7ml Crs)

F ・ B ・ E P r H «o 21 5b

・

B ・・

o ffi 、羁 Q dl "•4 Tn ： Mo^^l Cede

U Xa<«cw 八2

xj

S4«l ・l B^le

-2

*»M •・ V»*< tto ・

EMM