Función factorial (iterativa) Ejercicio VB.Net - Curso de Programación Visual Basic

 Lección

Funciones

 Ejercicio

Función factorial (iterativa)

Objetivo

Cree una función iterativa (no recursiva) para calcular el factorial del número especificado como parámetro:

Console.Write ( Factorial (6) );

mostraría
720

Código

Imports System
Public Class Exercise119
    Public Shared Function Factorial(ByVal n As Integer) As Single
        Dim result As Integer = 1

        For i As Integer = 1 To n
                        ' Cannot convert ExpressionStatementSyntax, System.ArgumentOutOfRangeException: Exception of type 'System.ArgumentOutOfRangeException' was thrown.
' Parameter name: op
' Actual value was MultiplyAssignmentStatement.
'    at ICSharpCode.CodeConverter.Util.VBUtil.GetExpressionOperatorTokenKind(SyntaxKind op)
'    at ICSharpCode.CodeConverter.VB.NodesVisitor.MakeAssignmentStatement(AssignmentExpressionSyntax node)
'    at ICSharpCode.CodeConverter.VB.NodesVisitor.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'    at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
'    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'    at ICSharpCode.CodeConverter.VB.CommentConvertingNodesVisitor.DefaultVisit(SyntaxNode node)
'    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.VisitAssignmentExpression(AssignmentExpressionSyntax node)
'    at Microsoft.CodeAnalysis.CSharp.Syntax.AssignmentExpressionSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
'    at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.ConvertSingleExpression(ExpressionSyntax node)
'    at ICSharpCode.CodeConverter.VB.MethodBodyVisitor.VisitExpressionStatement(ExpressionStatementSyntax node)
'    at Microsoft.CodeAnalysis.CSharp.Syntax.ExpressionStatementSyntax.Accept[TResult](CSharpSyntaxVisitor`1 visitor)
'    at Microsoft.CodeAnalysis.CSharp.CSharpSyntaxVisitor`1.Visit(SyntaxNode node)
'    at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
'    at ICSharpCode.CodeConverter.VB.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
' 
' Input: 
'             result *= i;

' 
        Next

        Return result
    End Function

    Public Shared Sub Main()
        Console.Write(Factorial(6))
    End Sub
End Class

Más ejercicios Visual Basic (VB.Net) de Funciones

 Funciones: saludo + despedida
Crea un programa cuyo Main debe ser así: public static void Main() { SayHello(); SayGoodbye(); } SayHello y SayGoodbye son funciones que deb...
 Función con parámetros
Crea un programa en Visual Basic cuyo Main debe ser así: public static void Main() { SayHello ("Juan"); SayGoodbye(); } SayHello y SayGoodby...
 Función que devuelve un valor
Crea un programa en Visual Basic cuyo Main debe ser así: public static void Main() { int x= 3; int y = 5; Console.WriteLine( Suma(x,y) ); } ...
 Función que devuelve un valor V2
