'Die 3 Punkte
Dim x1 As Double = 1
Dim y1 As Double = 2
Dim x2 As Double = 4
Dim y2 As Double = 3
Dim x3 As Double = 5
Dim y3 As Double = 6
 
'Berechnen der Abstände (Dreieckseitenlängen)
Dim a As Double = Math.Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
Dim b As Double = Math.Sqrt((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
Dim c As Double = Math.Sqrt((x1 - x3) ^ 2 + (y1 - y3) ^ 2)
 
'Berechnen des halben Dreiecksumfangs
Dim s As Double = (a + b + c) / 2
 
'Berechnen des Kreisradius (Heronschen Formel)
Dim radius As Double = (a * b * c) / (4 * Math.Sqrt(s * (s - a) * (s - b) * (s _
  - c)))
 
'Berechnen der Koordinaten des Kreismittelpunkts:
Dim d As Double = 2 * (x1 * (y2 - y3) + x2 * (y3 - y1) + x3 * (y1 - y2))
Dim x As Double = ((x1 ^ 2 + y1 ^ 2) * (y2 - y3) + (x2 ^ 2 + y2 ^ 2) * (y3 - _
  y1) + (x3 ^ 2 + y3 ^ 2) * (y1 - y2)) / d
Dim y As Double = ((x1 ^ 2 + y1 ^ 2) * (x3 - x2) + (x2 ^ 2 + y2 ^ 2) * (x1 - _
x3) + (x3 ^ 2 + y3 ^ 2) * (x2 - x1)) / d
 
'Ausgabe Kreismittelpunkt und Radius
Console.WriteLine("Kreismittelpunkt: ({0}, {1})", x, y)
Console.WriteLine("Radius: {0}", radius)