Scribd
Cargar
34 vistas4 páginas

Ejemplos de Algoritmos en Visual Basic

Se presentan cuatro algoritmos: 1) Determinar el mayor de tres números ingresados. 2) Escribir un número ingresado la cantidad de veces igual a su valor. 3) Calcular la suma de los números entre dos números ingresados. 4) Realizar operaciones sobre un número del 1 al 9 ingresado para obtener una suma final.

Cargado por

AxlCubas
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
34 vistas4 páginas

Ejemplos de Algoritmos en Visual Basic

Se presentan cuatro algoritmos: 1) Determinar el mayor de tres números ingresados. 2) Escribir un número ingresado la cantidad de veces igual a su valor. 3) Calcular la suma de los números entre dos números ingresados. 4) Realizar operaciones sobre un número del 1 al 9 ingresado para obtener una suma final.

Cargado por

AxlCubas
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Desarrolle un algoritmo que permita averiguar de tres valores ingresados por

teclado, cual es el mayor.

Private Sub Command1_Click()


Dim num1, num2, num3, mayor, a As Integer
num1 = Val(InputBox("ingresar numero"))
num2 = Val(InputBox("ingresar numero"))
num3 = Val(InputBox("ingresar numero"))
If num1 > num2 Then
a = num1
Else
a = num2
End If
If a > num3 Then
mayor = a
Else
mayor = num3
End If
MsgBox mayor
End Sub
Desarrolle un algoritmo que permita leer un valor cualquiera desde teclado y
escriba tantas veces el mismo nmero como su valor ingresado representa.
Private Sub Command8_Click()
Dim base, cont As String
Dim lista As String
base = Val(InputBox("numero "))
cont = base

lista = String(base, cont)


MsgBox lista
End Sub

Se necesita un algoritmo que lea por teclado dos nmeros, de los


cuales queremos que imprima el total de la suma de todos los
nmeros que se encuentran entre ambos nmeros
Private Sub Command9_Click()
Dim N1, n2, c, t, a, mayor, menor As Integer

N1 = Val(InputBox("numero menor"))
n2 = Val(InputBox("numero mayor"))

a=0
t=0
c = N1 + 1
Do While c < n2
t=t+c
c=c+1
Loop
MsgBox "total " & t
End Sub
Desarrolle un algoritmo que permita ingresar un nmero del 1 al 9
y ejecute las siguientes acciones:
Multiplicar el nmero por tres.
Aadir tres al resultado anterior y multiplicarlo por tres otra
vez.
Sumar los dgitos del ltimo resultado obtenido.
Mostrar en pantalla la Suma Obtenida
Private Sub Command10_Click()
Dim N1, n2, n3, n4 As Integer
Dim centenas, decenas, unidades As Integer
Dim residuo1, residuo2 As Integer
N1 = Val(InputBox("ingresar numero"))
If N1 > 0 And N1 < 10 Then
n2 = N1 * 3
n3 = (n2 + 3) * 3
decenas = n3 \ 10
residuo2 = n3 Mod 10
unidades = residuo2
n4 = decenas + unidades
MsgBox "suma obtenida es" & n4
Else
MsgBox "Ingresar solo del 1 al 9"
End If
End Sub

También podría gustarte