Private Sub form_Click()
Randomize '启动随机数发生器
n = 0
For i = 1 To 1000000 ' 试验次数
b1 = 360 * Rnd '产生三个 1 至 360 之间的随机数
b2 = 360 * Rnd
b3 = 360 * Rnd
If b1 <= b2 And b1 <= b3 And b2 <= b3 Then a1 = b2 - b1: a2 = b2 - b3
If b1 <= b3 And b1 <= b2 And b3 <= b2 Then a1 = b3 - b1: a2 = b3 - b2
If b2 <= b1 And b2 <= b3 And b1 <= b3 Then a1 = b1 - b2: a2 = b1 - b3
If b2 <= b3 And b2 <= b1 And b3 <= b1 Then a1 = b3 - b2: a2 = b3 - b1
If b3 <= b1 And b3 <= b2 And b1 <= b2 Then a1 = b1 - b3: a2 = b1 - b2
If b3 <= b2 And b3 <= b1 And b2 <= b1 Then a1 = b2 - b3: a2 = b2 - b1
If a1 <= 180 And -a2 <= 180 And a1 + (-a2) <= 180 Then n = n + 1 '三个点同在半圆内的情况一
If a1 >= 180 And -a2 >= 180 And (360 - a1) + (360 + a2) <= 180 Then n = n + 1 '三个点同在半圆内的情况二
If a1 >= 180 And -a2 <= 180 Then n = n + 1 '三个点同在半圆内的情况三
If a1 <= 180 And -a2 >= 180 Then n = n + 1 '三个点同在半圆内的情况四
Next i
Print "s="; n / (i - 1)
End Sub