¡Descarga Programación Visual Basics y más Ejercicios en PDF de Programación de Windows solo en Docsity!
Factorial
Dim Número_factorial_de, i AsInteger Dim factorial AsSingle factorial = 1
Número_factorial_de = Val(InputBox("Número factorial de"))
For i = 1 To Número_factorial_de factorial = factorial * i
Next TextBox1.Text = factorial
Mayor y menor
Dim n, i AsInteger Dim valor, mayor, menor AsSingle
n = Val(InputBox("Número")) For i = 1 To n valor = Val(InputBox("Valoe"& i)) If i = 1 Then mayor = valor Else If valor > menor Then menor = valor EndIf EndIf Next TextBox1.Text = valor MsgBox("Mayor ="& mayor) MsgBox("Menor ="& menor)
X cantidad de numerosmayor y menor
Dim n, i AsInteger Dim x, mayor, menor AsSingle n = Val(InputBox("n")) For i = 1 To n x = Val(InputBox("x")) If i = 1 Then mayor = x Else EndIf If x > mayor Then mayor = x Else EndIf
If i = 1 Then menor = x Else If x < menor Then menor = x EndIf EndIf Next Label1.Text = menor Label2.Text = mayor
Estatura
Dim Número_de_Personas, i AsInteger Dim estatura, estaturamayor, estaturamenor, mayor, menor AsSingle Dim nombre, nombremayor, nombremenor AsString
Número_de_Personas = Val(InputBox("Número de Personas"))
For i = 1 To Número_de_Personas estatura = Val(InputBox("estatura")) nombre = InputBox("nombre"& i)
If i = 1 Then nombremayor = nombre estaturamayor = estatura
Else
If estatura > estaturamayor Then nombremayor = nombre estaturamayor = estatura
EndIf EndIf
If i = 1 Then nombremenor = nombre estaturamenor = estatura
Else If estatura < estaturamenor Then nombremenor = nombre estaturamenor = estatura
EndIf EndIf Label3.Text = Label3.Text & nombre &"="& estatura & vbNewLine
ejecutar = Val("Ejecutar el programa") i = n For i = 1 To 100 If i / 2 = "#"Then i = par
Elseif i / 2 = "#.#"Then i = impar
EndIf
ListBox1.Items.Add("i="& i &" par="& par &" impar="& impar) n = n + 1 Next
Dim n, i AsInteger Dim x, suma AsSingle
n = Val(InputBox("No. de Datos")) For i = 1 To n x = Val(InputBox("Valor x"& i)) suma = suma + x TextBox2.Text = TextBox2.Text & x & vbNewLine
Next TextBox1.Text = suma
Ciclo Sobre Ciclo, Tabla
Dim m, i, j AsInteger Dim ejecutar AsString ejecutar = InputBox("ejectar el programa") For i = 1 To 10 For j = 1 To 10 m = i * j Label1.Text = Label1.Text & m &" "&" " Next Label1.Text = Label1.Text & vbNewLine Next
Venta - Producto
im nd, np, i, j, sumat, suma, vtas
nd = Val(InputBox("No. Días")) np = Val(InputBox("No. de Productos por Día"))
For i = 1 To nd suma = 0 For j = 1 To np
vtas = Val(InputBox("$ vta Día"& i &"Producto"& j)) sumat = sumat + vtas suma = suma + vtas Label1.Text = Label1.Text & vtas &" "
Next Label1.Text = Label1.Text &"Total"& suma & vbNewLine
Next Label1.Text = Label1.Text &"Total Vendido"& sumat
Acomodado al revés
np = Val(InputBox("No. de Productos por Día"))
nd = Val(InputBox("No. Días"))
For j = 1 To np suma = 0 For i = 1 To nd vtas = Val(InputBox("Producto"& j &"$ vta Día"& i)) sumat = sumat + vtas suma = suma + vtas Label1.Text = Label1.Text & vtas &" "
Next Label1.Text = Label1.Text &"Total"& suma & vbNewLine
Next Label1.Text = Label1.Text &"Total Vendido"& sumat
