寻找一种vb计算器 最好能固定小数点后15位的 还有sin和开方功能的 像图片这种的 20

 我来答
pieryon
2016-06-01
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部

vb计算器实现如下:能够固定小数点后15位,还有sin和开方功能,如图:

主要功能概述:

1、用户根据0-9数字键盘输入对应的操作数,也可以操作键盘上的数字键来书输入

2、点击sin,cos,tan,平方,开方,1/x可以完成特定运算,比如:

输入30,点击sin,结果如下:

3、点击清除可以消除文本框的内容,如:

4、点击退出,就关闭计算器。

黄先生
2024-12-27 广告
矩阵切换器就是将一路或多路视音频信号分别传输给一个或者多个显示设备,如两台电脑主机要共用一个显示器,矩阵切换器可以将两台电脑主机上的内容renyi切换到同一个或多个显示器上;迈拓维矩矩阵切换器种类齐全,性价比高,支持多种控制方式,为工程商采... 点击进入详情页
本回答由黄先生提供
crazy0qwer
2013-01-14
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部
这个简单,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
追问
把代码复制去那里,怎么弄呢
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
拾諒玖殇
2016-06-09
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部
在哪下载?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
?>

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式