Domanda Correzione piccolo programmino...

[PianoPlayer]

Cosa diavolo ho sbagliato? Domani la prof vuole questo programma .-.

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim M As Integer
Dim mi As Integer
Dim ma As Integer
Dim Mex As String
Dim Mey As String
Dim Mez As String
a = InputBox("Inserisci et del primo alunno")
b = InputBox("Inserisci et secondo alunno")
c = InputBox("Inserisci et terzo alunno")
If a >= 18 Then
MsgBox("L'alunno a non minorenne")
End
Else
If b >= 18 Then
MsgBox("L'alunno b non minorenne")
End
Else
If c >= 18 Then
MsgBox("L'alunno c non minorenne")
End
End If
End If
End If
If a > b Then
If a > c Then
If b > c Then
ma = a
mi = c
Else
ma = a
mi = b
End If
Else
ma = c
mi = b
End If
Else
If b > c Then
If a > c Then
ma = b
mi = c
Else
ma = b
mi = a
End If
Else
ma = c
mi = a
End If
End If

M = (a + b + c) / 3
If a < 6 Then
Mex = "L'alunno a va all' asilo"
Else
If a > 6 And a < 11 Then
Mex = "L'alunno a va alle elementari"
Else
If a > 11 And a < 14 Then
Mex = "L'alunno a va alle medie"
Else
If a > 14 Then
Mex = "L'alunno a va al liceo"
End If
End If
End If
End If
If b < 6 Then
Mey = "L'alunno b va all' asilo"
Else
If b > 6 And b < 11 Then
Mey = "L'alunno b va alle elementari"
Else
If b > 11 And b < 14 Then
Mey = "L'alunno b va alle medie"
Else
If b > 14 Then
Mey = "L'alunno b va al liceo"
End If
End If
End If
End If
If c < 6 Then
Mez = "L'alunno c va all' asilo"
Else
If c > 6 And c < 11 Then
Mez = "L'alunno c va alle elementari"
Else
If c > 11 And c < 14 Then
Mez = "L'alunno c va alle medie"
Else
If c > 14 Then
Mez = "L'alunno c va al liceo"
End If
End If
End If
End If

--- Aggiornamento Post ---

Il problema è che dopo avere inserito le età , il programma non continua....

 

[SoulStorm]

Non si scrive End, si scrive EndIf.

--- Aggiornamento Post ---

Prova a staccare ogni If... Nel senso:
If a < 18 Then
blablabla
EndIf
If b < 18 Then
blablabla
EndIf
If c < 18 Then
blablabla
EndIf

 

[PianoPlayer]

Problema risolto, chiudete

 

[PowZerR]

Chiudo