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
|