Programacion
- 1. UNIVERSIDAD POLITÉCNICA SALESIANA FACULTAD DE CIENCIAS ECONÓMICAS Y ADMINISTRATIVAS PROGRAMACIÓN BÁSICA MANUAL DE PROGRAMAS NOMBRE: ERIKA POLANCO GRUPO: 261
- 2. INTRODUCCIÓN Visual Basic es un lenguaje de programación dirigido por eventos desarrollado por Alan Cooper para Microsoft. Este lenguaje de programación es un dialecto de Basic. con importantes agregados. Mediante este podemos realizar un menú que nos permite recopilar diferentes programas.
- 3. OBJETIVOS OBJETIVO GENERAL: OBJETIVOS ESPECÍFICOS: Generar un menú que nos permita recopilar un conjunto de programas Aplicar los conocimientos de programación Ejecutar el programa para ver el resultado del Menú de programas. Programar en código de Visual Basic.
- 5. Como primero paso ingresamos al programa Visual Basic y hacemos clic en el icono y abrir. Seleccionamos EXE ESTANDAR Luego procedemos hacer clic derecho y seleccionamos editor de menús, creando un menú principal para luego realizar los subgrupos o submenús y así vamos desplegando en el menú. En caption y name se ingresa el mismo nombre con el que queremos que aparezca en el programa
- 6. Procedemos a realizar los formularios con cada uno de los submenús del menú PROYECTOR FORM1 PROYECTOR FORM2
- 9. Dado en N números por teclado determinar cuántos son pares y cuántos son impares?
- 10. Dado en N números por teclado determinar la suma y el promedio.
- 11. Dado en N números por teclado determinar cual numero es el mayor?
- 12. Dado en N números por teclado determinar cuántos están entre 15y25, cuantos están entre 26y35, cuantos están entre 36y75 y cuántos están fuera de rango? Private Sub Command1_Click() Dim i, contp As Integer Dim num As Double Dim N As Integer mayor = 0 contp = 0 i = 1 N = Val(Text1.Text) While i <= N num = "ingrese numero: ", "num")) If (num >= 15) And (num <= 25) Then contp1 = contp + 1 If (num >= 26) And (num <= 35) Then contp2 = contp + 1 If (num >= 36) And (num <= 75) Then contp3 = contp + 1 Else contp4 = contp + 1 End If i = i + 1 Wend Label7.Caption = contp1 Label8.Caption = contp2 Label9.Caption = contp3 Label10.Caption = contp4 End Sub Private Sub Command2_Click() Text1.Text = "" End Sub