在窗体中添加一个命令按钮Command1和一个文本框Text1，编写如下代码： Private Sub Command1_Click() Dim x As Integer，y As Integer，z As Integer a=5，b=10，c=0 Me!Text1="" Call p1(a，b，c) Me! Text1=c End Sub Sub p1(x As Integer，y As Integer，z As Integer) z=x+y End Sub 程序运行后，文本框中应显示的内容为 1。