Dima%，b%，c%Subp(x%，y%)DimcAsIntegerx=xy=y+c=x+yEndSubSubp(x%，ByValy%)DimcAsIntegerx=*xy=y+c=x+yEndSubPrivateSubCommand_Click()a=b=c=Callp(a，b)Callp(a，b)Printa;b;cEndSubABCD