Cfvb

PAR O IMPAR

Private Sub boton_click()

Dim valor@

valor = numero.Text

If (valor Mod 2 = 0) Then

lblresultado.Caption = "Par"

Else

lblresultado.Caption = "Impar"

End If

EndSub

SUMADORA

Private Sub btnsuma_click()

Dim numero1 As Integer

Dim numero2 As Integer

numero1 = txtnumero1.Text

numero2 = txtnumero2.Text

lblresultado.Caption = "=" & numero1 +numero2

End Sub

Private Sub form_load()

txtnumero1.Text = ""

txtnumero2.Text = ""

End Sub









RANGO

Private Sub btnverificar_Click()

Dim num@

num = txtnumero

Ifnum >= 10 And num = 0 Then

If a 0 And b 0 And c 0 Then

xx = ((-1) * b + ((b ^ 2 - 4 * a * c) ^ (1 / 2))) / (2 * a)

xy = ((-1) * b - ((b ^ 2 - 4 * a * c) ^ (1 / 2))) / (2 * a)lblsolucion.Caption = "x1 = " & xx & " x2=" & xy



Else

lblsolucion.Caption = "solucion igual a 0..."

End If

Else

lblsolucion.Caption = "solucion imaginaria"



End If

txta.Text = ""txtb.Text = ""

txtc.Text = ""

End Sub





CARACTER

Private Sub btnverificar_Click()

Dim caracter As String

caracter = txtcaracter

Select Case caracter



Case 0 To 9:lblresultado.Caption = "Es un numero"

Case "a" To "z": lblresultado.Caption = "Es una letra"

Case "A" To "Z": lblresultado.Caption = "Es una letra"

Case Else: lblresultado.Caption = "Es uncaracter especial"

End Select

End Sub

DIAS DE LA SEMANA

Private Sub btnverificar_Click()

Dim numero As String

numero = txtcaja.Text

Select Case numero

Case 1: lblresultado.Caption= "EL DIA ES LUNES"

Case 2: lblresultado.Caption = "EL DIA ES MARTES"

Case 3: lblresultado.Caption = "EL DIA ES MIERCOLES"

Case 4: lblresultado.Caption = "EL DIA ES JUEVES"

Case 5:lblresultado.Caption = "EL DIA ES VIERNES"

Case 6: lblresultado.Caption = "EL DIA ES SABADO"

Case 7: lblresultado.Caption = "EL DIA ES DOMINGO"

Case Else: lblresultado.Caption = "EL NUMERO ESTA...