Guest User

Untitled

a guest
Apr 26th, 2014
71
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Btigual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btigual.Click
  2.  
  3. b = Val(TxtCalc.Text)
  4.  
  5. Select Case OP
  6.  
  7. Case "Suma"
  8. resultado = a + b
  9. TxtCalc.Text = resultado
  10.  
  11. Case "Menos"
  12. resultado = a - b
  13. TxtCalc.Text = resultado
  14.  
  15. Case "Multi"
  16. resultado = a * b
  17. TxtCalc.Text = resultado
  18.  
  19. Case "Div"
  20. resultado = a / b
  21. TxtCalc.Text = resultado
  22.  
  23. Case "Elevado"
  24. resultado = Math.Pow(a, b)
  25. TxtCalc.Text = resultado
  26.  
  27. Case "Porcento"
  28. resp = b / 100
  29. resultado = resp * a
  30. TxtCalc.Text = resultado
  31.  
  32. End Select
  33.  
  34. End Sub
RAW Paste Data