“ANTENOR
Práctica 03 ORREGO ESPINOZA”
INSTITUTO DE EDUCACIÓN SUPERIOR TECNOLOGICO PÚBLICO NOTA
R.M. 509-86-ED REVALIDADO R.D. 0432-2006-ED
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: Fecha:
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 As Integer
Dim sum As Integer
Dim k As Integer
n = Val(txtNumero.Text)
sum = 0
For k = 1 To n
sum = sum + k
Next
Label2.Text = sum.ToString(“###,###.##”)
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 n, sum As Integer
Dim k As Integer
n = Val(txtNumero.Text)
sum = 0
For k = 1 To n
If k Mod 2 = 0 Then
sum = sum + k
End If
Next
Label2.Text = sum.ToString(“###,###.##”)
3. Diseñe y programe un formulario que permita ingresar un número N y calcular la suma de los números impares meno
CHAMBERGO -TALLER DE PROGRAMACIÓN DISTRIBUIDA – PRÁCTICA 03 │ Página 1 de 4
Dim n, k As Integer
4. Diseñe y programe un formulario que permita ingresar un número N y calcular la suma de sus divisores.
Dim n, k, sum As Integer
sum = 0
n = Val(txtNumero.Text)
For k = 1 To n
Label2.Text = cad If n Mod k = 0 Then
sum = sum + k
End If
Next
Label2.Text = sum.ToString(“###,###.##”)
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 n, k As Integer
Dim cad As String
cad = ""
6. Diseñe y programe un formulario que permita ingresar un número N y mostrar en una etiqueta sus divisores.
n = Val(txtNumero.Text)
Forcad
k =As1 String
To n - 1
Dim
cad = cad + " " + Str(k)
cad = "" Next
Next Label2.Text = cad
n = Val(txtNumero.Text)
For Diseñe
7. k = y1programe
To n un formulario que permita ingresar un número N y mostrar en una etiqueta los múltiplos de tres
If n Mod okiguales
menores = 0 aThen
él.
cad = cad + Str(k)
End If As
Dim cad DimString
n, k As Integer
cad = ""
n = Val(txtNumero.Text)
For k = 3 To n Step 3
cad = cad + Str(k)
Next
Label2.Text = cad
8. Diseñe y programe un formulario que permita ingresar un número N y verificar si el número es primo o no.
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 n, k, sum As Integer
Dim cad As String
cad = ""
sum = 0
n = Val(txtNumero.Text)
For k = 1 To n - 1
If n Mod k = 0 Then
cad = cad + Str(k)
sum = sum + k
End If
Next
Label2.Text = cad + "=" + Str(sum)
If sum = n Then
Label3.Text = "El numero ES perfecto"
Else
Label3.Text = "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 n As Integer
Dim k As Integer
Dim j As Integer
Dim cad As String
cad = ""
j = 1
n = Val(txtNumero.Text)
For k = 1 To n
cad = cad + Str(j)
j = j + 2
Next
Label2.Text = cad
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,.....
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 cad As String
cad = ""
j = 1
n = Val(txtNumero.Text)
For k = 1 To n
cad = cad + Str(j)
If j Mod 10 = 3 Then
j = j + 8
Else
j = j + 1
End If
Next
Label2.Text = cad
13. 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: 3,13,23,33,......
14. Diseñe y programe un formulario que permita ingresar un número N y calcular su factorial.
