Ejercicio ejemplos resueltos con Visual Basic y .NET uso de Sub. If - then, val, do - loop - while. (CU00345A)

Resumen: Entrega nº44 del curso Aprender a programar en Visual Basic desde cero.
Codificación aprenderaprogramar.com: CU00345A

 

 

Crear el código correspondiente al siguiente ejercicio (mismo ejercicio que hemos resuelto anteriormente) pero, en este caso, prescindiendo del uso de arrays. Se trata de crear un programa con las siguientes opciones:

a) Introducir un valor entero impar comprendido entre 1 y 19

b) Calcular la serie numérica 1 + 3 + 5 + ··· + n

Visual Basic
 

c) Calcular 1 * 3 * 5 * ··· * n

d) Salir del programa.

 

 

SOLUCIÓN

El formato gráfico será el mismo que para el programa anterior, aunque en este caso no hemos usado arrays.

Código (versiones VB menos recientes) Código (versiones VB más recientes)
'[Curso VB aprenderaprogramar.com]
'[PROGRAMA IMPARES02]

Option Explicit
Dim Dato As Integer

Private Sub Form_Load()
Form1.Caption = "Impares02"
LabelResultado.Alignment = 2
LabelResultado.FontBold = True
Command1.Caption = "Introducir valor"
Command2.Caption = "Calcular serie 1+3+5..."
Command3.Caption = "Calcular serie 1*3*5..."
Command4.Caption = "Salir"
End Sub

Private Sub Command1_Click()
Call EntrarDato
End Sub

Private Sub Command2_Click()
If Dato <> 0 Then Call CalculaSuma(Dato)
End Sub

Private Sub Command3_Click()
If Dato <> 0 Then Call CalculaMult(Dato)
End Sub

Private Sub Command4_Click()
Unload Form1
End
End Sub

Private Sub EntrarDato()
Dim Par As Boolean
Dato = 0
Do While Dato <= 0 Or Dato > 19 Or Par = True
    Par = False
    Dato = Val(InputBox("Introduzca un número impar entre 1 y 19", "Impar"))
    If Dato Mod 2 = 0 Then
        Par = True
        MsgBox("El número debe ser impar")
    End If
Loop
LabelResultado = "Dato aceptado"
End Sub

Private Sub CalculaSuma(ByVal Número As Integer)
Dim Impar%, Suma As Integer
Impar = -1: Suma = 0
Do
    Impar = Impar + 2
    Suma = Suma + Impar
Loop While Impar < Número
LabelResultado = vbCrLf & "n= " & Dato & "    La suma 1+3+5+...+n vale " & Suma
End Sub

Private Sub CalculaMult(ByVal Cifra As Integer)
Dim Impar As Integer
Dim Acumulado As Single
Impar = -1: Acumulado = 1
Do
    Impar = Impar + 2
    Acumulado = Acumulado * Impar
Loop While Impar < Cifra
LabelResultado = vbCrLf & "n= " & Dato & "    El producto 1*3*5*...*n vale " & _ Acumulado
End Sub
REM Curso Visual Basic aprenderaprogramar.com
'[PROGRAMA IMPARES02]
Option Explicit On
Public Class Form1
Dim Dato As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Impares02"
        LabelResultado.Font = New Font("Arial", 12, FontStyle.Bold)
        LabelResultado.TextAlign = ContentAlignment.MiddleCenter
        Button1.Text = "Introducir valor"
        Button2.Text = "Calcular serie 1+3+5..."
        Button3.Text = "Calcular serie 1*3*5..."
        Button4.Text = "Salir"
  End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call EntrarDato()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Dato <> 0 Then Call CalculaSuma(Dato)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Dato <> 0 Then Call CalculaMult(Dato)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
        End
End Sub

Private Sub EntrarDato()
   Dim Par As Boolean
   Dato = 0
   Do While Dato <= 0 Or Dato > 19 Or Par = True
            Par = False
            Dato = Val(InputBox("Introduzca un número impar entre 1 y 19", "Impar"))
            If Dato Mod 2 = 0 Then
            Par = True
            MsgBox("El número debe ser impar")
            End If
   Loop
   LabelResultado.Text = "Dato aceptado"
End Sub

Private Sub CalculaSuma(ByVal Número As Integer)
        Dim Impar, Suma As Integer
        Impar = -1 : Suma = 0
        Do
            Impar = Impar + 2
            Suma = Suma + Impar
        Loop While Impar < Número
        LabelResultado.Text = vbCrLf & "n= " & Dato & "    La suma 1+3+5+...+n vale " & Suma
End Sub

Private Sub CalculaMult(ByVal Cifra As Integer)
        Dim Impar As Integer
        Dim Acumulado As Single
        Impar = -1 : Acumulado = 1
        Do
            Impar = Impar + 2
            Acumulado = Acumulado * Impar
        Loop While Impar < Cifra
LabelResultado.Text = vbCrLf & "n= " & Dato   & "  El producto 1*3*5*...*n vale " & Acumulado
End Sub
End Class

 

 

Aspecto gráfico de la ejecución del programa:

sumatorio series visual basic

 

 

 

 

 

 

Para acceder a la información general sobre este curso y al listado completo de entregas pulsa en este link:  Ver curso completo.
 
Para  hacer un comentario o consulta utiliza los foros aprenderaprogramar.com, abiertos a cualquier persona independientemente de su nivel de conocimiento.

Donar o colaborar

Este sitio se mantiene abierto gracias al apoyo de muchas personas. Si crees que merece la pena apoyar económicamente este sitio web puedes realizar una donación o colaborar. Contacta con nosotros.

¿Puedo yo aprender?

Seas o no del área informática, si quieres aprender a programar te ofrecemos una solución guiada y personalizada: realizar un curso tutorizado on-line. Con este tipo de curso, podrás aprender a programar de forma ágil y amena.

Acceder a detalles y precios de los cursos tutorizados on-line

Política sobre cookies

Utilizamos cookies propias y de terceros para ofrecerte una mejor experiencia y servicio, de acuerdo a tus hábitos de navegación.

Si continúas navegando, consideramos que aceptas su uso. Puedes obtener más información en nuestra Política de Cookies.

En Facebook!

Ahora puedes seguirnos en Facebook. Noticias, novedades y mucho más ¡Te esperamos!

RANKING APR2+

Ranking de lenguajes y entornos de programación aprenderaprogramar.com
 

SEPTIEMBRE - OCTUBRE 2017

1. Java / J2EE
2. Entornos Oracle
3. Entornos SQL Server
4. .NET, C#
5. JavaScript, jQuery
6. HTML, CSS
7. Php, MySql
8. Android, iOS


Acceder a detalles sobre el ranking de programación aprenderaprogramar.com

FOROS APR2+

Pregunta, responde, consulta, lee, intercambia...

Participa!!! Entra en los foros aprenderaprogramar.com.

             Copyright 2006-2017 aprenderaprogramar.com                La web abierta a cualquier persona interesada en la programación