在窗体上画1个名称为Commandl的命令按钮和2个名称分别为Text1、Text2的文本框，如下图所示，然后编写如下程序；

Function Fun(x As Integer,ByVhly As Inmgcr)As Integer
X=K+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Cornmandl_Click()
Dima As Integer,b As Integer
a=-10:b=5
Tcxt1,Text=Fun(a,b)
Text2,Text=Fun(a,b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是上 [14] 和 [15] 。