Ejercicios de programación .net (nivel inicial)

Public Class Form7
Dim mensual As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim sueldo, sueldo1 As Double
Dim año As Integer
Dim nombre As String
mensual = 40000 / 12
año = Val(TextBox3.Text)
nombre = TextBox1.Text
If año > 10 Then
sueldo1 = mensual * 0.1
ElseIf año >= 5 Then
sueldo1 = mensual * 0.07
ElseIf año >= 3 Then
sueldo1 = mensual * 0.05
Else
sueldo1 = mensual * 0.03
End If
TextBox5.Text = sueldo1
If año >= 10 Then
sueldo = mensual + (mensual * 0.1)
ElseIf año >= 5 Then
sueldo = mensual + (mensual * 0.07)
ElseIf año >= 3 Then
sueldo = mensual + (mensual * 0.05)
Else
sueldo = mensual + (mensual * 0.03)
End If
TextBox2.Text = mensual
TextBox4.Text = nombre & " " & " recibe: $" & sueldo
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
End
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
mensual = 40000 / 12
TextBox2.Text = mensual
TextBox6.Text = Date.Now
End Sub
End Class
Leonel Navarrete