Tableau VBA

julou · 2 Janvier 2014

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 · 2 Janvier 2014

Re : Tableau VBA

Bonjour Julou

mais je ne comprends pas grand chose...

Oui, nous non plus!

PascalXLD · 2 Janvier 2014

Re : Tableau VBA

Hello

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

Dranreb · 2 Janvier 2014

Re : Tableau VBA

Bonsoir.

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

Oui mais à quelle question ?

Staple1600 · 2 Janvier 2014

Re : Tableau VBA

Bonsoir à tous

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

Code:

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 · 3 Janvier 2014

Re : Tableau VBA

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

merci !!

Tableau VBA

julou

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

julou

XLDnaute Nouveau

Discussions similaires