VB编写三角函数的程序
我是这么编写的 里面中文是不会的地方
dim a as integer
dim bas integer
dim c as integer
dim d as integer
private sub commandbutton2_click()
a1=textbox1.text
a2=textbox2.text
a3=textbox3.text
a4=textbox4.text
a5=textbox5.text
c1=textbox7.text
c2=textbox8.text
c3=textbox9.text
c4=textbox10.text
c5=textbox11.text
d1=textbox14.text
d2=textbox15.text
d3=textbox16.text
d4=textbox17.text
d5=textbox18.text
d6=textbox19.text
d7=textbox20.text
c6=a5+d6
label18.caption=c6'这里就出现问题了 比如说我的a5=10,d6=5.则显示出来c6=105而不是15
c7=c6+d3
c8=sqr(d6*d6+d7*d7)'这里我不想要小数点后面的了，取整数
b1=这里要编一个反正切a2/a5 的度数
b4=开平方（b2*b2+b3*b3+2*b2*b3*cos(b1))
谢谢了 好久没用忘完啦 求指点
还有，你要求的是什么尽量用数学的方式表达出来，有图更好
至于你的a5 d6 的问题，是因为你的是字符串运算而不是数值运算，转换一下类型就可以了
c6=clng(a5)+clng(d6)
取整数也要看你需不需要四舍五入，如果不需要，直接强制转换类型就可以了，如
c8=clng(sqr(clng(d6)*clng(d6)+clng(d7)*clng(d7)))
或
c8=int(sqr(clng(d6)*clng(d6)+clng(d7)*clng(d7)))
如果需要四舍五入可以用 Fix 来实现四舍五入取整，如
c8=Fix(sqr(cdbl(d6)*cdbl(d6)+cdbl(d7)*cdbl(d7)))
当然，如果你希望有小数，可以用如 csng 或 cdbl 转换类型为单精度或双精度类型，这要看的的需求了，不过通常做这种三角函数的时候用双精度类型比较合适。
2. c8=fix(sqr(d6*d6+d7*d7)) ，fix就是vb内置的取整函数。
3. b1=atn(a2/a5) ，atn就是vb内置的反正切函数。
4. b4=sqr(b2*b2+b3*b3+2*b2*b3*cos(b1)) ，sqr就是vb内置的开平方函数。追问
非常感谢 但是角度那个不对吧！默认的应该是弧度的 我要用角度 是不是要换算一下
追答你看看能不能求出弧度后，再通过什么数学公式转成角度，应该可以的吧。。。不过这种数学问题我不懂。。。帮不了你了。。
追问好的 谢谢 这个我会 问您一下 VB中π（3.14159,。。。。。。）是用pi表示吧！
追答不是的。vb默认没有π的，你要自己声明一个常量：
Const Pi as Double=3.1415926
然后才能引用Pi作为π
VB中的三角函数程序怎么写
Function ArcSin(X) As Double '反正弦ArcSin = Atn(X \/ Sqr(-X * X + 1))End Function Function ArcCos(X) As Double '反余弦ArcCos = Atn(-X \/ Sqr(-X * X + 1)) + 2 * Atn(1)End Function Function ArcSec(X) As Double '反正割ArcSec = Atn(X \/ Sqr(X * X - 1))...
vb求三角函数和画三角函数的程序代码
没有错，vb的三角函数计算的都是弧度，如果要计算角度需要转换一下。比如：const pi=3.14159265 y=sin(x*pi\/180)另外，这里无需再用val函数了，因为sin函数返回的本来就是一个double类型的数值。
vb 编写一个三角函数的程序!帮帮忙阿~
'sin cos tan Private Sub Form_Load()Text1.Text = "1"Label1.Caption = ""Option1.Caption = "sin"Option2.Caption = "cos"Option3.Caption = "tan"Me.Caption = "请输入角度"End Sub Private Sub Option1_Click()Label1.Caption = "sin值" & Format(Sin(Text1.Text), "0.000")...
用VB编写一个三角函数(tan\\sin\\cos这些计算,以及数值与角度的运算)例如...
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 Comman...
用VB 的INPUT 函数算三角 函数。怎么编?
x=val(inputbox("输入"))print sin(x)print cos(x)print tan(x)print atn(x)就这么简单
有谁知道VB编程中运算sin、cos、tan、cot的程序怎么写?
Atn()是VB反正切函数，VB不提供其他反三角函数，不过可以用下列公式导出：Inverse Sine （反正弦）：Arcsin(X) = Atn(X \/ Sqr(-X * X + 1))Inverse Cosine （反余弦）：Arccos(X) = Atn(-X \/ Sqr(-X * X + 1)) + 2 * Atn(1)Inverse Secant （反正割）：Arcsec(X) = Atn(X ...
VB编程的问题!会VB语言的请帮帮我!
在VB编程中，处理三角函数问题时，通常使用弧度作为计算单位。例如，计算角度值时，需先将度数转换为弧度。若要计算文本1所示的表达式，首先，需要理解其中的符号含义。Atn表示反正切函数，Cos表示余弦函数。在VB中，需要将角度转换为弧度进行计算。对于文本1中的第一部分：Atn(-0.5 \/ Sqr(-0.5 * 0...
VB求三角函数
If Combo1.Text = "求Tan" And Combo2.Text = "弧度" Then Label1.Caption = Tan(a1 * 3.14 \/ 180)If Combo1.Text = "求Sin" And Combo2.Text = "角度" Then Label1.Caption = Sin(a1)If Combo1.Text = "求Cos" And Combo2.Text = "角度" Then Label1.Caption = Cos(a1)...
如何用vb写反三角函数的运行程序
Option ExplicitConst pi = 3.41592654Private Sub Command1_Click() Dim x As Double, y As Double Dim asin As Double, d As Double x = Val(Text1.Text) If 300 + x = 0 Then Label2.Caption = "分母为0!" Exit Sub End If d = 150# \/ (300 + x) ...
如何用VB语言编写一个简易计算器含三角函数和求导数开方根?
／／产生异常，解决了异常，用这个肯定没有问题 import java.util.Scanner;public class Exam1 { public static void main(String args[]){ int[] ary = new int[5];int i = 0;while(i <= ary.length){ System.out.print("Please input an integer:");int value = 0;try{ ...
