Ejercicio Programacion Comision‏

Ejercicio Comision

Public Class Form1

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

Dim ventas As Single

Dim comision As Single

Dim valcomision As Single

TextBox1.Text = ventas

TextBox2.Text = comision

If (ventas >= 3000000) Then

valcomision = ventas * comision / 100

TextBox3.Text = "Comision: " + CStr(valcomision)

Else

TextBox3.Text = "Ventas inferiores a 3000000"

End If

End Sub

End Class