Docsity
Docsity
Prepare for your exams
Prepare for your exams

Study with the several resources on Docsity

Earn points to download
Earn points to download

Earn points by helping other students or get them with a premium plan

Guidelines and tips
Guidelines and tips
Sell on Docsity
Sell on Docsity
Docsity AI
Docsity AI
Log inSign up

Prepare for your exams

Study with the several resources on Docsity

Find documents

Prepare for your exams with the study notes shared by other students like you on Docsity

Search for your university

Find the specific documents for your university's exams

Docsity AINEW

Summarize your documents, ask them questions, convert them into quizzes and concept maps

Explore questions

Clear up your doubts by reading the answers to questions asked by your fellow students

Earn points to download

Earn points by helping other students or get them with a premium plan

Share documents
download point icon20 Points

For each uploaded document

Answer questions
download point icon5 Points

For each given answer (max 1 per day)

All the ways to get free points
Get points immediately

Choose a premium plan with all the points you need

Study Opportunities

Choose your next study program

Get in touch with the best universities in the world. Search through thousands of universities and official partners

Community

Ask the community

Ask the community for help and clear up your study doubts

Free resources

Our save-the-student-ebooks!

Download our free guides on studying techniques, anxiety management strategies, and thesis advice from Docsity tutors

Programacion ejercicios, Exercises of Programming Methodologies

Union Institute & UniversityProgramming Methodologies

Programación ejercicios Programación ejercicios

Typology: Exercises

2025/2026

Uploaded on 02/24/2026

sugar-ol
sugar-ol 🇺🇸

1 document

1 / 8

Toggle sidebar

This page cannot be seen from the preview

Don't miss anything!

