ejemplos programas

Ejercicios De Lenguaje De Programación
Realizar La Suma De Dos Números Positivos Enteros
‘declaración de variables
Dim n1 as integer
Dim n2 as integer
Dim s as integer
Private Subcmdcalcular_Click()
'entrada de datos
n1 = Val(Me.txtnumero1.Text)
n2 = Val(Me.txtnumero2.Text)
'proceso de calculo suma
s = n1 + n2
'salida
Me.txtsuma.Text = Str(s)
End Sub

Realizar La Resta De DosNúmeros Positivos Enteros
‘declaración de variables
Dim n1 as integer
Dim n2 as integer
Dim r as integer

Private Sub cmdcalcular_Click()
'entrada de datos
n1 = Val(Me.txtnumero1.Text)
n2= Val(Me.txtnumero2.Text)
'proceso de calculo resta
r = n1 - n2
'salida
Me.txtsuma.Text = Str(r)
End Sub

Determinar la suma de N primeros números enteros positivos (Z^) use la siguienteformula: S = N ( N + 1 ) / 2
‘declaración de variables
Dim n as integer
Dim s as integer
Private Sub Label1_Click()
'entrada de datos
n = Val(Me.Text1numero.Text)'proceso de calculos
s = n * (n + 1) / 2
'salida
Me.Text1salida.Text = Str(s)
End Sub

Crear un programa que permita convertir una cantidad de segundos en Horas, minuto y segundos. El usuario ingresasegundos y el sistema convirtiendo en horas minutos segundos
‘declaración de variables
Dim c as integer
Dim m as integer
Dim s as integer
Dim h as integer
Private Sub cmdcalcular_Click()'entrada de datos
C = Val(Me.txtcantidad.Text)
'procesos
M = C / 60
S = M * 60
H = M / 60
'salida
Me.txthora.Text = Str(H)
Me.txtminutos.Text = Str(M)
Me.txtsegundos.Text = Str(S)
End SubCrea un programa para encontrar El área de un circulo use la siguiente formula:
A = 3.1416 * r ^ 2
‘declaración de variables
Dim a as integer
Dim v as integer
Private Sub cmdcalcular_Click()'entrada de datos
a = Val(Me.txtarea.Text)
'proceso
v = 3.1416 * (a ^ 2)
'salida
Me.txtresultado.Text = Str(v)
End Sub

Hallar la Potencia A^, donde A y N pertenece a Z^ (números enteros)Se...