Crea un programa en Visual Basic cuyo Main debe ser así: public static void Main() { __Console.WriteLine(""Hola, cómo estás" contiene espacios {0...
 Función escritura centrada
Cree una función para escribir centrado en pantalla el texto que se indica como parámetro (suponiendo un ancho de pantalla de 80 caracteres): Write...
 Función escribir subrayado
Crear una función capaz de escribir centrado en pantalla el texto que se indica como parámetro (suponiendo un ancho de pantalla de 80 caracteres) y lu...
 Función suma de la matriz
Cree un programa de Visual Basic para calcular la suma de los elementos de una matriz. "Main" debería ser así: public static void Main() { int[] e...
 Función doble
Cree una función denominada "Doble" para calcular y devolver un número entero duplicado. Por ejemplo. Doble(7) debe devolver 14....
 Función Doble parámetro de referencia
Cree una función denominada "Doble" para calcular el doble de un número entero y modifique los datos pasados como argumento. Debe ser una función "vac...
 Función swap parámetros de referencia
Cree una función denominada "Swap" para intercambiar los valores de dos números enteros, que se pasan por referencia. Un ejemplo de uso podría ser:...
 Función power variables locales
Cree una función denominada "Power" para calcular el resultado de elevar un número entero a otro número (entero positivo). Debe devolver otro número e...
 Función power recursivo
Cree una función que calcule el resultado de elevar un entero a otro entero (por ejemplo, 5 elevado a 3 = 53 = 5 × 5 × 5 = 125). Esta función debe cre...
 Función Fibonacci
Cree un programa en Visual Basic que use la recursividad para calcular un número en la serie de Fibonacci (en la que los dos primeros elementos son 1,...
 Función modificar una letra de una cadena
Cree una función denominada "ChangeChar" para modificar una letra en una determinada posición (basada en 0) de una cadena, reemplazándola por una letr...
 Función IsPrimeTarea
Cree una función denominada "IsPrime", que recibe un número entero y vuelve a ser true si es primo, o false si no lo es: if (isPrime(127)) ......
 Parámetros de Main, Suma
Cree un programa llamado "suma", que reciba dos números enteros en la línea de comandos y muestre su suma, como en este ejemplo: suma 5 3 8...
 Función SumDigits
Cree una función SumDigits que reciba un número y devuelva los resultados en la suma de sus dígitos. Por ejemplo, si el número es 123, la suma sería 6...
 Función Factorial
El factorial de un número se expresa de la siguiente manera: n! = n · (n-1) · (n-2) · (n-3) · ... · 3 · 2 · 1 Por ejemplo 6! = 6·5·4·3·2·1 C...
 Parámetros de Main, Reverso
Cree un programa llamado "reverse", que reciba varias palabras en la línea de comandos y las muestre en orden inverso, como en este ejemplo: invert...
 Función GetInt
Cree una función llamada "GetInt", que muestra en pantalla el texto recibido como parámetro, solicita al usuario un número entero, repite si el número...
 Función base de datos de tareas
Cree una versión mejorada de la "base de datos de tareas", dividiéndola en funciones....
 Función mayor valor en una matriz
Cree una función que devuelva el mayor valor almacenado en una matriz de números reales que se especifique como parámetro: float[] data={1.5f, 0.7f...
 Función WriteTitle
Crea una función llamada "WriteTitle" para escribir un texto centrado en pantalla, en mayúsculas, con espacios extra y con una línea sobre él y otra l...
 Función devuelve valor para Main
Cree un programa en Visual Basic en el que escriba un título (utilizando la función WriteTitle anterior) que el usuario especificará en la línea de co...
 Función CountDV
Cree una función que calcule la cantidad de dígitos numéricos y vocales que contiene una cadena de texto. Aceptará tres parámetros: la cadena que quer...
 Función IsAlphabetic
Cree una función que indique si un carácter es alfabético (de la A a la Z) o no. Debe usarse así: if (IsAlphabetic ("a")) System.Console.WriteLine...
 Función IsNumber
Cree una función que indique si una cadena es un número intensor. Debe usarse así: if (IsNumber ("1234")) System.Console.WriteLine ("Es un valor n...
 Función calculadora, parámetros de Main
Crear un programa en Visual Basic para calcular una suma, resta, producto o división, analizando los parámetros de la línea de comandos: calc 5 + 3...
 Función calculadora, parámetros y valor de retorno de Main
Crear un programa en Visual Basic para calcular una suma, resta, producto o división, analizando los parámetros de la línea de comandos: calc 5 + 3...
 Función MinMaxArray
Cree una función denominada MinMaxArray, para devolver los valores mínimos y máximos almacenados en una matriz, utilizando parámetros de referencia: ...
 Reverso, recursivo
Cree un programa que use la recursividad para invertir una cadena de caracteres (por ejemplo, desde "Hello" devolvería "olleH")....
 Función WriteRectangle
Cree una función WriteRectangle para mostrar un rectángulo (relleno) en la pantalla, con el ancho y el alto indicados como parámetros, utilizando aste...
 Función Palíndromo, iterativo
Cree una función iterativa para decir si una cadena es simétrica (un palíndromo). Por ejemplo, "RADAR" es un palíndromo....
 Palíndromo recursivo
Cree una función recursiva para decir si una cadena es simétrica (un palíndromo). Por ejemplo, "RADAR" es un palíndromo....
 Función GetMinMax
crear una función llamada "GetMinMax", que pedirá al usuario un valor mínimo (un número) y un valor máximo (otro número). Debe llamarse de manera simi...
 Función Multiply & MultiplyR
Crea dos funciones, Multiplicar y Multiplicar, para calcular el producto de dos números usando sumas. La primera versión debe ser iterativa, y la segu...

Juan A. Ripoll - Tutoriales de Sistemas y Cursos de Programación© 2024 Todos los derechos reservados.  Condiciones legales.