[Visual Basic] ... errere : Next senza For ...

[Zaza88]

Gente, sono alle prime armi e non capisco il problema, ho un pezzo di codice parecchio semplice, con 5 casi, e devo riempire una riga di una matrice ci 5 casi differenti ...

ho creato questo codice

Codice: Seleziona tutto

Dim MatNo1#(5, 5), VetSol#(5)

Private Sub Command1_Click()
DimMat% = 5
ParX# = 0
ParY# = 0

For IndRig% = 1 To DimMat%
   If IndRig% = 1 Then 'Riempie la prima riga'
   ParX# = 0
   ParY# = -1
   
   For IndCol% = 1 To DimMat%
     
    If IndCol% = 1 Then
                   MatNo1#(IndRig%, IndCol%) = ParX# * ParX#
        Else
    If IndCol% = 2 Then
                   MatNo1#(IndRig%, IndCol%) = ParX# * ParY#
        Else
    If IndCol% = 3 Then
                   MatNo1#(IndRig%, IndCol%) = ParY# * ParY#
        Else
    If IndCol% = 4 Then
                   MatNo1#(IndRig%, IndCol%) = ParX#
        Else
    If IndCol% = 5 Then
                   MatNo1#(IndRig%, IndCol%) = ParY#
     
     Else: End If

    Next IndCol%

Next IndRig%

End Sub

Io Leggo due for e due next ... non capisco dov'è l'errore

[dino]

Ci manca un End If

[Zaza88]

Non era quello il problema, era che il programma vuole ELSEIF tutto attaccato invece di Else If come avevo scritto io, siccome sono tutte e tre funzioni "esistenti" non dava errori di compilazione ... o almeno, ne dava uno che non potevo ricondurre a quel problema.

[dino]

Ok

[eXo]

maaaaaa...una select case ???

[Zaza88]

maaaaaa...una select case ???

Lo sto usando da 2 giorni, senza avere idea della sintassi ... aspetto un manuale

[eXo]

Codice: Seleziona tutto

Select case IndCol%
       case 1
            bla bla bla
       case 2
            bla bla bla
       case 3
            bla bla bla
End Select