INSTITUTO DE EDUCACIÓN SUPERIOR TECNOLOGICO PÚBLICO
NOTA
“ANTENOR ORREGO ESPINOZA”
R.M. 509-86-ED REVALIDADO R.D. 0432-2006-ED
Práctica 03
Programa de Estudios: COMPUTACIÓN E INFORMÁTICA
Semestre Académico: 2021-II
Unidad Didáctica: TALLER DE PROGRAMACIÓN DISTRIBUIDA
Ciclo de Estudios: IV
Tema: Estructuras de control
Semana: 03
Docente: ALEJANDRO CHAMBERGO
Turno: Diurno
Estudiante: Valeska Caceda Reyna
Fecha: 2021/09/17
1. Diseñe y programe un formulario que permita ingresar un número N y calcular la suma de los N primeros números.
Dim N, suma, k As Integer
N = Val([Link])
suma = 0
For k = 1 To N Step 1
suma = suma + k
Next
[Link] = [Link]("###,###")
2. Diseñe y programe un formulario que permita ingresar un número N y calcular la suma de los números pares menores o
iguales a él.
Dim numero, suma, k, As Integer
numero = Val([Link])
suma = 0
For k = 1 To numero Step 1
If k Mod 2 = 0 Then
suma = suma + k
End If
Next
[Link] = [Link]("###,###")
CHAMBERGO -TALLER DE PROGRAMACIÓN DISTRIBUIDA – PRÁCTICA 03 │ Página 1 de 6
3. Diseñe y programe un formulario que permita ingresar un número N y calcular la suma de los números impares menores o
iguales a él.
CHAMBERGO -TALLER DE PROGRAMACIÓN DISTRIBUIDA – PRÁCTICA 03 │ Página 2 de 6
Dim numero, k, suma As Integer
numero = Val([Link])
suma = 0
For k = 1 To numero Step 1
If k Mod 2 <> 0 Then
suma = suma + k
End If
Next
[Link] = [Link]("###,###")
4. Diseñe y programe un formulario que permita ingresar un número N y calcular la suma de sus divisores.
Dim numero, suma, k As Integer
numero = Val([Link])
suma = 0
For k = 1 To numero Step 1
If numero Mod k = 0 Then
suma = suma + k
End If
Next
[Link] = [Link]("###,###")
5. Diseñe y programe un formulario que permita ingresar un número N y mostrar en una etiqueta los números menores a él.
Dim numero, suma, k As Integer
Dim cadena As String
numero = Val([Link])
suma = 0
cadena = ""
For k = 1 To numero - 1 Step 1
cadena = cadena + " " + Str(k)
Next
[Link] = cadena
6. Diseñe y programe un formulario que permita ingresar un número N y mostrar en una etiqueta sus divisores.
Dim numero, suma, k As Integer
Dim cadena As String
numero = Val([Link])
suma = 0
cadena = " "
For k = 1 To numero Step 1
If numero Mod k = 0 Then
cadena = cadena + Str(k)
End If
Next
[Link] = cadena
7. Diseñe y programe un formulario que permita ingresar un número N y mostrar en una etiqueta los múltiplos de tres
menores o iguales a él.
CHAMBERGO -TALLER DE PROGRAMACIÓN DISTRIBUIDA – PRÁCTICA 03 │ Página 3 de 6
Dim numero, suma, k As Integer
Dim cadena As String
numero = Val([Link])
suma = 0
cadena = " "
For k = 3 To numero Step 3
cadena = cadena + Str(k)
Next
[Link] = cadena
8. Diseñe y programe un formulario que permita ingresar un número N y verificar si el número es primo o no.
Dim numero, suma, k As Integer
numero = Val([Link])
suma = 0
For k = 2 To numero - 1 Step 1
If numero Mod k = 0 Then
suma = suma + k
End If
Next
If suma = 0 Then
[Link] = "El numero es primo"
Else
[Link] = "El numero no es un
numero primo"
End If
9. Diseñe y programe un formulario que permita ingresar un número N y verificar si el número es perfecto no.
(Un número es perfecto cuando la suma de sus divisores menores que da el mismo número)
Dim numero, suma, k As Integer
Dim cadena As String
numero = Val([Link])
suma = 0
cadena = " "
For k = 1 To numero - 1 Step 1
If numero Mod k = 0 Then
suma = suma + k
cadena = cadena + " " + Str(k)
End If
Next
[Link] = [Link]("###,###")
If suma = numero Then
[Link] = "el numero es perfecto"
Else
CHAMBERGO -TALLER DE PROGRAMACIÓN DISTRIBUIDA – PRÁCTICA 03 │ Página 4 de 6
[Link] = "el numero no es perfecto"
End If
10. Diseñe y programe un formulario que permita ingresar un número N y mostrar en una etiqueta los N primeros términos
de la serie: 1,3,5,7,9....
Dim numero, suma, k, j As Integer
Dim cadena As String
numero = Val([Link])
suma = 0
cadena = " "
j = 1
For k = 1 To numero Step 1
cadena = cadena + " " + Str(j)
j = j + 2
Next
[Link] = cadena
11. Diseñe y programe un formulario que permita ingresar un número N y mostrar en una etiqueta los N primeros términos
de la serie: 5,10,15,20,.....
Dim numero, k, j As Integer
Dim cadena As String
numero = Val([Link])
cadena = " "
j = 5
For k = 1 To numero Step 1
cadena = cadena + " " + Str(j)
j = j + 5
Next
[Link] = cadena
12. Diseñe y programe un formulario que permita ingresar un número N y mostrar en una etiqueta los N primeros términos
de la serie:1,2,3,11,12,13,21,22,23,......
Dim n, k, j As Integer
Dim cadena As String
CHAMBERGO -TALLER DE PROGRAMACIÓN DISTRIBUIDA – PRÁCTICA 03 │ Página 5 de 6
n = Val([Link])
cadena = " "
j = 1
For k = 1 To n Step 1
cadena = cadena + Str(j)
If j Mod 10 = 3 Then
j = j + 8
Else
j = j + 1
End If
Next
[Link] = cadena
CHAMBERGO -TALLER DE PROGRAMACIÓN DISTRIBUIDA – PRÁCTICA 03 │ Página 6 de 6
