在窗体上画一个名称为Commandl的命令按钮和2个名称分别为Textl、Text2的文本框，然后编写如下程序： Function Fun(X As Integer，ByValy As Integer)As Integer x=X+Y If x<0 Then Fun=x Else Fun=v End If End Function Private Sub Commandl Click() Dim a As Integer，b As Integer a=-10：b=5 Text1．Text=Fun(a,b) Text2．Text=Fun(a，b) End Sub 程序运行后，单击命令按钮，Textl和Text2文本框显示的内容分别是 1和 2。