用VB编写一个三角函数(tan\sin\cos这些计算,以及数值与角度的运算)例如tan45=1,π=3.14等.这是小组作业,编程一个计算器,让我负责三角函数转化一块,明天就交了!方便的话可以直接将那个文件传到

用VB编写一个三角函数(tan\sin\cos这些计算,以及数值与角度的运算)例如tan45=1,π=3.14等.这是小组作业,编程一个计算器,让我负责三角函数转化一块,明天就交了!方便的话可以直接将那个文件传到
用VB编写一个三角函数(tan\sin\cos这些计算,以及数值与角度的运算)例如tan45=1,π=3.14等.
这是小组作业,编程一个计算器,让我负责三角函数转化一块,明天就交了!
方便的话可以直接将那个文件传到百度知道.

用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