Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- x = Val(Text1.Text) + Val(Text2.Text) / 2
- y = Val(Text1.Text) - x ^ 2
- z = Val(Text2.Text) - x ^ 2
- yz = y + z
- yyz = yz - 1
- Function sqr() As Single
- Text3.Text = sqr(yyz)
- End Function
- End Sub
Add Comment
Please, Sign In to add comment