Ejercicio Radio Button

RADIO BUTTON

Quiz Segundo Corte

QUIZ SEGUNDO CORTE

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim ventas As DecimalDim tipo As StringDim basico As DecimalDim antiguedad As SingleDim comision As DecimalDim sueldo As Decimalventas = TextBox1.Text
tipo = TextBox2.Text
basico = TextBox3.Text
antiguedad = TextBox4.Text
If (tipo = "medio") ThenIf (ventas < 5000000) Thencomision = ventas * 0.15
Elsecomision = ventas * 0.3
End IfEnd IfIf (tipo = "completo") ThenIf (ventas < 5000000) Thencomision = ventas * 0.1
Elsecomision = ventas * 0.2
End IfEnd IfIf (antiguedad <= 0) Thenbasico = basico * 0.4
If (antiguedad = 3) Thenbasico = basico * 0.6
Elsebasico = basico * 1
End IfEnd Ifsueldo = basico + comision
TextBox5.Text =
　
"Sueldo: " + CStr(sueldo)End Sub

Ejercicio Programacion Tipo de Contrato‏ Sueldo Ventas‏

Ejercicio Tipo de Contrato

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim ventas As Decimal
Dim basico As Decimal
Dim tipo As String
Dim comision As Decimal
Dim sueldo As Decimal
ventas = TextBox1.Text
basico = TextBox2.Text
tipo = TextBox3.Text
If (tipo = "medio") Then
basico = basico / 2
If (ventas < 3000000) Then
comision = ventas * 0.03
sueldo = basico + comision
Else
If (ventas < 7000000) Then
comision = ventas * 0.05
sueldo = basico + comision
Else
comision = ventas * 0.07
sueldo = basico + comision
End If
End If
Else
If (ventas < 7000000) Then
comision = ventas * 0.07
sueldo = basico + comision
Else
If (ventas < 13000000) Then
comision = ventas * 0.09
sueldo = basico + comision
Else
comision = ventas * 0.12
sueldo = basico + comision
End If
End If
End If
TextBox4.Text = "Sueldo: " + CStr(sueldo)
End Sub
End Class

Ejercicio Programacion Sueldo Ventas‏

Ejercicio Sueldo Ventas

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim ventas As Decimal
Dim basico As Decimal
Dim comision As Decimal
Dim sueldo As Decimal
ventas = TextBox1.Text
basico = TextBox2.Text
If (ventas < 3000000) Then
comision = ventas * 0.03
sueldo = basico + comision
Else
If (ventas < 7000000) Then
comision = ventas * 0.05
sueldo = basico + comision
Else
sueldo = basico + ventas * 0.07
End If
End If
TextBox3.Text = "Sueldo: " + CStr(sueldo)
End Sub
End Class

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

Ejercicio Programación Triangulo‏

Ejercicio Triangulo

Public Class Form1

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

Dim l1 As Single

Dim l2 As Single

Dim l3 As Single

l1 = TextBox1.Text

l2 = TextBox2.Text

l3 = TextBox3.Text

If (l1 = l2 And l2 = l3) Then

TextBox4.Text = "Equilatero"

Else

If (l1 <> l2) And (l1 <> l3) And (l2 <> l3) Then

TextBox4.Text = "Escaleno"

Else

TextBox4.Text = "Isoseles"

End If

End If

End Sub

End Class

Ejercicio Programación Random‏

EJERCICIO RANDOM (Rnd())

Public Class Form1

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

Dim num1 As Single

Dim num2 As Single

num1 = TextBox1.Text

num2 = CInt(Int((6 * Rnd())) + 1)

TextBox2.Text = CStr(num2)

If (num1 <= num2) Then

textbox3.text = "Perdio"

Else

TextBox3.Text = "Ganó"

End If

End Sub

End Class