Manipulate[
(* B x A *)
a1=ToString[Table[h,{h,A,Aend}]];
b1=ToString[Table[g,{g,B,Bend}]];
g2new=RegionPlot[RegionProduct[Point[Table[{i},{i,A,Aend}]],Point[Table[{j},{j,B,Bend}]]],BoundaryStyle->Directive[Red,PointSize[Large]],AspectRatio->Automatic,Frame->False,Axes->True,PlotRange->{{0,11},{0,11}},
PlotLabel->Style[ToString["A × B = "<>a1<>" × "<>b1 ],Bold],
AxesLabel->{Style["A",Bold],Style["B",Bold]}];
(* A x B *)
g1new=RegionPlot[RegionProduct[Point[Table[{i},{i,B,Bend}]],Point[Table[{j},{j,A,Aend}]]],BoundaryStyle->Directive[Red,PointSize[Large]],AspectRatio->Automatic,Frame->False,Axes->True,PlotRange->{{0,11},{0,11}},
PlotLabel->Style[ToString["B × A = "<>b1<>" × "<>a1 ],Bold],
AxesLabel->{Style["B",Bold],Style["A",Bold]}];
(*show*)
Show[
If[option==1,g2new,g1new], Graphics[{Red,
If[option==1,
Table[Tooltip[Point@{i,j},"("<>ToString[i]<>", "<>ToString[j]<>")"],{i,A,Aend},{j,B,Bend}],
Table[Tooltip[Point@{i,j},"("<>ToString[i]<>", "<>ToString[j]<>")"],{i,B,Bend},{j,A,Aend}]
]
}] 
]


,{A,1,5,1},{Aend,5,10,1},{{B,3},1,5,1},{Bend,5,10,1},{{option,1},{1->"A × B",2->"B × A"}},ControlPlacement->Left
]