Historia de mexico

Solo disponible en BuenasTareas
  • Páginas : 4 (876 palabras )
  • Descarga(s) : 0
  • Publicado : 5 de octubre de 2010
Leer documento completo
Vista previa del texto
VISUAL BASIC
Programa 1
Automóviles

Public Class Form1
Dim M As String
Dim D, T As Double

Private Sub calcular_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles calcular.Click
D = TxtD.Text
M = TxtM.Text
If (D = 1) Then
T = 500
TxtT.Text = T

End If
If (D >= 2) ThenT = (500 - 50) * D
TxtT.Text = T
End If
If (D >= 10) Then
T = 500 * D
TxtT.Text = T
End If
End Sub
End Class

Programa2
Vinatería

Public Class Form1
Dim P, C, T As Double
Private Sub calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcular.Click
P =TxtP.Text
C = TxtC.Text
T = C * P
If (C = 1) Then
TxtT.Text = T
End If
If (C >= 2) Then
P = T - (T * 0.15)
TxtT.Text = PMsgBox(" eres nuestro mejor cliente")
End If
End Sub
End Class

Programa 3
Vinatería

Public Class Form1
Dim N As String
Dim Ap, Sd, Dl, St, A As DoublePrivate Sub calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcular.Click
Ap = TxtAp.Text
Sd = TxtSd.Text
Dl = TxtDl.Text
A= (Sd * Dl) * 0.25
TxtA.Text = A
If (Ap = 10) Or (Ap = 20) Then
A = (Sd * Dl) * 0.25
St = (Sd * Dl) + A
TxtSt.Text = St
ElseTxtSt.Text = Sd * Dl
End If
End Sub
End Class

Programa 4
agencia

Public Class Form1
Dim N As String
Dim Ed, An, Dl, Sd, D As Double

Private Subdeterminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles determinar.Click
Ed = TxtEd.Text
An = TxtAn.Text
Dl = TxtDl.Text
Sd = TxtSd.Text...
tracking img