CALCULADORA BÁSICA

Private Sub cmddivision_Click()
lbloperation.Caption = "/"

End Sub

Private Sub cmdmultiplicacion_Click()
lbloperation.Caption = "*"

End Sub

Private Sub cmdresta_Click()
lbloperation.Caption = "-"

End Sub


Private Sub cmdresultado_Click()
If lbloperation.Caption = "+" Then
lblresultado = Val(textvalor1.Text) + Val(textvalor2.Text)
Else
If lbloperation.Caption = "-" Then
lblresultado = Val(textvalor1.Text) - Val(textvalor2.Text)
Else
If lbloperation.Caption = "*" Then
lblresultado = Val(textvalor1.Text) * Val(textvalor2.Text)
Else
If lbloperation.Caption = "/" Then
lblresultado = Val(textvalor1.Text) / Val(textvalor2.Text)
End If
End If
End If
End If
End Sub

Private Sub Cmdsuma_Click()
lbloperation.Caption = "+"

End Sub

CRUCIGRAMA - VISUAL BASIC

PROYECTO 1-VISUAL BASIC

Private Sub cmdcambiar_Click()
lbltexto.Caption = "Kelly Tatiana"
lbltexto.Visible = True
lbltexto.Appearance = 0
lbltexto.BackColor = &HFFC0C0

End Sub

ACTIVIDAD-SOPA DE LETRAS

Botones-Visual Basic