Question

用VB编写一个三角函数(tan\sin\cos这些计算,以及数值与角度的运算)例如tan45=1,π=3.14等.急求啊

这是小组作业，编程一个计算器，让我负责三角函数转化一块，我不会啊。明天就交了！分我不会吝啬！
方便的话可以直接将那个文件传到百度知道。万分感谢

Answer 1

给你个例子参考：

代码如下：

Option Explicit

Private Sub Command1_Click()

Dim y As Double

Dim Scr As Object

Dim dss As String

dss = UCase(Text1.Text)        '读取代数式

Set Scr = CreateObject("MSScriptControl.ScriptControl")

Scr.Language = "Vbscript"

y = Scr.Eval(dss)

Text2.Text = y

End Sub

Private Sub Command2_Click()

  End

End Sub

追问

首先很感谢您能回答。我负责计算器里的三角，您给我的能整合到一个计算器的程序里面吗？

追答

当然可以！你应该把代码和界面两个方面整合过去就可以了。

你主要解决三角函数，而我这个对任意有意义的函数，都可以的呀！例如：你输入

3.1 * sin(2*5.8) - 2.3 ^ 5 + 1.23

或者输入：3 * 2.45 ^ 3 + 2 * 2.45 ^ 2 - 3* 2.45 + 200