PublicSubp(ByRefx%，ByValy%)x=*xy=y+EndSubSubButton_Click(…)HandlesButton.ClickDima%，b%a=b=Callp(a，b)MsgBox(“a=”&a&”b=”&b)EndSub