寻找一种vb计算器 最好能固定小数点后15位的 还有sin和开方功能的 像图片这种的 20
黄先生
2024-12-27 广告
2024-12-27 广告
矩阵切换器就是将一路或多路视音频信号分别传输给一个或者多个显示设备,如两台电脑主机要共用一个显示器,矩阵切换器可以将两台电脑主机上的内容renyi切换到同一个或多个显示器上;迈拓维矩矩阵切换器种类齐全,性价比高,支持多种控制方式,为工程商采...
点击进入详情页
本回答由黄先生提供
展开全部
这个简单,VB 都有现成函数了,下面是个参考
Option Explicit
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '正弦
Text2.Text = Format(Sin(Text1.Text * (3.14 / 180)), "0.000000000000000")
Case 1 '余弦
Text2.Text = Format(Cos(Text1.Text * (3.14 / 180)), "0.000000000000000")
Case 2 '正切
Text2.Text = Format(Tan(Text1.Text * (3.14 / 180)), "0.000000000000000")
Case 3 '平方
Text2.Text = Format(Text1.Text * Text1.Text, "0.000000000000000")
Case 4 '开方
Text2.Text = Format(Sqr(Text1.Text), "0.000000000000000")
Case 5 '1/x
If Text1.Text <> 0 Then
Text2.Text = Format(1 / Text1.Text, "0.000000000000000")
Else
MsgBox "除数不能为0"
Text1.Text = ""
End If
Case 6 '清空
Text1.Text = ""
Text2.Text = ""
Case 7 '退出
End
End Select
End Sub
Option Explicit
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '正弦
Text2.Text = Format(Sin(Text1.Text * (3.14 / 180)), "0.000000000000000")
Case 1 '余弦
Text2.Text = Format(Cos(Text1.Text * (3.14 / 180)), "0.000000000000000")
Case 2 '正切
Text2.Text = Format(Tan(Text1.Text * (3.14 / 180)), "0.000000000000000")
Case 3 '平方
Text2.Text = Format(Text1.Text * Text1.Text, "0.000000000000000")
Case 4 '开方
Text2.Text = Format(Sqr(Text1.Text), "0.000000000000000")
Case 5 '1/x
If Text1.Text <> 0 Then
Text2.Text = Format(1 / Text1.Text, "0.000000000000000")
Else
MsgBox "除数不能为0"
Text1.Text = ""
End If
Case 6 '清空
Text1.Text = ""
Text2.Text = ""
Case 7 '退出
End
End Select
End Sub
追问
把代码复制去那里,怎么弄呢
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询