jueves, 21 de febrero de 2013
Ejercicios resueltos básicos y de estructuras de decisión en Visual Basic 6.0
1) Escribir un programa que agregue un valor de la suma
Se debe crear:
3 Label (En el tercer Label cambia el BorderStyle de 0 - None a 1 - Fixed Single)
1 TextBox
1 CommandButton
Debe quedar así
Hay dos formas de hacerlo: Forma simple(Nivel: Facil) y Forma simple(Nivel: Normal). Verán porque.
Forma simple(Nivel: Facil): El problema de la forma simple es que al agregar el primer valor y al darle sumar nos agrega el primer valor ingresado, en vez de esperar los otros valores que se van a sumar. Por ejemplo:
1) Si ingreso 1 en lugar de quedar el Label3 en blanco te muestra el primer valor ingresado, en vez de quedarse en blanco el Label3, para poder ingresar el siguiente valor sumarlo y mostrar el resultado. Pruebenlo y veran porque.
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Option Explicit
Dim Suma As Double
_____________________________________________________________________
Private Sub Command1_Click()
Dim Valor As Double
Valor = Text1
Suma = Suma + Valor
Label3 = Suma
End Sub
Forma simple(Nivel: Normal): Esta es la forma en que vemos si se ha ingresado datos o no en el TextBox usando condicionales, y también nos ayuda a sumar de forma cómoda como las calculadora de Windows.
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Dim Operacion As String
Dim Inicio As Boolean
Dim PrimerValor, ValorSiguiente, Suma
Private Sub Command1_Click()
PrimerValor = Val(Text1.Text)
Text1.Text = ""
Inicio = False
Operacion = "Suma"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label3 = ""
ValorSiguiente = 0
Inicio = False
End Sub
Private Sub Command3_Click()
If Text1 = "" Then
MsgBox "Usted no ha ingresado su numero"
End If
ValorSiguiente = Text1.Text
Select Case Operacion
Case "Suma"
Suma = PrimerValor + ValorSiguiente
Label3 = Suma
End Select
End Sub
2) Escribir un programa que lea 5 números enteros y escriba la media aritmética (Promedio) de los mismos
Se hace de tres maneras
Primera manera
Se debe crear:
5 TextBox
7 Label (En el último Label cambia el BorderStyle de 0 - None a 1 - Fixed Single)
1 CommandButton
Debe quedarte así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim PrimerValor As Integer, SegundoValor As Integer, TercerValor As Integer, CuartoValor As Integer, QuintoValor As Integer
PrimerValor = Text1
SegundoValor = Text2
TercerValor = Text3
CuartoValor = Text4
QuintoValor = Text5
Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5
End Sub
Segunda manera:
Esta manera es para que cuando se nos olvide poner el algún valor en cualquier TextBox, nos muestre un mensaje de que falta ingresar un valor en tal TextBox
Se debe crear:
5 TextBox
7 Label (En el último Label cambia el BorderStyle de 0 - None a 1 - Fixed Single)
1 CommandButton
Debe quedarte así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim PrimerValor As Integer, SegundoValor As Integer, TercerValor As Integer, CuartoValor As Integer, QuintoValor As Integer
PrimerValor = Val(Text1)
SegundoValor = Val(Text2)
TercerValor = Val(Text3)
CuartoValor = Val(Text4)
QuintoValor = Val(Text5)
If Text1 = "" Then
MsgBox "Falta el un valor en la casilla 1"
ElseIf Text2 = "" Then
MsgBox "Falta el un valor en la casilla 2"
ElseIf Text3 = "" Then
MsgBox "Falta el un valor en la casilla 3"
ElseIf Text4 = "" Then
MsgBox "Falta el un valor en la casilla 4"
ElseIf Text5 = "" Then
MsgBox "Falta el un valor en la casilla 5"
Else
Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5
End If
End Sub
Tercera forma:
Para eso debemos crear una "Matriz de Controles", lo que significa que debemos crear 9 veces un TEXT1
Como se muestra gráficamente.
Creamos un TextBox
Como se muestra gráficamente.
Creamos un TextBox
Le damos click derecho del Mouse y nos saldrá el siguiente cuadro lo cual sale una opción que dice copiar.
Ahora acercamos el cursor en el espacio del formulario le damos click derecho y pegar. O lo más fácil apretamos la tecla Ctrl y la tecla V las dos (teclas a la vez)
Luego de haberle dado pegar te va a salir un cuadro que te dice lo siguiente:
"Ya existe un control llamado Text1 ¿Deseas crear una matriz de controles?"
Les das click en SI o en Aceptar
Creas 5 Text1
7 Labels
y un CommandButton
El formulario debe quedarte así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim PrimerValor As Integer, SegundoValor As Integer, TercerValor As Integer, CuartoValor As Integer, QuintoValor As Integer
PrimerValor = Val(Text1(0))
SegundoValor = Val(Text1(1))
TercerValor = Val(Text1(2))
CuartoValor = Val(Text1(3))
QuintoValor = Val(Text1(4))
If Text1(1) = "" Then
MsgBox "Falta el un valor en la casilla 1"
ElseIf Text1(2) = "" Then
MsgBox "Falta el un valor en la casilla 2"
ElseIf Text1(3) = "" Then
MsgBox "Falta el un valor en la casilla 3"
ElseIf Text1(4) = "" Then
MsgBox "Falta el un valor en la casilla 4"
ElseIf Text1(5) = "" Then
MsgBox "Falta el un valor en la casilla 5"
Else
Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5
End If
End Sub
3) El alquiler de un vehículo cuesta 70.000 bolívares por día más 750 bolívares por cada kilómetro recorrido. Escribir un programa que lea por teclado el número de días en alquiler y el números de kilómetros recorridos y muestre el monto total que se debe pagar.
Se debe crear:
2 TextBox
4 Label (En el último Label cambia el BorderStyle de 0 - None a 1 - Fixed Single)
1 CommandButton
Debe quedarte así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
'Declaramos las constantes
Const AlquilerDelAuto = 70000
Const KilometrosRecorrido = 750
Dim DiasDeAlquiler As Integer
Dim KilometrosRecorridos As Integer
DiasDeAlquiler = Val(Text1)
Kilometros = Val(Text2)
If Text1 = "" Then
MsgBox "No has ingresado los dias"
ElseIf Text2 = "" Then
MsgBox "No has ingresado los kilometros"
Else
Label3 = (DiasDeAlquiler * AlquilerDelAuto) + (KilometrosRecorrido * Kilometros)
End If
End Sub
4) Escribir un programa que lea por teclado un numero entero, el cual representa un monto en bolívares y muestre cuantos billetes de 50.000, 20.000, 10.000, 5.000, 2.000 y 1.000 y cuantas monedas de 500, 100, 50, 20, 10, 5 y 1 constituyen esa cantidad.
Aquí usaremos InputBox
Se debe crear:
13 TextBox
13 Label
1 CommandButton
Debe quedarte así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Option Explicit
Private Sub Command1_Click()
Dim Monto As Long
'Ingresamos los datos
Monto = InputBox("Ingrese su monto")
Text1 = Monto \ 50000
Text2 = Monto \ 20000
Text3 = Monto \ 10000
Text4 = Monto \ 5000
Text5 = Monto \ 2000
Text6 = Monto \ 1000
Text7 = Monto \ 500
Text8 = Monto \ 100
Text9 = Monto \ 50
Text10 = Monto \ 20
Text11 = Monto \ 10
Text12 = Monto \ 5
Text13 = Monto \ 1
End Sub
5) Escribir un programa que solicite al usuario la introducción de un número de tres dígitos y que lo imprima en orden inverso. Ejemplo: Para una entrada de 695,la salida deberá ser 596.
Se debe crear:
2 TextBox
2 Label
1 CommandButton
Debe quedarte así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim Numero As Integer
Dim CalculoUno As Integer, RespuestaUno As Integer
Dim CalculoDos As Integer, RespuestaDos As Integer
Numero = Text1
CalculoUno = Numero \ 100
RespuestaUno = Numero Mod 100
CalculoDos = RespuestaUno \ 10
RespuestaDos = RespuestaUno Mod 10
Text2 = RespuestaDos & CalculoDos & CalculoUno
End Sub
6) Dados tres valores enteros, los cuales representan las longitudes de los lados de un triángulo, escribir un programa que determine si el triángulo es isósceles, equilátero o escaleno.
Se debe crear:
4 Label
3 TextBox
1 CommandButton
Debe quedar así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim LadoUno As Integer, LadoDos As Integer, LadoTres As Integer
LadoUno = Text1
LadoDos = Text2
LadoTres = Text3
If LadoUno = LadoDos And LadoDos = LadoTres Then
Label4 = "Es equilátero"
ElseIf LadoUno = LadoDos Or LadoUno = LadoTres Or LadoDos = LadoTres Or LadoDos = LadoUno Or LadoTres = LadoUno Or LadoTres = LadoDos Then
Label4 = "Isosceles"
Else
Label4 = "Escaleno"
End If
End Sub
7) Escribir un programa que dada la hora en HH:MM:SS calcule y muestre la hora un segundo después.
Donde:
HH es la hora
MM son los minutos
SS son los segundos
Se debe crear:
3 TextBox
3 CommandButton
Debe quedar así
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command3_Click()
VariableHora = Text1
VariableMinutos = Text2
VariableSegundos = Text3
VariableSegundos = VariableSegundos + 1
If VariableSegundos = 60 Then
VariableSegundos = 0
VariableMinutos = VariableMinutos + 1
If VariableMinutos = 60 Then
VariableMinutos = 0
VariableHora = VariableHora + 1
If VariableHora > 12 Then
VariableHora = 1
End If
End If
End If
Text1 = VariableHora
Text2 = VariableMinutos
Text3 = VariableSegundos
End Sub
_____________________________________
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
_______________________________
Private Sub Command2_Click()
End
End Sub
_________________________________
NOTA:
A) El CommandButton3 es el botón Hora
B) El CommandButton1 es el botón Borrar
C) El CommandButton2 es el botón Salir
Si no entienden algún algoritmo(Los código por decirlo así), dejar un comentario. Para los que se inician en Visual Basic 6.0
muy buenos programas para comenzar me gustaron mucho +110
ResponderEliminarPrimerValor = Val(Text1(0))
ResponderEliminarSegundoValor = Val(Text1(1))
TercerValor = Val(Text1(2))
CuartoValor = Val(Text1(3))
QuintoValor = Val(Text1(4))
If Text1(1) = "" Then
MsgBox "Falta el un valor en la casilla 1"
ElseIf Text1(2) = "" Then
MsgBox "Falta el un valor en la casilla 2"
ElseIf Text1(3) = "" Then
MsgBox "Falta el un valor en la casilla 3"
ElseIf Text1(4) = "" Then
MsgBox "Falta el un valor en la casilla 4"
ElseIf Text1(5) = "" Then
revisa el código veras que hay un error
Le falta en el Scripts.
EliminarMsgBox "Falta un valor en la casilla 5"
End If
y en Text(0), Text(1), Text(2), Text(3) y Text(4) le falta la propiedad .Text. Ejemplo:
If Text1(1).Text = "" Then
MsgBox "Rellene la casilla 1"
Text(1).SetFocus()
End If
ademas deben cerrarse todos los IF de lo contrario el programa dará un error
Eliminarasi es
Eliminarcomo se resuelve esto..?
ResponderEliminarUn alumno desea saber cuál será su calificación final del mes. Dicha calificación se compone de los siguientes porcentajes: 40% Examen, 40% Trabajo en clase, 5% Tareas y 15% Trabajo de investigación. Crear un formulario que permita leer todos los valores y poner el resultado en TextBox.
Option Explicit
EliminarPrivate Sub Command1_Click()
'Declaración de variables:
Dim clase As Double
Dim tarea As Double
Dim trabajo As Double
Dim examen As Double
Dim nota As Double
Dim cclase As Double
Dim ctarea As Double
Dim ctrabajo As Double
Dim cexamen As Double
Dim cfinal As Double
'Asignamos valor a las variables:
clase = Me.clase
tarea = Me.tarea
trabajo = Me.trabajo
examen = Me.examen
nota = clase + tarea + trabajo + examen
cclase = clase * 0.4
ctarea = tarea * 0.05
ctrabajo = trabajo * 0.15
cexamen = examen * 0.4
cfinal = cclase + ctarea + ctrabajo + cexamen
'Imprimir valores:
Me.nota = clase + tarea + trabajo + examen
Me.cclase = clase * 0.4
Me.ctarea = tarea * 0.05
Me.ctrabajo = trabajo * 0.15
Me.cexamen = examen * 0.4
Me.cfinal = cclase + ctarea + ctrabajo + cexamen
End Sub
Hola Rocio ahi le envie el codigo para su respuesta, escrito en Visual Basic 6.0 he tenido dificultad para enviarle el formulario pero si tiene alguna duda, comentemela por favor.
Eliminarme gustaria si me mandaras el archivo completo para llevar el control de las notas.a mi correo:
EliminarOption Explicit
Private Sub Command1_Click()
'Declaración de variables:
Dim clase As Double
Dim tarea As Double
Dim trabajo As Double
Dim examen As Double
Dim nota As Double
Dim cclase As Double
Dim ctarea As Double
Dim ctrabajo As Double
Dim cexamen As Double
Dim cfinal As Double
'Asignamos valor a las variables:
clase = Me.clase
tarea = Me.tarea
trabajo = Me.trabajo
examen = Me.examen
nota = clase + tarea + trabajo + examen
cclase = clase * 0.4
ctarea = tarea * 0.05
ctrabajo = trabajo * 0.15
cexamen = examen * 0.4
cfinal = cclase + ctarea + ctrabajo + cexamen
'Imprimir valores:
Me.nota = clase + tarea + trabajo + examen
Me.cclase = clase * 0.4
Me.ctarea = tarea * 0.05
Me.ctrabajo = trabajo * 0.15
Me.cexamen = examen * 0.4
Me.cfinal = cclase + ctarea + ctrabajo + cexamen
End Sub
correo:programadorascencio@gmail.com
Eliminarhola este es mi correo vasquezcarlos166@gmail.com soy programador en visual basic 6.0 con gusto te ayudo
ResponderEliminarhola amigo necesito que me ayudes con un programa que tengo en mi guia y no lo puedo realizar.
ResponderEliminarescribir un programa un vector que tenga un vector q contenga 20 numeros enteros, esos 20 numeros se van a introducir por el teclado, luego el programa tiene que mostrarlos de manera ordenada ascendentemente, q tenga la opción de mostrar la posicion se encuentra un numero. ejemplo: si el usuario introdujo el numero 10 , dentro de los 20 numeros ingresados que me muestre en q posicion esta el muero 10.
Hola necesito un código en visual que me calcule valores de manera q sea como una adivinanza!!! lo necesito para un proyecto educativo xf
ResponderEliminarHola necesito un código en visual que me calcule valores de manera q sea como una adivinanza!!! lo necesito para un proyecto educativo xf
ResponderEliminarHola necesito un código en visual que me calcule valores de manera q sea como una adivinanza!!! lo necesito para un proyecto educativo xf
ResponderEliminarayudenme porfa desarrollar un convertidor de monedas, se debe convertir a: dollar,euro,yem y bolivar. el usuario debe seleccionar la moneda por medio de la opcion buton.
ResponderEliminarayudenme porfa desarrollar un convertidor de monedas, se debe convertir a: dollar,euro,yem y bolivar. el usuario debe seleccionar la moneda por medio de la opcion buton.
ResponderEliminarCOMO HACER PARA QUE EN VISUAL VASIC UN PROGRAMA DE PRESTAMOS ME DAJE UNA X CANTIDADE DINERO TODO LA SEMANA Y Y LA CUORA ES A 13 SEMANA PARA PAGAR TODO
ResponderEliminarMe pueden ayudar con este ejercicio
ResponderEliminarDADA LA SIGUIENTE SERIE : 1,1/3,1/5,1/7... SE LEERÁ UN NÚMERO PARA Q EL PROGRAMA IMPRIMA LOS n TÉRMINOS DE LA SERIE EN ORDEN ASCENDENTE
Este comentario ha sido eliminado por el autor.
ResponderEliminarme pueden ayudar transformar este codigo a modulos por favor.
ResponderEliminarDim codigoAs Integer
Dim operando1,operando2 As Single
Dim grados As Boolean
Const pi = 3.1415926535898
Private Sub Cmd0_Click()
TxtDisplay= TxtDisplay & "0"
End Sub
Private Sub Cmd1_Click()
TxtDisplay= TxtDisplay & "1"
End Sub....lo mismo del 2 al 9
Private Sub CmdALaY_Click()
operando1 = Val(TxtDisplay.Text)
codigo = 5
TxtDisplay.Text = ""
TxtDisplay.SetFocus
End Sub
Private Sub CmdArcotangente_Click()
If TxtDisplay.Text <> "" Then
If grados = True Then
operando2 = Val(TxtDisplay.Text)
operando2 = (Math.Atn(operando2))
TxtDisplay.Text = ((operando2 * 180) / pi)
End If
If grados = False Then
TxtDisplay.Text = Math.Atn(TxtDisplay.Text)
End If
End If
End Sub
Private Sub CmdBorrarDerecha_Click()
If TxtDisplay.Text <> "" Then
TxtDisplay.SelStart = Len(TxtDisplay.Text) - 1
TxtDisplay.SelLength = 1
End If
End Sub
Private Sub CmdCerrar_Click()
End
End Sub
Private Sub CmdCierreParentesis_Click()
TxtDisplay.Text = TxtDisplay.Text & ")"
End Sub
Private Sub CmdComa_Click()
TxtDisplay.Text = TxtDisplay.Text & "."
End Sub
Private Sub CmdCoseno_Click()
If TxtDisplay.Text <> "" Then
If grados = True Then
TxtDisplay.Text = Math.Cos((TxtDisplay.Text * pi) / 180)
End If
If grados = False Then
TxtDisplay.Text = Math.Cos(TxtDisplay.Text)
End If
End If
End Sub
Private Sub CmdCuadrado_Click()
operando2 = Val(TxtDisplay.Text)
operando2 = operando2 * operando2
TxtDisplay.Text = operando2
End Sub
Private Sub CmdCubo_Click()
operando2 = Val(TxtDisplay.Text)
operando2 = operando2 * operando2 * operando2
TxtDisplay.Text = operando2
End Sub
Private Sub CmdDivision_Click()
operando1 = Val(TxtDisplay.Text)
codigo = 4
End Sub
Private Sub cmdigual_click()
operando2 = Val(TxtDisplay.Text)
If codigo = 1 Then
operando1 = operando1 + operando2
End If
If codigo = 2 Then
operando1 = operando1 - operando2
End If
TxtDisplay.Text = operando1
If codigo = 3 Then
operando1 = operando1 * operando2
End If
TxtDisplay.Text = operando1
If codigo = 4 Then
operando1 = operando1 / operando2
End If
TxtDisplay.Text = operando1
If codigo = 5 Then
operando1 = operando1 ^ operando2
End If
TxtDisplay.Text = Replace((operando1), ",", ".")
End Sub
Private Sub CmdLimpiar_Click()
TxtDisplay.Text = ""
End Sub
Private Sub CmdLogaritmoNatural_Click()
TxtDisplay.Text = Math.Log(TxtDisplay.Text)
End Sub
Private Sub CmdMasMenos_Click()
operando2 = Val(TxtDisplay.Text)
operando2 = (-1) * operando2
TxtDisplay.Text = operando2
End Sub
Private Sub CmdMultiplicacion_Click()
operando1 = Val(TxtDisplay.Text)
codigo = 3
End Sub
Private Sub CmdPi_Click()
TxtDisplay.Text = pi
End Sub
Private Sub CmdRaiz_Click()
operando2 = Val(TxtDisplay.Text)
operando2 = Sqr(operando2)
TxtDisplay.Text = operando2
End Sub
Private Sub CmdReciproco_Click()
operando2 = Val(TxtDisplay.Text)
operando2 = 1 / operando2
TxtDisplay.Text = Replace((operando2), ",", ".")
End Sub
Private Sub CmdResta_Click()
operando1 = Val(TxtDisplay.Text)
codigo = 2
End Sub
Private Sub CmdSeno_Click()
If TxtDisplay.Text <> "" Then
If grados = True Then
TxtDisplay.Text = Math.Sin((TxtDisplay.Text * pi) / 180)
End If
If grados = False Then
TxtDisplay.Text = Math.Sin(TxtDisplay.Text)
End If
End If
End Sub
Private Sub CmdSuma_Click()
operando1 = Val(TxtDisplay.Text)
codigo = 1
End Sub
Private Sub CmdTangente_Click()
If TxtDisplay.Text <> "" Then
If grados = True Then
TxtDisplay.Text = Math.Tan((TxtDisplay.Text * pi) / 180)
End If
If grados = False Then
TxtDisplay.Text = Math.Tan(TxtDisplay.Text)
End If
End If
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Option2_Click()
End Sub
Private Sub Option1_Click()
End Sub
Private Sub OptGrados_Click()
grados = False
End Sub
Private Sub OptRad_Click()
grados = True
End Sub
Private Sub TxtDisplay_Change()
TxtDisplay.Text = Replace((TxtDisplay.Text), ",", ".")
End Sub
Hola alguien que me ayude a crear un programa
ResponderEliminarsobre una BASE DE DATOS DE UN TALLER DE MECÁNICA
EN VISUAL BASIC 6.0 y después conectarlos .... (La base de datos ya la tengo hecha)
alguien me puede ayudar con un programa en microsoft visual basic 6.0que permita obtener el dia de la semana ingresando un numero porfavor
ResponderEliminarHola unknown gracias por los ejercicios me ayudaron mucho pero no conosco ese tipo de código en visual basic6.0 pero en c++ es muy sencillo si te sirve responde por aquí y te lo paso
ResponderEliminarpase
EliminarHola a todos espero q por favor me ayuden con este problema dice:en un almacén de cadena, se desea implementar un programa para categorizar a las personas que ingresan, para ello se solicita que informen a que grupo pertenecen: ama de casa, empleado, propietario de negocio, jubilado, desempleado. Esto lo debo realizar en visual studio y he tenido inconvenientes con el programa. Gracias
ResponderEliminarQuisiera saber cómo hacer estos programas 😭😭
ResponderEliminarCICLOS
PRIMERA PARTE
1 Que imprima la suma de todos los números impares que van del 1 al 100 y diga cuántos hay
2 Que pida dos números y muestre todos los números pares que van desde el primero al segundo. Se
debe controlar que los valores son correctos
3 Que pida dos números y sume todos los números que van desde el primero al segundo. Se debe
controlar que los valores son correctos
4 Que pida dos números y multiplique todos los números que van desde el primero al segundo. Se
debe controlar que los valores son correctos
5 Que pida un número y muestre en pantalla el mismo número de asteriscos.
6 Que escriba las tablas de multiplicar del 0 al 10
7 Que muestre la tabla de multiplicar de un número cualquiera.
8 Que haga un menú del tipo “desea salir (S/N)” y el programa no termine hasta que el usuario teclee “S”tmi
9 Que calcule la media de 10 números.
10 Que calcule la media de X números, se dejarán de solicitar números hasta que se introduzca el cero
SEGUNDA PARTE
1 Dado el sueldo de N trabajadores considere un aumento a cada uno de ellos según
corresponda:
a. Si el sueldo es <=1000 aumento 12%
b. Si el sueldo es > que 1000 aumento del 8%
2. De un conjunto de alumnos que se leen sus promedios realice un programa que permita
calcular:
a. Promedio general del grupo
b. Número de alumnos aprobados
c. Número de alumnos reprobados
d. Porcentaje de aprobados
e. Porcentaje de reprobados
f. Número de alumnos con calificación mayor a 80
3. Realice un programa que lee 10m números y determine cuántos de ellos son ceros. Por
ejemplo 2,4,5,6,7,0,10,20,30,5 en este conjunto de números solo se encuentra 1 cero.
4. Realice un programa para determinar lo que una empresa necesita calcular
ResponderEliminara. Total de hombres
b. Total de mujeres
c. Porcentaje de Hombres
d. Porcentaje de Mujeres
e. Promedio de las estaturas en Hombres
f. Promedio de las estaturas en Mujeres
g. Promedio de edades de todos los empleados.
5. Realice un programa Que pida dos números y muestre todos los números pares que van
desde el primero al segundo. Se debe controlar que los valores son correctos.
Por ejemplo
Dame el primer valor
10
El segundo valor
2
Incorrecto no se puede ejecutar, porque el valor 1 debe ser menor al valor 2
Dame el primer valor
20
Dame el segundo valor
50
20,22,24,26,28,30,32………………………50
6.- supongamos que debemos obtener la suma de los gastos que hicimos en nuestro último viaje,
pero no sabemos exactamente cuántos fueron.
7.-Realice un programa que dado X números naturales positivos muestre el cubo de estos
números.
8.-dados como datos X números enteros obtenga la suma de los números impares y el promedio
de los pares.
9.-realice un programa que obtenga la suma e imprima los términos de la siguiente serie:
2, 5, 7, 10, 12, 15, 17,………1000
10.-calcule el aumento de sueldo para un grupo de empleados de un empresa teniendo en cuenta
el siguiente criterio:
Si el sueldo es inferior a $1000 aumento 15%
Si el sueldo es mayor o igual a $1000 aumento 12%
11.-Dado N números enteros como datos realice un programa que:
a) Obtenga cuantos números son negativos
b) Calcule el promedio de los números positivos.
Desarrollar una aplicación que permita calcular el promedio de un estudiante ingresando tres notas que serian el 80% y una nota del 20% para calcular el promedio tanto cuantitativo como cualitativo
ResponderEliminarDesarrollar una aplicación que permita calcular el promedio de un estudiante ingresando tres notas que serian el 80% y una nota del 20% para calcular el promedio tanto cuantitativo como cualitativo
ResponderEliminartengo problema con este caso
ResponderEliminarForma simple(Nivel: Normal): Esta es la forma en que vemos si se ha ingresado datos o no en el TextBox usando condicionales, y también nos ayuda a sumar de forma cómoda como las calculadora de Windows.
Case "Suma"
Suma = PrimerValor + ValorSiguiente
para ves si me puede ayudar con esto
lo estoy haciendo asi
el boton de suma que es el commandbotton1
el boton de borrar que es el commandbutton2
el boton de resultado que es el commandbutton3
mi correo es arodriguez194@hotmail.com
gracias de ante mano con la ayuda