Das Ziegenproblem:

in einer spielshow haben sie die wahl zwischen drei toren. hinter einem der tore ist ein auto, hinter den anderen sind ziegen. sie wählen ein tor, sagen wir, tor nummer 1, und der showmaster, der weiß, was hinter den toren ist, öffnet ein anderes tor, sagen wir, nummer 3, hinter dem eine ziege steht. er fragt sie nun: "möchten sie das tor wechseln?" ist es von vorteil, die wahl des tores zu ändern, wenn vorausgesetzt wird, dass der moderator nie das tor öffnet welches sie zuerst gewählt hatten oder hinter dem das auto  steht.

unser vba programm haben wir jetzt soweit ausgearbeitet:

Sub Ziege_1()

Dim Ein_1 As Integer ' Gewählte Tür

Dim tauto As Integer ' Da ist der Gewinn

Dim tmod As Integer  ' Moderator öffnet

Dim wechsel As String

tauto = Int(3 * Rnd + 1)

MsgBox " Aufgabe Ziegenproblem"

tmod = 1

Ein_1 = InputBox(" Welche Tür wollen Sie auswählen?" & vbNewLine & "Türe 1 oder 2 oder 3?")

If Ein_1 = 1 And tauto = 2 Then tmod = 3

If Ein_1 = 1 And tauto = 3 Then tmod = 2

If Ein_1 = 2 And tauto = 1 Then tmod = 3

If Ein_1 = 2 And tauto = 3 Then tmod = 1

If Ein_1 = 3 And tauto = 1 Then tmod = 2

If Ein_1 = 3 And tauto = 2 Then tmod = 1

MsgBox "Sie haben Türe " & Ein_1 & " gewählt." & vbNewLine & _

"Moderator öffnet die Tür" & tmod

wechsel = InputBox(" Wollen Sie die Türe wechseln?")

If wechsel = "ja" Then

wechsel = InputBox(" Zu welcher Türe wollen Sie wechseln?")

Ein_1 = wechsel

End If

If Ein_1 = tauto Then

MsgBox (" Gewonnen !")

End If

If Ein_1 <> tauto Then

MsgBox ("Verloren!")

End Sub

unsere frage ist jetzt ob man am schluss bei der ausgabe von gewonnen oder verloren statt dessen bilder einfügen könnte zum beispiel statt gewonnen einen bmw und statt verloren eine ziege???!

danke schon mal...

lg