在窗体上画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,

【参考答案】

-5 5
-5 , 5 解析：Fun函数的目的是修改参数x的值为x＋y，如果x＜0，则返回x，否则返回y。执行C......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)