mathematica如何在一个随机的球体上随机生成三个点?

Clear["Global`*"]
r = RandomReal[]
Show[Graphics3D[{Red,PointSize[0.02],
Point[Table[
With[{[Theta] = RandomReal[{0,[Pi]}],[Phi] =
RandomReal[{0,2 [Pi]}]},{r Sin[[Theta]] Cos[[Phi]],
r Sin[[Theta]] Sin[[Phi]],r Cos[[Theta]]}],{n,3}]]},
PlotRange -> r,Axes -> True],
ContourPlot3D[
x^2 + y^2 + z^2 == r^2,{x,-r,r},{y,-r,r},{z,-r,r},
Mesh -> None,ContourStyle -> Opacity[0.5]]]