VBA - Saddam

[WernerL]

Hallo

ik zoek een oplossing voor volgend probleem
ik zal het uitleggen aan de hand van een schoon voorbeeld:

er is Saddam en hij heeft een onwillekeurig aantal personen voor zich
BV 5
1 van de 5 mag blijven leven, de andere niet dus doet hij het volgende:

1 dood
2 overslaan
3 dood
4 overslaan
5 dood
2 overslaan
4 blijft leven

dus resultaat bij een start van 5 personen in "4"

Hoe kan je in VBA iets maken zodat je via een knop in Access (waar je gewoon eerst het aantal personen moet ingeven) direct het resultaat krijgen?

Bedankt


Mijn eerste probeerselen ......
'saddam

Dim aantal_personen As Integer
Dim teller As Integer
Dim res As Long

For teller = 1 To invoer

aantal_personen = InputBox("Hoeveel personen zijn er?")
If aantal_personen = 0 Then
res = 0

Else
res = aantal_personen - ...........

End If

MsgBox res

End Sub

 

[Relleboer]

Beetje raar voorbeeld. Had je niks beters kunnen bedenken

 

[Guus2005]

Zulke stompzinnige problemen zijn niet oplosbaar in Access. Probeer het maar in GWBasic.

 

[WernerL]

Oplossing

Hey het gaat hem maar om een voorbeeld he
en dat het niet zo "stompzinnig" is bewijst dat het wel op te lossen is; hierbij de oplossing:

Dim levenden(10) As Integer
Dim overlevend As Integer
Dim teller As Integer
Dim stap As Integer
Dim maxstap As Integer

maxstap = 2
overlevend = 10
teller = 1
stap = maxstap

Do While overlevend > 1
If levenden(teller) = 0 And stap = maxstap Then
levenden(teller) = 1
stap = 1
overlevend = overlevend - 1
Else
If levenden(teller) = 0 And stap < maxstap Then
stap = stap + 1
End If
End If
teller = teller + 1
If teller > 10 Then
teller = 1
End If
Loop
teller = 1
Do While levenden(teller) = 1
teller = teller + 1
Loop
MsgBox teller

 

[Guus2005]

als je het antwoord weet waarom vraag je het dan? je bent trouwens een gosub vergeten