Un novato con sentencias if then else

[legomolina]

Hola, acabo de empezar con esto de visual basic pero visual studio express 2010 me marca un error con if then else, si alguien me pudiese ayudar, se lo agradeceria.

Código vb:

Module primo
    Dim numero As Integer
    Private Function resto(ByVal num As Integer) As Integer
        Dim resultado, i As Integer
        i = 1
        resultado = 1
 
        Do
            If num Mod i = 0 Then resultado = 0
            Elseif resto(numero) Then
                resultado = 1
            End if
            End if
        Loop Until i = num
 
        resto = resultado
    End Function
 
 
    Sub main()
        System.Console.WriteLine("Escribe un numero cualquiera sin decimales y te dira si es primo o no")
        numero = Console.ReadLine()
        If resto(numero) = 0 Then System.Console.WriteLine("El numero {0} no es primo", numero)
        else If resto(numero) = 1 Then System.Console.WriteLine("El numero {0} es primo", numero)
        End If
 
        End If
    End Sub
End Module
 

Gracias por la ayuda

PD: es un ejercicio del tuto que sigo para aprender

[BalamKhai]

En el primer If, donde pones:

Código:

        Do
            If num Mod i = 0 Then resultado = 0
            Elseif resto(numero) Then
                resultado = 1
            End if
            End if
        Loop Until i = num

Te da error por que tienes dos "end if" , cuando solo deberías tener uno. Lo que sucede es que el "elseif" se cierra con el mismo End If.

En el segundo If.

Código:

	If resto(numero) = 0 Then System.Console.WriteLine("El numero {0} no es primo", numero)
        	else If resto(numero) = 1 Then System.Console.WriteLine("El numero {0} es primo", numero)
        End If

Estas evaluando una única condición así que puedes hacerlo igualmente con un "elseif"

así

Código:

if resto(numero) = 0 then
   System.Console.WriteLine("El numero {0} no es primo", numero)
elseif resto(numero) = 1 then
   System.Console.WriteLine("El numero {0} es primo", numero)
endif

o con 2 if sería:

Código:

if resto(numero) = 0 then
   System.Console.WriteLine("El numero {0} no es primo", numero)
else 'Aquí no va ninguna expresion'
   if    resto(numero) = 1 then
      System.Console.WriteLine("El numero {0} es primo", numero)
   end if
end if

[legomolina]

Gracias, la segunda solucion me ha valido pero la primera, toquiteando he visto que te lo pone bien si pones todo en una sola linea.

Código vb:

Do
            If num Mod i = 0 Then resultado = 0 Else <---todo en la misma linea
            If resto(numero) Then
                resultado = 1
            End If
        Loop Until i = num
 

La vedad es que sigo sin entenderlo pero si asi funciona, pues lo haremos asi...
De todas formas, muchas gracias.