- #1

MotoH

- 31

- 2

the code:

Code:

```
Public Class Form1
' Imports System.Math
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Double = TextBox1.Text
Dim B As Double = TextBox2.Text
MsgBox((A ^ 2 + B ^ 2) ^ (1 / 2))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim A As Double = TextBox3.Text
Dim C As Double = TextBox4.Text
MsgBox((C ^ 2 - A ^ 2) ^ (1 / 2))
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim A As Decimal = TextBox5.Text
MsgBox("cos" & " " & Math.Cos(A))
MsgBox("sin" & " " & Math.Sin(A))
MsgBox("tan" & " " & Math.Tan(A))
End Sub
End Class
```

The first part of the code is for the Pythagorean Theorem knowing A and B, or AorB and C.

The second part will give me the sine, cosine and tangent of an angle in a message box in decimal form.

The questions I have:

Is there a command that will make the answers appear in fraction form? I am assuming this will replace the "As Decimal" but I can't find anything in the book I have or on the microsoft website.

Are there inverse sine, cosine and tangent commands? So I can turn the fraction back into the angle (in radians or degrees)

Please forgive me if it is very simple! I am still learning!