作业帮 > 综合 > 作业

VB里如何做个可以计算sin和cos的计算器? 求代码

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/11 21:00:38
VB里如何做个可以计算sin和cos的计算器? 求代码
在文本框中输入一个弧度 可以在标签里显示出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) 注意&是英文半角的不是中午全角的 &和前后字符都应该有空格