DimxAsLong,yAsLong,zAsLongx=11y=22Print"x和y的值"Print"x=";x,"y=";yPrintPrint"x和y的值互相交换后各自的值"z=xx=yy=zPrint"x=";x,"y=";y