Historia de mexico
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...
Regístrate para leer el documento completo.