Consulta examen online

Universidad Pedagógica Nacional Francisco Morazán







Programa Especial Universitario de Formación Docente
PREUFOD

Ejercicios: Estructuras de control


Asignatura:Programación Orientada a Objetos


Catedrático: Ing. Marco Valle

Presentado Por: *Edgardo Leonel Canales Alvarado
*Alma Rosa Padilla Flores
*BelkisDamarys Calderón Erazo




Sección: ¨f¨




San Pedro Sula, Cortes
27 de Marzo del 2013



1. Este programa calcular el descuento de un artículo. Utilizando el ciclo Case.Public Class frmdescuento

Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click
Dim subtotal As Double
Dimdescuento As Double
Dim total As Double
subtotal = txtsubtotal.Text
Select Case cbodescuento.Text
Case "10"
descuento = subtotal * 0.1Case "20"
descuento = subtotal * 0.2
Case "30"
descuento = subtotal * 0.3
End Select
txtodescuento.Text = descuento
total =subtotal - descuento
txttotal.Text = total

End Sub

Private Sub btnnuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnuevo.Clicktxtodescuento.Text = ""
txtsubtotal.Text = ""
txttotal.Text = ""
cbodescuento.Text = ""


End Sub

Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnsalir.Click
End
End Sub
End Class








2. Este programa multiplica las tablas del 0 al 12 usando el ciclo For
Public Class frmtabla

PrivateSub txtnumero_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnumero.TextChanged
If IsNumeric(txtnumero.Text) Then
Dim N As Integer...