VB里如何做个可以计算sin和cos的计算器? 求代码
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/30 13:24:40
VB里如何做个可以计算sin和cos的计算器? 求代码
在文本框中输入一个弧度 可以在标签里显示出sin的值 不知道代码怎么编
在文本框中输入一个弧度 可以在标签里显示出sin的值 不知道代码怎么编
Const PI=3.141592653 '定义π
Dim a
a = (Val(Text1.Text)) * PI / 180 '将Text1.Text由角度转为弧度
Label1.Caption = Math.Sin(a) '在Label1.Caption中输出,cos同理
这个是有误差的,因为π是不精确的,如果你能不断提高π的精度,算出的结果越精确
希望对你有所帮助和启发
再问: dim是什么意思?
再答: 声明一个变量
再问: Val是什么意思?
再答: 将后面的参数强制转化为整数型,可以避免非数字的输入导致程序错误
再问: Private Sub Command1_Click() Label1.Caption = "sin("&text1.text&" )="&Sin(text1.text) End Sub 我想在label里表达sin=XX 这样的形式 用这个代码为什么不行 是哪里写错了吗
再答: Label1.Caption = "sin(" & text1.text & " )=" & Sin(text1.text) 注意&是英文半角的不是中午全角的 &和前后字符都应该有空格
Dim a
a = (Val(Text1.Text)) * PI / 180 '将Text1.Text由角度转为弧度
Label1.Caption = Math.Sin(a) '在Label1.Caption中输出,cos同理
这个是有误差的,因为π是不精确的,如果你能不断提高π的精度,算出的结果越精确
希望对你有所帮助和启发
再问: dim是什么意思?
再答: 声明一个变量
再问: Val是什么意思?
再答: 将后面的参数强制转化为整数型,可以避免非数字的输入导致程序错误
再问: Private Sub Command1_Click() Label1.Caption = "sin("&text1.text&" )="&Sin(text1.text) End Sub 我想在label里表达sin=XX 这样的形式 用这个代码为什么不行 是哪里写错了吗
再答: Label1.Caption = "sin(" & text1.text & " )=" & Sin(text1.text) 注意&是英文半角的不是中午全角的 &和前后字符都应该有空格
VB里如何做个可以计算sin和cos的计算器? 求代码
VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码
如何使用VB做个加减乘除的小计算器
求有数字按键的简单vb计算器代码,
我想在用VB作一个科学计算器,怎样实现sin.cos.tan等功能代码怎么写
求个可以将一个句子中的中文和英文分开并分行显示的VB代码
计算器计算sin tan cos
tan,cos,sin的特殊值可以不用计算器而用什么公式计算出来吗?
vb计算代码,求三个数的和,求最大数减最小数
怎样用科学计算器来计算cos和sin.
请问什么样的计算器可以算SIN 、COS、TAN等?
如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~