bg1
20.- Realizar un Programa 20.- Realizar un Programa
que permita sumar dos números naturales.que permita sumar dos números naturales.
Private Sub cmdSumar_Click()Private Sub cmdSumar_Click()
Dim a As IntegerDim a As Integer
Dim b As IntegerDim b As Integer
Dim suma As IntegerDim suma As Integer
a = InputBox(Ingrese n!mero ")a = InputBox(Ingrese n!mero ")
b = InputBox(Ingrese n!mero #)b = InputBox(Ingrese n!mero #)
%xtSuma&%%xtSuma&%
ext = 'a sext = 'a s
uma es uma es
sumasuma
*nd Sub*nd Sub
21.- Realizar un programa que permita 21.- Realizar un programa que permita
restar dos números naturales.restar dos números naturales.
Private Sub Private Sub
cmd+cmd+
estar_Click()estar_Click()
Dim res As IntegerDim res As Integer
Dim A As IntegerDim A As Integer
Dim B As IntegerDim B As Integer
A = txt"&%extA = txt"&%ext
B = txt#&%extB = txt#&%ext
res = (A , B)res = (A , B)
-sgBox (+esta Igual a res)-sgBox (+esta Igual a res)
*nd Sub*nd Sub
22.- Realizar un programa que permita 22.- Realizar un programa que permita
multiplicar dos númerosmultiplicar dos números
naturales.naturales.
Private Sub cmd-ult_Click()Private Sub cmd-ult_Click()
Dim A As IntegerDim A As Integer
Dim B As IntegerDim B As Integer
Dim mult As IntegerDim mult As Integer
A = txt"&%extA = txt"&%ext
B = txt#&%extB = txt#&%ext
mult = A . Bmult = A . B
-sgBox ('a -ultiplicaci/n es mult)-sgBox ('a -ultiplicaci/n es mult)
*nd Sub*nd Sub
23.- Realizar un programa que permita 23.- Realizar un programa que permita
dividir dos números naturales.dividir dos números naturales.
Private Sub cmdDividir_Click()Private Sub cmdDividir_Click()
Dim A As IntegerDim A As Integer
Dim B As IntegerDim B As Integer
Dim div As DoubleDim div As Double
A = txt"&%extA = txt"&%ext
B = txt#&%extB = txt#&%ext
div = A 0 Bdiv = A 0 B
-sgBox ('a divisi/n es div)-sgBox ('a divisi/n es div)
*nd Sub*nd Sub
pf3
pf4
pf5
pf8

Partial preview of the text

Download Programacion ejercicios and more Exercises Programming Methodologies in PDF only on Docsity!

20.- Realizar un Programa20.- Realizar un Programa que permita sumar dos números naturales.que permita sumar dos números naturales. Private Sub cmdSumar_Click()Private Sub cmdSumar_Click() Dim a As IntegerDim a As Integer Dim b As IntegerDim b As Integer Dim suma As IntegerDim suma As Integer a = InputBox(Ingrese n!mero ")a = InputBox(Ingrese n!mero ") b = InputBox(Ingrese n!mero #)b = InputBox(Ingrese n!mero #) suma = a $ bsuma = a $ b %xtSuma&%%xtSuma&%ext = 'a sext = 'a suma es uma es  sumasuma nd Subnd Sub 21.- Realizar un programa que permita21.- Realizar un programa que permita restar dos números naturales.restar dos números naturales. Private SubPrivate Sub cmd+cmd+estar_Click()estar_Click() Dim res As IntegerDim res As Integer Dim A As IntegerDim A As Integer Dim B As IntegerDim B As Integer A = txt"&%extA = txt"&%ext B = txt#&%extB = txt#&%ext res = (A , B)res = (A , B) -sgBox (+esta Igual a  res)-sgBox (+esta Igual a  res) nd Subnd Sub 22.- Realizar un programa que permita22.- Realizar un programa que permita multiplicar dos númerosmultiplicar dos números naturales.naturales. Private Sub cmd-ult_Click()Private Sub cmd-ult_Click() Dim A As IntegerDim A As Integer Dim B As IntegerDim B As Integer Dim mult As IntegerDim mult As Integer A = txt"&%extA = txt"&%ext B = txt#&%extB = txt#&%ext mult = A. Bmult = A. B -sgBox ('a -ultiplicaci/n es  mult)-sgBox ('a -ultiplicaci/n es  mult) nd Subnd Sub 23.- Realizar un programa que permita23.- Realizar un programa que permita dividir dos números naturales.dividir dos números naturales. Private Sub cmdDividir_Click()Private Sub cmdDividir_Click() Dim A As IntegerDim A As Integer Dim B As IntegerDim B As Integer Dim div As DoubleDim div As Double A = txt"&%extA = txt"&%ext B = txt#&%extB = txt#&%ext div = A 0 Bdiv = A 0 B -sgBox ('a divisi/n es  div)-sgBox ('a divisi/n es  div) nd Subnd Sub

24.- Realizar un Algoritmo que imprima cuantos Bs son un valor !" de d#lares ingresados por el usuario. $a tasa de cam%io es de &.'& Bs por cada d#lar. Private Sub cmdCambio_Click() Dim dolares As Double Dim bolivianos As Double dolares = InputBox(Ingrese d/laras) bolivianos = dolares. 1& %xt+esultado&%ext = Son  bolivianos nd Sub 2(.- $eer un número ) si este es ma)or a 0" * +mprimir el número. Private Sub cmd3atural_Click() Dim numero As Integer txtSalida&%ext =  numero = InputBox(Ingrese un n!mero) I4 numero 5 6 %7en txtSalida&%ext = s n!mero natural *lse txtSalida&%ext = 3o es n!mero natural nd I nd Sub 2&.- Pedir la nota de un estudiante ) mostrar apro%ado" o repro%ado" según la note sea ma)or o igual a (1 que es de apro%aci#n. Private Sub cmdAprob_Click() Dim nota As Integer nota = txtntrada&%ext I4 nota 5= 8" %7en -sgBox (Aprobado) *lse -sgBox (+eprobado) *nd I *nd Sub 2,.- scri%ir un programa que pida la nota de un e!amen un nro. real

Private Sub cmd9eri:car_Click() Dim a As Integer Dim b As Integer Dim sma As Integer Dim smb As Integer a = InputBox(Ingrese A) b = InputBox(Ingrese B) sma = 6 or i = " %o a , " Step " I4 (a -od i = 6) %7en sma = sma $ i *nd I 3ext i smb = 6 or i = " %o b , " Step " I4 (b -od i = 6) %7en smb = smb $ i *nd I 3ext i I4 (sma = b And smb = a) %7en -sgBox (Son Amigos) *lse -sgBox (3> Son Amigos) *nd I *nd Sub 2'.- 6alcular la distancia recorrida de un autom#vil conociendo los datos del tiempo ) la aceleraci#n. Private Sub cmdCalcular_Click() Dim t As Double Dim a As Double Dim d As Double t = InputBox(Ingrese 9alor de %iempo) a = InputBox(Ingrese 9alor de Aceleraci/n) d = (a 0 #). (t? #) txtSalida = ('a Distancia es  d) *nd Sub

