• 首页

    • 这个VB计算器怎么编？

    知识点：(1)控件数组；(2)字符串处理；
    1. 题目介绍
    本题目要求编制一个“计算器”程序，实现加、减、乘、除等简单运算。
    2. 功能要求
    (1)“计算器”界面。包含的功能有：加、减、乘、除运算
    (2)要求计算器上数字0-9为一个控件数组，加、减、乘、除为一个控件数组，存储清0(0→M)、存储显示(RM)、存储相加(M十)为一个控件数组。
    (3)输入的原始数据、运算中间数据和结果数据都显示在窗口顶部的同一个文本框中。程序应自动判断输入数据的正确性，保证不出现多于一个小数点、以“0”开头等不正常现象。
    (6)计算器有一个存储器，可以存储一个值。当存储器中的数值不是0时会在计算器的显示屏左上角显示一个“M”，否则“M”消失。
    “0→M”按钮可以将存储器中的数值清 O。“M十”按钮将当前显示的值加到存储器中(即与存储器中原有的值相加后再存入存储器中)。“RM”按钮可以调出存储器中的数值显示到计算器的显示屏上，并可参与当前进行的计算。
    (7)每按一次“→”按钮可以删除当前显示数据的最后一位，当全部删除后显示“0”：“C”按钮可以清除所有已输入的数据从头计算；“CE”按钮只清除当前输入的数据，重新输入数据可以继续当前计算。
    (8)要求计算器可以“连算”，即前一次计算的结果自动当作下一次计算的第一个数。不要求考虑优先级问题，即不要求先乘除后加减。比如依次输入“3+3×3”是先算出6然后乘3得18。
    (10)单击计算器右上角的OFF按钮，关闭程序。

    推荐答案   2012-02-13
    首先，用VB随便建个窗体，保存，然后关闭VB。然后用记事本打开form1.frm文件，把里边的内容全部清除掉，并粘贴如下代码，保存，再打开此工程，即可看到：
    另可能在运行时，会提示没有启动窗体或Sub Main（），点确定，在启动对象中选择第二个Calculator即可。

    VERSION 5.00
    Begin VB.Form Calculator
    BorderStyle = 1 'Fixed Single
    Caption = "计算器"
    ClientHeight = 2970
    ClientLeft = 2580
    ClientTop = 1485
    ClientWidth = 3270
    ClipControls = 0 'False
    BeginProperty Font
    Name = "System"
    Size = 9.75
    Charset = 0
    Weight = 700
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    LinkMode = 1 'Source
    LinkTopic = "Form1"
    MaxButton = 0 'False
    PaletteMode = 1 'UseZOrder
    ScaleHeight = 2970
    ScaleWidth = 3270
    WhatsThisHelp = -1 'True
    Begin VB.CommandButton Number
    Caption = "7"
    Height = 480
    Index = 7
    Left = 120
    TabIndex = 7
    Top = 600
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "8"
    Height = 480
    Index = 8
    Left = 720
    TabIndex = 8
    Top = 600
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "9"
    Height = 480
    Index = 9
    Left = 1320
    TabIndex = 9
    Top = 600
    Width = 480
    End
    Begin VB.CommandButton Cancel
    Caption = "C"
    Height = 480
    Left = 2040
    TabIndex = 10
    Top = 600
    Width = 480
    End
    Begin VB.CommandButton CancelEntry
    Caption = "CE"
    Height = 480
    Left = 2640
    TabIndex = 11
    Top = 600
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "4"
    Height = 480
    Index = 4
    Left = 120
    TabIndex = 4
    Top = 1200
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "5"
    Height = 480
    Index = 5
    Left = 720
    TabIndex = 5
    Top = 1200
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "6"
    Height = 480
    Index = 6
    Left = 1320
    TabIndex = 6
    Top = 1200
    Width = 480
    End
    Begin VB.CommandButton Operator
    Caption = "+"
    Height = 480
    Index = 1
    Left = 2040
    TabIndex = 12
    Top = 1200
    Width = 480
    End
    Begin VB.CommandButton Operator
    Caption = "-"
    Height = 480
    Index = 3
    Left = 2640
    TabIndex = 13
    Top = 1200
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "1"
    Height = 480
    Index = 1
    Left = 120
    TabIndex = 1
    Top = 1800
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "2"
    Height = 480
    Index = 2
    Left = 720
    TabIndex = 2
    Top = 1800
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "3"
    Height = 480
    Index = 3
    Left = 1320
    TabIndex = 3
    Top = 1800
    Width = 480
    End
    Begin VB.CommandButton Operator
    Caption = "X"
    Height = 480
    Index = 2
    Left = 2040
    TabIndex = 14
    Top = 1800
    Width = 480
    End
    Begin VB.CommandButton Operator
    Caption = "/"
    Height = 480
    Index = 0
    Left = 2640
    TabIndex = 15
    Top = 1800
    Width = 480
    End
    Begin VB.CommandButton Number
    Caption = "0"
    Height = 480
    Index = 0
    Left = 120
    TabIndex = 0
    Top = 2400
    Width = 1080
    End
    Begin VB.CommandButton Decimal
    Caption = "."
    Height = 480
    Left = 1320
    TabIndex = 18
    Top = 2400
    Width = 480
    End
    Begin VB.CommandButton Operator
    Caption = "="
    Height = 480
    Index = 4
    Left = 2040
    TabIndex = 16
    Top = 2400
    Width = 480
    End
    Begin VB.CommandButton Percent
    Caption = "%"
    Height = 480
    Left = 2640
    TabIndex = 17
    Top = 2400
    Width = 480
    End
    Begin VB.Label Readout
    Alignment = 1 'Right Justify
    BackColor = &H0000FFFF&
    BorderStyle = 1 'Fixed Single
    Caption = "0."
    BeginProperty Font
    Name = "MS Sans Serif"
    Size = 12
    Charset = 0
    Weight = 700
    Underline = 0 'False
    Italic = 0 'False
    Strikethrough = 0 'False
    EndProperty
    ForeColor = &H00000000&
    Height = 375
    Left = 120
    TabIndex = 19
    Top = 105
    Width = 3000
    End
    End
    Attribute VB_Name = "Calculator"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    ' --------------------------------------------------------------------------
    ' 版权所有 (C) 1994 Microsoft Corporation
    '
    ' 您可以免费以任何方式使用、修改、复制并分发您认为有用的
    ' 示例应用程序文件 (或任何修改过的版本)。Microsoft 对任何
    ' 示例应用程序文件不做任何保证，不负任何责任和义务。
    ' --------------------------------------------------------------------------
    Option Explicit
    Dim Op1, Op2 ' 前面输入的操作数
    Dim DecimalFlag As Integer ' 小数点仍然存在吗？
    Dim NumOps As Integer ' 操作数个数
    Dim LastInput ' 指示上一次按键事件的类型
    Dim OpFlag ' 指示未完成的操作
    Dim TempReadout

    ' C (取消) 按钮的 Click 事件过程
    ' 重新设置显示并初始化变量
    Private Sub Cancel_Click()
    Readout = Format(0, "0.")
    Op1 = 0
    Op2 = 0
    Form_Load
    End Sub

    ' CE (取消输入) 按钮的 Click 事件过程
    Private Sub CancelEntry_Click()
    Readout = Format(0, "0.")
    DecimalFlag = False
    LastInput = "CE"
    End Sub

    ' 小数点 (.) 按钮的 Click 事件过程
    ' 如果上一次按键为运算符，初始化 readout 为 "0."；
    ' 否则显示时追加一个小数点
    Private Sub Decimal_Click()
    If LastInput = "NEG" Then
    Readout = Format(0, "-0.")
    ElseIf LastInput <> "NUMS" Then
    Readout = Format(0, "0.")
    End If
    DecimalFlag = True
    LastInput = "NUMS"
    End Sub

    ' 窗体的初始化过程
    ' 设置所有变量为其初始值
    Private Sub Form_Load()
    DecimalFlag = False
    NumOps = 0
    LastInput = "NONE"
    OpFlag = " "
    Readout = Format(0, "0.")
    'Decimal.Caption = Format(0, ".")
    End Sub

    ' 数字键 (0-9) 的 Click 事件过程
    ' 向显示中的数追加新数
    Private Sub Number_Click(Index As Integer)
    If LastInput <> "NUMS" Then
    Readout = Format(0, ".")
    DecimalFlag = False
    End If
    If DecimalFlag Then
    Readout = Readout + Number(Index).Caption
    Else
    Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")
    End If
    If LastInput = "NEG" Then Readout = "-" & Readout
    LastInput = "NUMS"
    End Sub

    ' 运算符 (+, -, x, /, =) 的 Click 事件过程
    ' 如果接下来的按键是数字键，增加 NumOps。
    ' 如果有一个操作数，则设置 Op1。
    ' 如果有两个操作数，则将 Op1 设置为 Op1 与
    ' 当前输入字符串的运算结果，并显示结果
    Private Sub Operator_Click(Index As Integer)
    TempReadout = Readout
    If LastInput = "NUMS" Then
    NumOps = NumOps + 1
    End If
    Select Case NumOps
    Case 0
    If Operator(Index).Caption = "-" And LastInput <> "NEG" Then
    Readout = "-" & Readout
    LastInput = "NEG"
    End If
    Case 1
    Op1 = Readout
    If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then
    Readout = "-"
    LastInput = "NEG"
    End If
    Case 2
    Op2 = TempReadout
    Select Case OpFlag
    Case "+"
    Op1 = CDbl(Op1) + CDbl(Op2)
    Case "-"
    Op1 = CDbl(Op1) - CDbl(Op2)
    Case "X"
    Op1 = CDbl(Op1) * CDbl(Op2)
    Case "/"
    If Op2 = 0 Then
    MsgBox "除数不能为 0", 48, "计算器"
    Else
    Op1 = CDbl(Op1) / CDbl(Op2)
    End If
    Case "="
    Op1 = CDbl(Op2)
    Case "%"
    Op1 = CDbl(Op1) * CDbl(Op2)
    End Select
    Readout = Op1
    NumOps = 1
    End Select
    If LastInput <> "NEG" Then
    LastInput = "OPS"
    OpFlag = Operator(Index).Caption
    End If
    End Sub

    ' 百分比键 (%) 的 Click 事件过程
    ' 计算并显示第一个操作数的百分数
    Private Sub Percent_Click()
    Readout = Readout / 100
    LastInput = "Ops"
    OpFlag = "%"
    NumOps = NumOps + 1
    DecimalFlag = True
    End Sub
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2012-02-13
    这个悬赏有点对不起那么大的题目啊，哈哈，参考一下楼上兄弟吧。
    第2个回答  2012-02-13
    连邮箱都没有

    相关了解……

    你可能感兴趣的内容

    大家正在搜
    计算器怎么编游戏怎么用vb做高档计算器用java编一个计算器vb做一个计算器用vb做个高档计算器VB代码实现计算器退格功能用vb编写计算器vb编写简易计算器vb编写科学计算器
    相关问题
    用vb 编写计算器怎么编
    怎么用VB编写计算器
    如何用vb编写简单计算器
    怎么编一个简单的VB计算器？
    vb 怎么编这个计算器的程序，越简单越好
    用VB编写计算器？
    怎样用VB编写简单的计算器程序？？
    怎么用vb6.0编一个计算器

    本站内容来自于网友发表，不代表本站立场，仅表示其个人看法，不对其真实性、正确性、有效性作任何的担保
    相关事宜请发邮件给我们
    © 非常风气网