精华内容
下载资源
问答
  • VB实现计算器

    2013-06-29 20:54:43
    这个是VB实现的简单计算器,简单的代码,实现了加、减、乘、除、清零。
  • VB 实现 计算器

    2008-11-26 19:40:08
    VB 实现计算器,很实用的代码! 值得一看!
  • vb中如何实现backspace的功能呢? 算法是怎样的
  • vb简易计算器

    2015-05-03 13:02:24
    vb简易计算器,可实现加,减,乘,除,小数点,清零等功能,代码简单可靠。
  • VB.NET计算器

    2014-04-17 21:45:06
    VB.NET计算器,功能实现的不错,代码简洁易懂,对于学习VB.NET有很大的帮助,分数不多,挺辛苦的
  • VB迷你计算器

    2018-01-01 03:22:16
    一个简单的VB计算器,可以实现四则运算,就开始德哈卡实践活动科维奇hi去韩流文化球队是US皇帝回萨达斯U盾和杀敌噢我回
  • vb 简易计算器

    2011-11-14 15:26:16
    vb编程实现计算器的基本功能,例如:加减乘除。适用于vb初学者。
  • vb智能计算器

    2018-10-13 17:12:52
    可以实现智能计算器基本最基本的计算,用VB计算器似乎有很多例子,这个代码就是其中之一,科学计算器是在基本计算器的基础上,加入角度、弧度、梯度、正切、余切、正弦余弦、平方根等的数学计算,当然基础的加减...
  • VB实现计算器

    2008-05-18 14:34:43
    VB实现了一个简单的计算器,大家可以拷去代码,希望能给大家一点帮助,也望大家提出更好的建议和意见!
  • VB.Net计算器

    2014-06-01 23:01:43
    本程序是用VB.Net开发的小工具------计算器。 主要实现功能:基本四则运算,平方根运算。计算器显示运算式,以方便用户查对,基本形式类似Win7下面的自带计算器功能。 提示: 开发环境是Win7、Microsoft Visual ...
  • (包含所有计算函数,并非用脚本组件msscript.ocx实现)支持运算符+,-,*,/,\(整除),%(求余),^(乘方)和任意正确括号的嵌套。如输入"1+(2*3+4^5)/6-7"即可得到结果165.666666666667。希望对你有所帮助。
  • vb6.0计算器

    2012-03-17 16:11:51
    绝对物超所值啊,用vb编的简单计算器,能实现加减乘除,清除,除法结果保持4位小数,如9/8=1.1250
  • vb 编写 计算器

    2011-05-04 16:51:55
    这是一个最简单的计算器,用vb程序开发。内容比较简单 可以实现简单的加减乘除等最基本的运算。
  • VB.net 计算器

    2018-11-19 18:59:17
    .net framework 4 client profile 实现基本加减乘除 一次仅支持两个数加减乘除
  • VB简单计算器

    2013-10-29 16:53:48
    女声朗读,可以实现+-*/的复合运算,比较适合初学者,代码原文件都有
  • VB.NET 计算器

    2010-10-23 17:31:46
    VB.NET 有加减乘除、小数点,功能已实现
  • vb.net 计算器

    2010-11-19 14:35:53
    很好的vb.net作业 能实现简单的小学生用的计算功能
  • vb6计算器代码

    2012-09-09 21:18:43
    实现了加减乘除的计算器,能够支持比较多的位数
  • 摘 要 我用 VB 制作这个程序的简单计算器它包括一个标准的计算器 和一个科学计算器它可以实现简单的加减乘除四则运算数字的平 方平方根正弦余弦正切倒数指数函数对数函数角度 弧度梯度的转换以及各进制的相互转换...
  • vb实现的简易计算器计算器虽小但是五脏俱全
  • 一个功能比较多的VB计算器程序,俗称“科学计算器”,程序用到了两个控件:DCSysTray.ocx和HookMenu.ocx。本计算器不但可实现简单的加减乘除运算,还可进行高级数学运算,比如三角函数、反三角函数、双曲三角函数、...
  • VB.NET 计算器增强版

    2009-12-07 21:07:50
    初学VB.net 上次发了一个VB.net 2008 做的计算器,这回对上次那个计算器进行了升级,增加了许多功能(有些功能其实对于计算器来说没有必要,但我只是为了学习VB.net,所以把常用的控件几乎都在这个计算器实现了一下!...
  • VB 实现的简易计算器

    2013-09-18 17:21:08
    使用VB语言开发的简易计算器。 支持小数,加减乘除; 含有输入控制,使输入不会混乱; 能显示所有输入的表达式,并一起运算; 代码中使用了两个分析栈,数字和运算符,输入完成后,使用一个函数对栈中数字采用对应...
  • Vb6.0 计算器程序

    2011-03-27 00:28:14
    实现windows xp 平台下计算器的功能,平且配有注释,非常适合刚入门的vb菜鸟.如果出现bug的,请在评论中提出,我继续修正.
  • VB.NET实现计算器

    千次阅读 2007-03-21 09:36:00
    Dim bolDot As Boolean Dim dblACC1, dblACC2 As Double Dim dblACC3 As Double = 10 Dim strOp As String Private Sub add_num(ByVal intNumber As Integer) If bolDot Then
      
    

     

    Dim bolDot As Boolean

        Dim dblACC1, dblACC2 As Double

        Dim dblACC3 As Double = 10

        Dim strOp As String

        Private Sub add_num(ByVal intNumber As Integer)

            If bolDot Then

                dblACC1 = dblACC1 + intNumber / dblACC3

                dblACC3 *= 10

            Else

                dblACC1 = dblACC1 * 10 + intNumber

            End If

            txtResult.text = CStr(dblACC1)

     

        End Sub

        Private Sub action(ByVal strCurrentop As String)

            Select Case strOp

                Case Is = "+"

                    dblACC2 = dblACC2 + dblACC1

                    dblACC1 = 0

                Case Is = "-"

                    dblACC2 = dblACC2 - dblACC1

                Case Is = "*"

                    dblACC2 = dblACC2 * dblACC1

                    dblACC1 = 0

                Case Is = "/"

                    dblACC2 = dblACC2 / dblACC1

                    dblACC1 = 0

                Case Is = "="

                Case Else

                    dblACC2 = dblACC1

                    dblACC1 = 0

            End Select

            strOp = strCurrentop

            txtResult.Text = dblACC2

            bolDot = False

            dblACC3 = 10

    End Sub

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click

            Call add_num(0)

        End Sub

     

        Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

            Call add_num(1)

        End Sub

     

        Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

            Call add_num(2)

        End Sub

     

        Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click

            Call add_num(3)

        End Sub

     

        Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click

            Call add_num(4)

        End Sub

     

        Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click

            Call add_num(5)

        End Sub

     

        Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click

            Call add_num(6)

        End Sub

     

        Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click

            Call add_num(7)

        End Sub

     

        Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click

            Call add_num(9)

        End Sub

     

        Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click

            Call add_num(9)

        End Sub

     

        Private Sub btndot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndot.Click

            bolDot = True

        End Sub

     

        Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click

            Call action("+")

        End Sub

     

        Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click

            Call action("-")

        End Sub

     

        Private Sub btntimes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntimes.Click

            Call action("*")

        End Sub

     

        Private Sub btndivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndivide.Click

            Call action("/")

        End Sub

     

        Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

            dblACC1 = 0

            dblACC2 = 0

            dblACC3 = 10

            bolDot = False

            strOp = ""

            txtResult.Text = ""

        End Sub

     

        Private Sub btnPi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPi.Click

            dblACC1 = Math.PI

            dblACC3 = 10

            bolDot = False

            txtResult.Text = dblACC1

     

        End Sub

     

        Private Sub btnSQRt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSQRt.Click

            dblACC1 = Math.Exp(Math.Log(dblACC1) / 2)

            dblACC3 = 10

            bolDot = False

            txtResult.Text = dblACC1

        End Sub

    End Class

     

    展开全文
  • Vb编写的一个简单计算器,功能可以扩充,可以实现简单的加减乘除
  • vb做的计算器实现简单的计算功能,对初学者很有帮助。
  • vb实现的一个简易计算器,实用易于修改!
  • VB编写的计算器代码,一款不错的VB小工具

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,929
精华内容 771
关键字:

vb实现计算器