Tableau VBA

[julou]

bonjour !!

J'ai bientôt examen d'informatique et je relis des examens d'années antérieures, mais je bloc sur un exercice:

Sub Afficher()

Dim Table(10) As Integer
For n = 1 To 10
Table(n + 1) = n
Next n

For i = 2 To 10
Table(i) = Table(i) * 2
Next i

End Sub

on me propose 3 réponses : 18, 20 ou 22
pour moi c'est 22 car un tableau(10) a 11 éléments vu qu'il faut compter le zéro
mais je ne comprends pas grand chose...

quelqu'un peut-il m'aider?

merci d'avance,

jules

 

[MJ13]

Re : Tableau VBA

Bonjour Julou

mais je ne comprends pas grand chose...

Oui, nous non plus!

 

[PascalXLD]

Re : Tableau VBA

Hello

et en plus cela va bugger car table(n+1) va planter arrivé à 11 ne va pas passer

 

[Dranreb]

Re : Tableau VBA

Bonsoir.

on me propose 3 réponses : 18, 20 ou 22

Oui mais à quelle question ?

 

[Staple1600]

Re : Tableau VBA

Bonsoir à tous

Pas trop compris en quoi consite l'exercice
mais ici le MsgBox affiche 18

Sub Afficher()
Dim i, n
Dim Table(11) As Integer 'même remarque que PascalXLD d'ou modif
For n = 1 To 10
Table(n + 1) = n
Next n

For i = 2 To 10
Table(i) = Table(i) * 2
Next i
MsgBox Table(10)
End Sub

 

[julou]

Re : Tableau VBA

leur énoncé devait etre un peu foireux alors... en effet il paraitrait que la bonne réponse soit 18 !!

merci !!