用VB写计算器似乎有很多例子，这个代码就是其中之一，科学计算器是在基本计算器的基础上，加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的数学计算，当然基础的加减乘除运算就更不用说了，这是在一本VB教程中摘录的代码，你可以此为基础完善扩展该计算器的功能，运行截图如下：
核心代码，只有一个文件代码：
VERSION 5.00
Begin VB.Form Frm_Scientific
ClientHeight
ClientLeft
ClientWidth
LockControls
ScaleHeight
ScaleWidth
StartUpPosition =
mandButton Cmd_Rnd
mandButton Cmd_PI
mandButton Cmd_Fact
mandButton Cmd_Log
mandButton Cmd_Ln
mandButton Cmd_Square
mandButton Cmd_Cube
mandButton Cmd_Operator
mandButton Cmd_Exp
mandButton Cmd_Sin
mandButton Cmd_Cos
mandButton Cmd_Tan
mandButton Cmd_Atan
Begin VB.Frame Frame1
Begin VB.OptionButton Otn_Grd
Begin VB.OptionButton Otn_Rad
Begin VB.OptionButton Otn_Deg
mandButton Cmd_Operator
mandButton Cmd_Operator
'Graphical
mandButton Command1
mandButton Command1
mandButton Command1
mandButton Cmd_fraction
mandButton Cmd_sqrt
mandButton Cmd_C
mandButton Cmd_CE
mandButton Cmd_Backspace
&Backspace&
mandButton Cmd_Operator
mandButton Cmd_Operator
mandButton Cmd_Operator
mandButton Command1
mandButton Command1
mandButton Command1
mandButton Command1
mandButton Command1
mandButton Command1
mandButton Command1
mandButton Command1
mandButton Command1
Begin VB.TextBox Txt_Result
'Right Justify
Begin VB.Menu Menu_Edit
&编辑(&E)&
Begin VB.Menu Menu_Copy
Begin VB.Menu Menu_Paste
Begin VB.Menu Menu_Cut
Begin VB.Menu line1
Begin VB.Menu Menu_All
Begin VB.Menu line2
Begin VB.Menu Menu_Exit
Begin VB.Menu Menu_Help
&帮助(&H)&
Begin VB.Menu Menu_HelpSubject
&帮助主题(&H)&
Begin VB.Menu Menu_About
&关于计算器&
Attribute VB_Name = &Frm_Scientific&
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim que(25) As Double
Public qt As Integer
Public qh As Integer
Public qv As Integer
Public ang As Double
Public memo As Double
Dim dflag As Integer
Dim i As Integer
Dim opnre As Integer
Dim prev As Double
Dim oflag As Integer
Dim ind As Integer
Private Sub Cmd_Atan_Click()
Txt_Result.Text = Str((Atn(Val(Txt_Result.Text))) / ang)
prev = Txt_Result.Text
Private Sub Cmd_Backspace_Click()
If Txt_Result.Text = &0.& Then
If (Txt_Result.Text && &&) Then
Txt_Result.Text = Mid(Txt_Result.Text, 1, Len(Txt_Result.Text) - 1)
ElseIf Txt_Result.Text = && Then
Txt_Result.Text = &0.&
Private Sub Cmd_C_Click()
Txt_Result.Text = &0&
Private Sub Cmd_CE_Click()
Txt_Result = & 0&
Private Sub Cmd_Cos_Click()
Txt_Result.Text = Str(Cos(ang * Val(Txt_Result.Text)))
prev = Txt_Result.Text
Private Sub Cmd_Cube_Click()
Txt_Result.Text = Val(Txt_Result.Text) ^ 3
prev = Txt_Result.Text
Private Sub Cmd_Exp_Click()
'计算Exp的值
Txt_Result.Text = Exp(Txt_Result.Text)
prev = Txt_Result.Text
Private Sub Cmd_Fact_Click()
Txt_Result.Text = Str(fac(Val(Txt_Result.Text)))
prev = Txt_Result.Text
Private Sub Cmd_fraction_Click()
Temp = Val(Txt_Result.Text)
If Temp && 0 Then
Txt_Result.Text = Str(1 / Temp)
Txt_Result.Text = &除数不能为零。&
prev = Txt_Result.Text
Private Sub Cmd_Ln_Click()
If Val(Txt_Result.Text) & 0 Then
Txt_Result.Text = Str(Log(Val(Txt_Result.Text)))
Txt_Result.Text = &输入有误。&
prev = Txt_Result.Text
Private Sub Cmd_Log_Click()
If Val(Txt_Result.Text) & 0 Then
Txt_Result.Text = Str((Log(Val(Txt_Result.Text)) / Log(10)))
Txt_Result.Text = &输入有误。&
prev = Txt_Result.Text
Private Sub Cmd_Operator_Click(Index As Integer)
' 单击操作符按钮
If opnre = 0 Or Index = 4 Then
If ind = 3 Then
prev = prev + Val(Txt_Result.Text)
ElseIf ind = 2 Then
prev = prev - Val(Txt_Result.Text)
ElseIf ind = 0 Then
If Val(Txt_Result.Text) = 0 Then
Txt_Result.Text = &除数不能为零。&
prev = prev / Val(Txt_Result.Text)
ElseIf ind = 5 Then
prev = prev ^ Val(Txt_Result.Text)
ElseIf ind = 1 Then
prev = prev * Val(Txt_Result.Text)
If prev = 0 Then
'如果前一个操作数为0
prev = Txt_Result.Text
'将当前的值传给操作数
Txt_Result.Text = Str(prev)
'将操作数的值传递给文本框显示
ind = Index
Private Sub Cmd_PI_Click()
Txt_Result.Text = 3.
prev = Txt_Result.Text
Private Sub Cmd_Rnd_Click()
'产生一个随机数
Txt_Result.Text = Str(Rnd)
Private Sub Cmd_Sin_Click()
Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text)))
prev = Txt_Result.Text
Private Sub Cmd_sqrt_Click()
Dim Temp As Integer
Temp = Val(Txt_Result.Text)
If Temp & 0 Or Temp = 0 Then
Txt_Result.Text = Str(Sqr(Val(Txt_Result.Text)))
Txt_Result.Text = &函数输入无效。&
Private Sub Cmd_Square_Click()
Txt_Result.Text = Val(Txt_Result.Text) ^ 2
prev = Txt_Result.Text
Private Sub Cmd_Tan_Click()
If (Cos(Val(Txt_Result.Text))) && 0 Then
Txt_Result.Text = Str(Sin(ang * Val(Txt_Result.Text)) / Cos(ang * Val(Txt_Result.Text)))
Txt_Result.Text = &除数不能为零。&
prev = Txt_Result.Text
Private Sub Command1_Click(Index As Integer)
If ind = 4 Then
Txt_Result.Text = & &
If oflag = 0 Then
Txt_Result.Text = & &
If Command1(Index).Caption && &.& Then
If Txt_Result.Text && &0.& Then
Txt_Result.Text = Txt_Result.Text & Command1(Index).Caption
Txt_Result.Text = & & & Command1(Index).Caption
If dflag = 0 Then
Txt_Result.Text = Txt_Result.Text & &.&
Txt_Result.Text = &输入有误。&
Private Sub Form_Load()
Clipboard.Clear
Private Sub Menu_All_Click()
Clipboard.Clear
Clipboard.SetText Txt_Result.Text
Private Sub Menu_Copy_Click()
Clipboard.Clear
Clipboard.SetText Txt_Result.Text
Private Sub Menu_Cut_Click()
Clipboard.Clear
Clipboard.SetText Txt_Result.Text
Txt_Result.Text = &&
Private Sub Menu_Exit_Click()
Private Sub Menu_HelpSubject_Click()
MsgBox &未开通帮助功能。&, vbCritical
Private Sub Menu_Paste_Click()
Txt_Result.Text = &&
Txt_Result.Text = Clipboard.GetText()
Private Sub Otn_Deg_Click()
If Otn_Deg = True Then
ang = 3. / 180
Private Sub Otn_Grd_Click()
If Otn_Grd.Value = True Then
ang = 3. / 200
Private Sub Otn_Rad_Click()
If Otn_Rad.Value = True Then
入：num(Long) - 要计算阶乘的数
出：(Long) -
'**功能描述：计算一个小于12的数的阶乘
Function fac(num As Long) As Long
If (num & 0 Or num = 0) Then
Txt_Result.Text = &输入的数值有误。&
If (num & 12) Then
Txt_Result.Text = &输入的数值过大。&
While (num & 0)
re = re * num
num = num - 1
End Function
VB科学计算器代码，新建一工程后引入上述代码文件编译即可。
本类推荐文章
本类最新更新
最新源码下载君，已阅读到文档的结尾了呢~~
用VB编写计算器程序,用vb编写计算器,用vb编写简单计算器,用vb编写科学计算器,用vb编写简易计算器,vb编写计算器,vb编写简易计算器,vb简易计算器程序,vb计算器程序,如何用vb制作计算器
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
用VB编写计算器程序
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口计算器VB程序.doc
扫描二维码，下载文件到手机
相关文档推荐
当前文件信息
浏览：462次
下载：25次
您的VIP会员已过期，是否续费？
用户应遵守著作权法，尊重著作权人合法权益，不违法上传、存储并分享他人作品。举报邮箱：
京网文[0号 京ICP证100780号用VB编写计算器程序_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
用VB编写计算器程序
大小：33.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢}