Option Explicit
Private Sub cmd1_Click()
If Val(txt1.Text) > 709 Then 若文本框txt1.中输入的数值大于709
txt2.Text = "数值过大,请重新输入"则在txt2.显示 "数值过大,请重新输入"
Else若文本框txt1输入的数值小于709
txt2.Text = Exp(Val(txt1.Text))计算e^x的数值并在txt2只中输出结果
End If
End Sub
Private Sub cmd2_Click() cmd2、cmd3、cmd4同理
If Val(txt1.Text) > 308 Then
txt2.Text = "数值过大,请重新输入"
Else
txt2.Text = 10 ^ (Val(txt1.Text))
End If
End Sub
Private Sub cmd3_Click()
If Val(txt1.Text) <= 0 Then
txt2.Text = "不是有效数值!"
Else
txt2.Text = Log(Val(txt1.Text))
End If
End Sub
Private Sub cmd4_Click()
If Val(txt1.Text) <= 0 Then
txt2.Text = "不是有效数值!"
Else
txt2.Text = Log(Val(txt1.Text)) / Log(10)
End If
End Sub
Private Sub cmd5_Click()
txt1.Text = ""
txt2.Text = ""
End Sub
Private Sub cmd6_Click()
End
End Sub
成品图
分享到:
相关推荐
基于VB编写的科学计算器。 可计算三角函数,反三角函数,对数。
三角函数的计算“sin”“cos”“tan”“cot”,按上档键有反三角函数计算“arcsin”“arccos”“arctan”“arccot”,对数的运算“log”“ln”,圆周率PI,自然底数E,开方“”取余“”阶乘“”,幂运算“”“”“”...
很久就想编一个这样的计算器,只可惜一直没什么思路,最近突然灵感来了,所以就写下 这个程序。现在还在测试阶段,所以功能不是很完善。 程序功能:基本的表达式运算,可以自定义函数跟常量,分别保存在 “常数....
普通计算带6个运算符,函数计算带有四个三角函数、两个精确值函数、平方根、对数、反对数、以n为底的对数……时间计算精确到一毫秒(每毫秒更新)还有计算输出功能。以后随时更新。
冰城动力计算器功能介绍! 1,基本计算功能:加,减,乘,除,乘方。 2,分数计算功能:可以计算分数的加,减,乘,除,乘方。 3,数学计算功能:计算排列,组合,阶乘,三角函数的计算, 复数I的N次方,对数LOG...
关键文件 HugeCalc.dll 虽然很小,却提供了公共函数接口 709 个(标准C++接口 473 个;标准C接口 236 个),且其计算速度完全可与大型专业数学工具软件媲美! 现已提供了如下功能: ⊙ 高精度快速加法 ⊙ 高...
很久就想编一个这样的计算器,只可惜一直没什么思路,最近突然灵感来了,所以就写下 这个程序。现在还在测试阶段,所以功能不是很完善。 程序功能:基本的表达式运算,可以自定义函数跟常量,分别保存在 “常数....
关键文件 HugeCalc.dll 虽然很小,却提供了公共函数接口 709 个(标准C++接口 473 个;标准C接口 236 个),且其计算速度完全可与大型专业数学工具软件媲美! <br> 现已提供了如下功能: <br> ⊙ 高精度快速...
关键文件 HugeCalc.dll 虽然很小,却提供了公共函数接口 701 个(标准C++接口 469 个;标准C接口 232 个),且其计算速度完全可与大型专业数学工具软件媲美! 现已提供了如下功能: ⊙ 高精度快速加法 ⊙ ...