在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； Private Sub Commandl_Click() Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text="" Call Pl(x，y，z) Text1. Text＝Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub