2002 Math OSN, Number 2

For 180 to appear the no. shown above the dice has to be higher so the probability reduces as the sum increases so greater chance is to get 144 since even if we get lower digit it has greater probability

Private Sub CommandButton1_Click()

Dim a(6), b(6), c(6), d(6), e(6), f(6) As Double Dim prodotto As Double Dim conta As Double conta = 1

For i = 1 To 6
    For j = 1 To 6
        For y = 1 To 6
            For Z = 1 To 6
                   For h = 1 To 6
                           For k = 1 To 6

                            a(i) = i
                            b(j) = j
                            c(y) = y
                            d(Z) = Z
                            e(h) = h
                            f(k) = k

        prodotto = a(i) * b(j) * c(y) * d(Z) * e(h) * f(k)

        Cells(conta + 1, 1).Value = a(i)
        Cells(conta + 1, 2).Value = b(j)
        Cells(conta + 1, 3).Value = c(y)
        Cells(conta + 1, 4).Value = d(Z)
        Cells(conta + 1, 5).Value = e(h)
        Cells(conta + 1, 6).Value = f(k)
        Cells(conta + 1, 7).Value = prodotto
        Cells(conta + 1, 8).Value = conta

        conta = conta + 1
Next
    Next
        Next
            Next
                Next
                    Next

End Sub