33272.9999999999..., or 33273
from
DefDbl A-Z
Dim crlf$
Function mform$(x, t$)
a$ = Format$(x, t$)
If Len(a$) < Len(t$) Then a$ = Space$(Len(t$) - Len(a$)) & a$
mform$ = a$
End Function
Private Sub Form_Load()
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
DoEvents
pi = Atn(1) * 4
v = Tan(pi / 9) ^ 6 + Tan(2 * pi / 9) ^ 6 + Tan(4 * pi / 9) ^ 6
Text1.Text = Text1.Text & v & crlf
Text1.Text = Text1.Text & " done"
End Sub
|
Posted by Charlie
on 2015-01-26 13:24:51 |