问题描述：
用VB编写一个三角函数(tan\sin\cos这些计算,以及数值与角度的运算)例如tan45=1,π=3.14等.
这是小组作业,编程一个计算器,让我负责三角函数转化一块,明天就交了!
方便的话可以直接将那个文件传到百度知道.
这是小组作业,编程一个计算器,让我负责三角函数转化一块,明天就交了!
方便的话可以直接将那个文件传到百度知道.
问题解答：
我来补答
给你个例子参考：
代码如下：
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
代码如下：
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
展开全文阅读