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.

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
en attendant vos réponses je vous remerice infiniment

et bonne journée à vous tous