作业帮 > 综合 > 作业

VB编写三角函数的程序

来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/26 19:29:52
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))

谢谢了 好久没用忘完啦 求指点
拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.
还有,你要求的是什么尽量用数学的方式表达出来,有图更好
至于你的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 转换类型为单精度或双精度类型,这要看的的需求了,不过通常做这种三角函数的时候用双精度类型比较合适.
VB编写三角函数的程序 求用vb编写下面的程序 编写一个计算个人所得税的程序（用VB编写） 请编写下列图形的VB程序 For循环结构 vb编写一个用于求随机数的程序 VB编写程序 用来计算m的n次方 用vb编写一个用于求随机数的程序, 如何用VB语言编写这个程序? VB编写程序 用计算机模拟掷骰子游戏.编写程序统计掷N次后各点数出现的次数 VB编写程序 计算1~100内3的倍数的数的和 编写VB程序,求满足三位数中的各个数位之和大于13的数的个数. VB,编写程序,找出7的倍数中十位数为2的所有3位数.