在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，

然后编写如下程序：
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, B)End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【 】和【 】。

A.shangxueba.cn/images/ct_ctvbbz_ctvbbblankz2_00270(20094).jpg'
B.Text=Fun(a,B)Text2.Text=Fun(a,