1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Private Sub CmdBtn_start_Click()
tbx_question.Value = " "
tbx_réponse = " "
cbx_choix.Clear
nr_question = nr_question + 1
Dim question(2, 6)
question1 = Array("Quel est le cépage qui fut traité de plant déloyal et banni de Bourgogne par le duc Philippe le Hardi en 1395 ? ", _
"La syrah", "Le gamay", "Le pinot noir", _
"Chassé de la Côte d'Or - c'est en Beaujolais que le gamay trouva son terroir de prédilection.", _
"1")
question2 = Array("On compte en France plus de cinq cents Appellations Contrôlées. Quelle est - en superficie - la plus petite ?", _
"La Romanée", "Le Montrachet", "Château Grillet", _
"La Romanée ne fait que 85 ares contre 2 1/2 hectares pour le Château-Grillet et 8 hectares pour le Montrachet.", _
"1")
question(1, 1) = question1(1)
question(1, 2) = question1(2)
question(1, 3) = question1(3)
question(1, 4) = question1(4)
question(1, 5) = question1(5)
question(1, 6) = question1(6)
question(2, 1) = question2(1)
question(2, 2) = question2(2)
question(2, 3) = question2(3)
question(2, 4) = question2(4)
question(2, 5) = question2(5)
question(2, 6) = question2(6)
tbx_question.Value = question(nr_question, 1)
For x = 2 To 4
cbx_choix.AddItem question(nr_question, x)
Next
end sub |
Partager