求VB的自定义函数的写法 我是自学的最好详细点

求VB的自定义函数的写法 我是自学的最好详细点

您好！VB应用程序采用了事件驱动的运行机制，程序执行后系统等待某个事件的发生，然后去执行此事件的事件过程。有时，多个事件过程要使用一段相同的程序代码，为了避免程序代码的重复编写，提高用户编写程序的效率，可以将实现某个特定功能的代码定义为一个独立的功能模块，供多个时间过程多次调用。这种独立的功能模块可以由系统事先定义，例如方法和内部函数；也可以由用户根据需要自己定义，称之为自定义过程（函数）。
自定义函数过程是以“Function”关键字开始的函数过程。
自定义函数过程的语法格式如下：
[Public|Private] [Static] Function 函数过程名 （[形参列表]) [As 类型]
实例：例如计算内圆和外圆之间的环形面积
Private Sub Command1_Click()
Dim r1!,r2!,s1!,s2! `分别表示内径、外径、内圆面积、外圆面积
r1=val(text1.text)
r2=val(text2.text)
s1=area(r1)
s2=area(r2)
label4.caption=format(s2-s1,"0.00) `以固定格式显示结果
End Sub
Private Function Area(r!) As Single `这里是楼主要看的重点啦 Area——自定义函数名，r!形参+形参类型
Dim s!
s=3.14*r*r
Area=s
End Function
0 0这样楼主大概明白了吧，不行再说，我再说详细一些。

只能用前面的方法,如果一定要用函数判断可以这样
dim i as integer
Private Sub Text1_GotFocus(Index As Integer)
i=index
End Sub
Private Sub Text1_LostFocus(Index As Integer)
i=-1
End Sub
Public Function changecolor(text As textbox) '自定义函数-得焦点变色，失焦点恢复
if text.index=i then
text.BackColor = vbred
else
text.BackColor = vbWhite
endif
End Function
changecolor (Text1(1))