求助高手一个三角函数公式,如何用VB写出来?Private Sub Form_Load()Dim a,b,c,s1,s2 As Doublea = Text1.Textb = Text2.Textc = a + bs1 = Cos(a * 3.14 / 180)s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)Text3.Text = s1Text4.Text = s2End Sub目的
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/24 00:48:09
求助高手一个三角函数公式,如何用VB写出来?
Private Sub Form_Load()
Dim a,b,c,s1,s2 As Double
a = Text1.Text
b = Text2.Text
c = a + b
s1 = Cos(a * 3.14 / 180)
s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)
Text3.Text = s1
Text4.Text = s2
End Sub
目的是为了用
cos(α+β)=cosαcosβ-sinαcosβ
获取a、b,然后分别输出等式两边的值验证.
可是在试运行的时候老出错.
我只是看着书上的,一直没实践过.
很多基础的都不会.
都写到这个地步了 还上网来问?
Dim a,b,c,k1,k2,s1,s2 As Double
a = Value(Text1.Text);
b = Value(Text2.Text);
k1=a * 3.14 / 180;
k2=b* 3.14 / 180;
s2 = Cos(k1) * Cos(k2) - Sin(k1) * Sin(k2);
s1=cos(K1+K2);
貌似如此!最进在学C++ 语法全乱套.
你的伪代码写的都全了,怎么不去实践实践!
求助高手一个三角函数公式,如何用VB写出来?Private Sub Form_Load()Dim a,b,c,s1,s2 As Doublea = Text1.Textb = Text2.Textc = a + bs1 = Cos(a * 3.14 / 180)s2 = Cos(a) * Cos(b) + Sin(a) * Sin(b)Text3.Text = s1Text4.Text = s2End Sub目的
如何用三角函数计算三角形的度数公式?写出有关公式详细点
如何用数学三角函数公式求边
一元二次方程求根公式式如何用VB程序编辑
求助高手如何用chemdraw 画个古怪的图
excel中如何用公式求反三角函数
如何用单位圆和诱导公式判断三角函数符号
如何用VB随机取一个整数(无范围)?
如何用VB编写一个由*组成的倒三角形 *** *
如何用和角公式(或其他三角函数公式)推出半角公式?
如何用matlab语言描述以下公式,在线等高手》》》》》》》》》》》
求助如何用labview编一个数据采集系统,
请教高手::一个 用matlab计算组合数 的问题matlab如何用公式或函数求图中简单问题!
如何用VB统计汉字个数rt
如何快速理解三角函数的诱导公式?我不能快速运用!如何用它们解题?
vb中如何用随机方式产生一个今天的时间
如何用公式算
诱导公式如何用