ak47suk1

nsbasic math addition

Sep 26th, 2013
61
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' We convert textbox3 to String for better practice
  2. Function Button1_onclick()
  3.   ' convert to double precision for correct decimal value
  4.  a = CDbl(TextBox1.value)
  5.   ' convert to double precision for correct decimal value
  6.  b = CDbl(TextBox2.value)
  7.   ' Automatic typeno need double precision here
  8.  c = a + b
  9.   TextBox3.value=CStr(c)
  10. End Function
RAW Paste Data