标签：PublicSubp(ByRefx%，ByValy%)x=*xy=y+EndSubSubButton_Click(…)HandlesButton.ClickDima%，b%a=b=Callp(a，b)MsgBox(“a=”&a&”b=”&b)EndSubAa=b=Ba=b=Ca=b=Da=b=Ea=b=