Public Class Form1
    Private WithEvents Btn As New Button With {.Text = "Start", .Parent = Me}
 
    Private Sub Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Btn.Click
        Dim rnd As New Random
        Dim werte() As Int32 = {0, 0, 1, 2, 3, 4, 5, 6, 5, 4, 3, 2, 1}
        Dim zahlen(12) As Int32
        For i As Int32 = 1 To 10 ^ 6
            zahlen(rnd.Next(1, 7) + rnd.Next(1, 7)) += 1
        Next
        Dim soll, ist, diff As Int32
        Dim s As String = "Zahl, Soll, Ist, Diff, Diff%" & Environment.NewLine
        For i As Int32 = 2 To 12
            soll = CInt(10 ^ 6 * werte(i) / 36)
            ist = zahlen(i)
            diff = Math.Abs(soll - ist)
            s &= i & " = " & soll & ", " & ist & "-> " & diff
            s &= ",-> " & diff * 100 / soll & " %" & Environment.NewLine
        Next
        MessageBox.Show(s)
    End Sub
End Class