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