Programacion

CALCULAR IRTRA, IGSS PARA SUELDO DE TRABAJADOR

Public Class Form1

Public sueldo As Integer
Public IGSS As Double
Public Irtra As Double

Private Sub Button1_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

sueldo = Val(TextBox1.Text)

TextBox2.Text = sueldo / 4.83
TextBox3.Text = sueldo / 4.8End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()TextBox3.Clear()
TextBox1.Focus()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End ClassCALCULAR EL VOLUMEN DE UN CILINDRO
Public Class Form1
Dim pi As Double
Dim volumen As Double
Dim altura As Integer
Dim radio As Double
Dim p As Double
Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
p = 3.141516
altura = Val(TextBox1.Text)
radio = Val(TextBox2.Text)volumen = (radio * 2 * p) * altura
TextBox3.Text = Str(volumen)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox1.Focus()
End Sub

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

CONVERSION DE LITROS A GALONES
Public Class Form1
Dim litros As Double
Dim li As Double
Dim galones As DoublePrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
li = 3.78
litros = Val(TextBox1.Text)
galones = litros / li...