Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Prepara tus exámenes
Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Prepara tus exámenes con los documentos que comparten otros estudiantes como tú en Docsity
Encuentra los documentos específicos para los exámenes de tu universidad
Estudia con lecciones y exámenes resueltos basados en los programas académicos de las mejores universidades
Responde a preguntas de exámenes reales y pon a prueba tu preparación
Consigue puntos base para descargar
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Comunidad
Pide ayuda a la comunidad y resuelve tus dudas de estudio
Ebooks gratuitos
Descarga nuestras guías gratuitas sobre técnicas de estudio, métodos para controlar la ansiedad y consejos para la tesis preparadas por los tutores de Docsity
Documento que contiene cinco ejercicios prácticos y dos ejercicios teóricos de Programación II, asignatura de la carrera de Tecnologías en la Información de la Universidad Estatal del Sur de Manabí. Los ejercicios se realizan en Visual Basic y abarcan el uso de la estructura WHILE, contadores, acumuladores, registro de productos y creación de tablas de multiplicar.
Tipo: Ejercicios
1 / 12
Esta página no es visible en la vista previa
¡No te pierdas las partes importantes!
Un programa que lea 3 números y que cada número ingresado lo eleve al cuadrado. Public Class Form Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim I, N, cuadrado As Integer I = 0 While (I <= 3) N = InputBox("Digitar el número a elevar al cuadrado") cuadrado = N ^ 2 MsgBox("El número elevado al cuadrado es de : " & cuadrado) I = I + 1 End While End Sub End Class
**Programa que nos arroje el conteo de 1 hasta 10 y nos guarde el acumulado de la suma de 1
Public Class Form Private Sub INGRESO_Click(sender As Object, e As EventArgs) Handles INGRESO.Click Dim Product As Integer Product = 0 While Product <= 20 ListBox1.Items.Add(Product) Product = Product + 1 End While End Sub Private Sub SALIDA_Click(sender As Object, e As EventArgs) Handles SALIDA.Click Dim Salida_Product As Integer Salida_Product = 0 While Salida_Product <= 5 ListBox2.Items.Add(Salida_Product) Salida_Product=Salida_Product+ End While End Sub End Class
Crear programa que me muestre los números pares. Public Class Form Private Sub btnEJECUTAR_Click(sender As Object, e As EventArgs) Handles btnEJECUTAR.Click Dim a As Byte a = 2 While a <= 20 Me.ListBox1.Items.Add(a) a = a + 2 End While End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Close() End Sub End Class
