u={2,3,2};
v={2,1,3};
w=u .v

r=u\[Cross]v

Show[
Graphics3D[{Red,Thick,Arrow[{{0,0,0},u}]},Axes->True,AxesLabel->{x,y,z},LabelStyle->Directive[Large],Background->White],
Graphics3D[{Blue,Thick,Arrow[{{0,0,0},v}]}],
Graphics3D[{Green,,Thick,Arrow[{{0,0,0},r}]}]
]