vb 编写一个三角函数的程序!帮帮忙阿~
编写一个三角函数程序。用户选择输入的弧度或角度值,然后选择程序支持的三角按钮(sincostan等),程序计算出相应的结果并显示出来。要求分别用两组单选按钮作输入选择和计...
编写一个三角函数程序。用户选择输入的弧度或角度值,然后选择程序支持的三角按钮(sin cos tan等),程序计算出相应的结果并显示出来。要求分别用两组单选按钮作输入选择和计算选择,用文本框作输入控件,标签作输出控件。
展开
1个回答
展开全部
'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")
End Sub
Private Sub Option2_Click()
Label1.Caption = "cos值" & Format(Cos(Text1.Text), "0.000")
End Sub
Private Sub Option3_Click()
Label1.Caption = "tan值" & Format(Tan(Text1.Text), "0.000")
End Sub
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")
End Sub
Private Sub Option2_Click()
Label1.Caption = "cos值" & Format(Cos(Text1.Text), "0.000")
End Sub
Private Sub Option3_Click()
Label1.Caption = "tan值" & Format(Tan(Text1.Text), "0.000")
End Sub
来自:求助得到的回答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询