能够讲讲如何制作的吗
包括程序方面，我看了下不是很明白
'A港
Range("F3").Value = FormatPercent(1 - (1 - a(1)) * (1 - a(2)) * (1 - a(3)))
Range("F4").Value = FormatNumber((1 - (1 - a(1)) * (1 - a(2)) * (1 - a(3))) * 6 - 4, 2, -1)
'B港
Range("G3").Value = FormatPercent((1 - a(1)) * a(2) * a(3) + (1 - a(2)) * a(1) * a(3) + (1 - a(3)) * a(1) * a(2) + a(1) * a(2) * a(3))
Range("G4").Value = FormatNumber(((1 - a(1)) * a(2) * a(3) + (1 - a(2)) * a(1) * a(3) + (1 - a(3)) * a(1) * a(2) + a(1) * a(2) * a(3)) * 8 - 3, 2, -1)
'C港
Range("H3").Value = FormatPercent(a(1) * a(2) * a(3))
Range("H4").Value = FormatNumber(a(1) * a(2) * a(3) * 15 - 2, 2, -1)
'A修
Range("I3").Value = FormatPercent(1 - a(1) * a(2) * a(3))
Range("I4").Value = FormatNumber((1 - a(1) * a(2) * a(3)) * 6 - 4, 2, -1)
'B修
Range("J3").Value = FormatPercent((1 - a(1)) * (1 - a(2)) * a(3) + (1 - a(2)) * (1 - a(3)) * a(1) + (1 - a(3)) * (1 - a(1)) * a(2) + (1 - a(1)) * (1 - a(2)) * (1 - a(3)))
Range("J4").Value = FormatNumber(((1 - a(1)) * (1 - a(2)) * a(3) + (1 - a(2)) * (1 - a(3)) * a(1) + (1 - a(3)) * (1 - a(1)) * a(2) + (1 - a(1)) * (1 - a(2)) * (1 - a(3))) * 8 - 3, 2, -1)
'C修
Range("K3").Value = FormatPercent((1 - a(1)) * (1 - a(2)) * (1 - a(3)))
Range("K4").Value = FormatNumber((1 - a(1)) * (1 - a(2)) * (1 - a(3)) * 15 - 2, 2, -1)
'海盗
Range("L3").Value = FormatPercent(1 - (1 - rob2(Range("B2").Value)) * (1 - rob2(Range("C2").Value)) * (1 - rob2(Range("D2").Value)))