30.- 7ise8ar un programa que permita leer el nom%re de un estudiante ) sus notas respectivas. Private Sub cmd9er_Click() Dim nombre As String Dim PP As Integer Dim SP As Integer Dim  As Integer nombre = InputBox(3ombre *studiante) PP = InputBox(3ota Primer Parcial) SP = InputBox(3ota Segundo Parcial)  = (PP $ SP) 0 # lblSalida&Caption = ( *l 3ombre del *studiante @ su 3ota inal es  nombre  ) nd Sub 31.- 6rear un programa que permita leer un número ) verique si es par" o impar". Private Sub cmd9eri:car_Click() Dim n As Integer n = txtntrada&%ext I4 n 5 6 %7en I4 (n -od # = 6) %7en -sgBox (n  es par) *lse -sgBox (n  es impar) *nd I *lse -sgBox (Ingrese n!mero Positivo) nd I nd Sub 32.- 7ise8ar un programa que calcule el rea som%reada de la gura conociendo como dato de entrada el radio de la circunerencia. Private Sub cmdCalcular_Click() Dim r As Double Dim Acd As Double Dim Ac4 As Double Dim Area As Double r = txtntrada&%ext Acd = (#. r). (#. r) Ac4 = &""1. r. r Area = Acd , Ac -sgBox (Area  Area) r

Private Subcmds4_Click() Dim + As Double Dim 9 As Integer Dim A As Integer +=InputBox(N+adioO) A=.&".(+?#) 9=(.&".(+?#))0 I4 +56 %7en lblA&caption=(Nl area esO A) lbl9&caption=(N*l volumen esO 9) *lse -sgBox(NIngrese radio O) nd I nd Sub (5.-7ise8ar un programa que permita ;allar el rea ) volumen de un cu%o. Private SubcmdCub_Click() Dim ' As Double Dim 9 As Double Dim A As Double '=InputBox(N'adoO) A="#.' 9='? I4 '56 %7en lblA&caption=(Nl area esO A) lbl9&caption=(Nl volumen esO 9) *lse -sgBox(NIngrese 'ado O) *nd I nd Sub ('.-7ise8ar un programa que permita ;allar el volumen de un tu%o. Private Subcmd%ub_Click() Dim +" As Double Dim +# As Double Dim J As Double Dim 9 As Double +"=InputBox(N+adio "O) +#=InputBox(N+adio #O) J=InputBox(NAlturaO) 9=(#.&".J).((+"$+#)0#)(+#,+") I4 +#5+" %7en lbl9&caption=(Nl volumen esO 9) *lse -sgBox(NAseg!rese de introducir los radios respectivamente O) *nd I *nd Sub &0.-7ise8ar un programa que muestre el numero literal del 1 al 10

Dim n As Integer n=InputBox(N3umeroO) I4 (n5=" And n;="6) %7en I4 n = " %7en -sgBox(NEnoO) *nd I I4 n = # %7en -sgBox(NDosO) *nd I I4 n =  %7en -sgBox(N%resO) *nd I I4 n =  %7en -sgBox(NCuatroO) *nd I I4 n = 8 %7en -sgBox(NCincoO) *nd I I4 n = 1 %7en -sgBox(NSeisO) *nd I I4 n = < %7en -sgBox(NSieteO) *nd I I4 n = R %7en -sgBox(N>c7oO) *nd I I4 n = 2 %7en -sgBox(N3ueveO) *nd I I4 n = "6 %7en -sgBox(NDieTO) *nd I *lse -sgBox(NIngrese n!mero entre " @ "6O) *nd I *nd Sub