Laboratorio No7

UNIVERSIDAD TECNOLÓGICA DE PANAMÁ
FACULTAD DE INGENIERIA DE CIVIL
PROGRAMACIÓN - GUÍA DE LABORATORIO #6

Objetivo:
1.

Desarrollar problemas utilizando instrucciones repetitivas en un programa enVisual Basic

Pasos a seguir:
1.

Crear una carpeta de trabajo en el disco local C: o en su UBS

2. Crear el siguiente Windows Form y colocar el código como se le indique, haga la práctica a conciencia.Código fuente
1. Bucle FOR
Botón Llenar Números
'Llenar números con PARA al control ListBox
ListBox1.Items.Clear()
'sirve para limpiar los items de la lista
If TextBox1.Text <> "" Then
Dim numero,index As Integer
numero = Val(TextBox1.Text)
For index = 1 To numero Step 1
ListBox1.Items.Add(index) 'irve para adicionar el número a la lista
Next
Else
MsgBox("Error... Debe ingresar datos")
End IfSumar
Dim numero, suma, index As Integer
numero = Val(TextBox1.Text)
For index = 1 To numero Step 1
suma = suma + index

Next
MsgBox("La Suma es: " & suma)

2. Bucle DO-LOOP UNTIL
Botón LlenarNúmeros
'Llenar números con REPETIR HASTA QUE al control ListBox
ListBox1.Items.Clear()
'sirve para limpiar los items de la lista
If TextBox1.Text <> "" Then
Dim numero, index As Integer
index = 1
numero =Val(TextBox1.Text)
Do
ListBox1.Items.Add(index) 'sirve para adicionar el número a la lista
index = index + 1
Loop Until (index > numero)
Else
MsgBox("Error... Debe ingresar datos")
End If

Sumar
Dimnumero, suma, index As Integer
numero = Val(TextBox1.Text)
Do
suma = suma + index
index = index + 1
Loop Until (index > numero)
MsgBox("La Suma es: " & suma)

3. Bucle WHILE
Botón Llenar Números
'Llenarnúmeros con MIENTRAS al control ListBox
ListBox1.Items.Clear()
'sirve para limpiar los items de la lista
If TextBox1.Text <> "" Then
Dim numero, index As Integer
index = 1
numero = Val(TextBox1.Text)While (index <= numero)
ListBox1.Items.Add(index) 'sirve para adicionar el número a la lista
index = index + 1
End While
Else
MsgBox("Error... Debe ingresar datos")
End If

Sumar
Dim numero, suma,...