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] 。