salut tt le monde
je suis vraiment un débutant de VB et donc vs allez être nombreux à pouvoir répondre à ma modeste question, bon voilà j'ai plusieurs procédures et des fonctions que je veux les applez d'une procédure main le problème c'est que j'ai déclarer un tableau de n entier et je pense que c'est de là que vient le prob.
bon vue que mon code est tré petit je me suis permis de le mettre ici pour pouvoir me dire où ça marche pas.
en attendant vos réponses je vous remerice infiniment
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
34
35
36
37
38
39
40
41
42
43 Sub saisir(t() As Integer, n As Integer) For i = 1 To n t(i) = InputBox("entrez t(" & i & ")") Next End Sub '------------------------------------------------- Function moyenne(t() As Integer, n As Integer) Dim s As Integer For i = 1 To n s = s + 1 Next moyenne = s / n End Function '---------------------------------------------------- Function valmax(t() As Integer, n As Integer) Dim s As Integer valmax = t(1) For i = 1 To n - 1 If t(i) < t(i + 1) Then valmax = t(i + 1) End If Next End Function '--------------------------------------------------------- Sub main() Dim t(1 To n) As Integer, n As Integer saisir MsgBox ("la valueur moyenne est " & moyenne) MsgBox ("la valeur max est " & valmax) End Sub
et bonne journée à vous tous
Partager