Private Sub Form_Load()
n = 15108097
k = n Mod 10000
T = n Mod 100
'
X1 = -k
Y1 = k
X2 = k / 2
Y2 = -0.3 * k
'
X1 = T
Y1 = k
X2 = k / 2
Y2 = -0.3 * k
'
X1 = 0.07 * k
Y1 = k
z1 = 0.02 * k
X2 = 0
Y2 = -0.0002 * k
z2 = -0.005 * k
'
D2 = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
D3 = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2 + (z1 - z2) ^ 2)
MsgBox D2
MsgBox D3
End Sub