Function Fun(x As Integer, ByVal y As Integer) As Integer x=x+y If x<0 Then Fun=x Else Fun=y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=-10:b=5 Text1.Text=Fun(a,b) Text2.Text=Fun(a,h) End Sub 程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是 (11) 和 (12) 。