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

    2014-03-19 14:40:30
    VB做计算器
  • vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器...
  • 你在用VB做计算器吗?错误怎么处理

    千次阅读 2015-04-22 10:55:54
    我在高中时用VB语言完成过一个计算器程序,它叫Runner. 如果简单计算器只有在特殊情况下会出现错误: 显示错误. 除0; 运算的数字过大,过小. 显示错误由于VB的文本框全权由自己管理,你要防止用户不小心输入了两个...

    我在高中时用VB语言完成过一个计算器程序,它叫Runner.
    VB
    如果简单计算器只有在特殊情况下会出现错误:

    1. 显示错误.
    2. 除0;
    3. 运算的数字过大,过小.

    显示错误

    由于VB的文本框全权由自己管理,你要防止用户不小心输入了两个小数点.或者输入两个00在开头之类的.这种处理当时耗费了很长时间.幸得当时的计算机老师王老师所助,她为我找了不少代码,供我学习思考.我当时将文本框作为中间存储区.
    输入->过滤->文本框->运算赋值

    除0

    这是很容易想到的.我在做除法运算的时候,判断第二个除数是否为0,如果是0,则弹出错误窗口.然后不执行结果.
    (回想当年对程序的设计,就仿佛在刚才(~ o ~)~)

    运算数字过大或者过小

    解决方案:

    1限制输入:

    限制文本框最大接收文本.可以达到这个目的.但是不想废除连算功能.
    在连算比如:多次平方后还是可以爆掉.

    2如果检测到上一次结果达到了最大运算平方的根.

    那么弹出错误窗口.然后不执行结果.

    更好的解决方案是通过异常机制来完成.
    以下代码来自百度问答

    Private Sub Command1_Click()
        Dim A As Integer
    
        '截获错误
        On Error GoTo Err1
    
        'A为整型变量赋值40000会溢出
        A = 40000  '这时会跳到Err1处执行错误处理
    
        '给A重新赋值并消息提示A
        A = 30000
        MsgBox A
    
        Exit Sub
    
    '错误处理
    Err1:
        MsgBox "出错了!" & vbCrLf & "错误编号:" & Err.Number & " 错误描述:" & Err.Description
    
        '返回出错语句的下一句继续执行余下的代码
        Resume Next
    End Sub
    展开全文
  • 感觉一般,计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB
  • vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器...
  • 模仿windows,差逻辑而已模仿windows,差逻辑而已模仿windows,差逻辑而已模仿windows,差逻辑而已
  • 计算器VB源码计算器VB源码计算器VB源码计算器VB源码计算器VB源码计算器VB源码计算器VB源码计算器VB源码计算器VB源码
  • 以前回答其他人的Option ExplicitPrivate StoredValue As DoublePrivate Const opNone = 0Private Const opAdd = 1Private Const opSubtract = 2Private Const opMultiply = 3Private Const opDivide = 4Private ...

    以前回答其他人的

    Option Explicit

    Private StoredValue As Double

    Private Const opNone = 0

    Private Const opAdd = 1

    Private Const opSubtract = 2

    Private Const opMultiply = 3

    Private Const opDivide = 4

    Private Operator As Integer

    Private NewEntry As Boolean

    '删除最后的字符

    Private Sub DeleteCharacter()

    Dim txt As String

    Dim min_len As Integer

    txt = txtDisplay。

    Text

    If Left$(txt, 1) = "-" Then

    min_len = 2

    Else

    min_len = 1

    End If

    If Len(txt) > min_len Then

    txtDisplay。

    Text = Left$(txt, Len(txt) - 1)

    Else

    txtDisplay。Text = "0"

    End If

    End Sub

    '清除显示内容,保存运算符

    Private Sub cmdClear_Click()

    cmdClearEntry_Click

    StoredValue = 0

    Operator = opNone

    End Sub

    '清除显示内容

    Private Sub cmdClearEntry_Click()

    txtDisplay。

    Text = ""

    End Sub

    ' 显示小数点

    Private Sub cmdDecimal_Click()

    If InStr(txtDisplay。

    Text, "。") Then

    Beep

    Else

    If NewEntry Then

    txtDisplay。Text = "。"

    NewEntry = False

    Else

    txtDisplay。

    Text = txtDisplay。Text & "。"

    End If

    End If

    End Sub

    '计算上一操作符的运算结果

    Private Sub cmdEquals_Click()

    Dim new_value As Double

    If txtDisplay。

    Text = "" Then

    new_value = 0

    Else

    new_value = CDbl(txtDisplay。Text)

    End If

    Select Case Operator

    Case opNone

    StoredValue = new_value

    Case opAdd

    StoredValue = StoredValue new_value

    Case opSubtract

    StoredValue = StoredValue - new_value

    Case opMultiply

    StoredValue = StoredValue * new_value

    Case opDivide

    StoredValue = StoredValue / new_value

    End Select

    Operator = opNone

    NewEntry = True

    txtDisplay。

    Text = Format$(StoredValue)

    End Sub

    ' 显示数字

    Private Sub cmdNumber_Click(Index As Integer)

    If NewEntry Then

    txtDisplay。

    Text = Format$(Index)

    NewEntry = False

    Else

    txtDisplay。Text = txtDisplay。Text & Format$(Index)

    End If

    End Sub

    Private Sub cmdOperator_Click(Index As Integer)

    cmdEquals_Click

    Operator = Index

    NewEntry = True

    End Sub

    '改变符号

    Private Sub cmdPlusMinus_Click()

    If NewEntry Then

    txtDisplay。

    Text = "-"

    ElseIf Left$(txtDisplay。Text, 1) = "-" Then

    txtDisplay。Text = Right$(txtDisplay。Text, 2)

    Else

    txtDisplay。

    Text = "-" & txtDisplay。Text

    End If

    End Sub

    '处理键盘按键

    Private Sub Form_KeyPress(KeyAscii As Integer)

    txtDisplay_KeyPress KeyAscii

    End Sub

    Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

    txtDisplay_KeyUp KeyCode, Shift

    End Sub

    Private Sub txtDisplay_Change()

    txtDisplay。

    SelStart = Len(txtDisplay。Text)

    End Sub

    Private Sub txtDisplay_GotFocus()

    txtDisplay_Change

    End Sub

    Private Sub txtDisplay_KeyPress(KeyAscii As Integer)

    Dim ch As String

    ch = Chr$(KeyAscii)

    Select Case ch

    Case "0"

    cmdNumber_Click 0

    Case "1"

    cmdNumber_Click 1

    Case "2"

    cmdNumber_Click 2

    Case "3"

    cmdNumber_Click 3

    Case "4"

    cmdNumber_Click 4

    Case "5"

    cmdNumber_Click 5

    Case "6"

    cmdNumber_Click 6

    Case "7"

    cmdNumber_Click 7

    Case "8"

    cmdNumber_Click 8

    Case "9"

    cmdNumber_Click 9

    Case "*", "x", "X"

    cmdOperator_Click opMultiply

    Case " "

    cmdOperator_Click opAdd

    Case vbCrLf, vbCr, "="

    cmdEquals_Click

    Case "-"

    cmdOperator_Click opSubtract

    Case "。

    "

    cmdDecimal_Click

    Case "/"

    cmdOperator_Click opDivide

    Case "C", "c"

    cmdClearEntry_Click

    End Select

    KeyAscii = 0

    End Sub

    Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode

    Case vbKeyNumpad0

    cmdNumber_Click 0

    Case vbKeyNumpad1

    cmdNumber_Click 1

    Case vbKeyNumpad2

    cmdNumber_Click 2

    Case vbKeyNumpad3

    cmdNumber_Click 3

    Case vbKeyNumpad4

    cmdNumber_Click 4

    Case vbKeyNumpad5

    cmdNumber_Click 5

    Case vbKeyNumpad6

    cmdNumber_Click 6

    Case vbKeyNumpad7

    cmdNumber_Click 7

    Case vbKeyNumpad8

    cmdNumber_Click 8

    Case vbKeyNumpad9

    cmdNumber_Click 9

    Case vbKeyMultiply

    cmdOperator_Click opMultiply

    Case vbKeyAdd

    cmdOperator_Click opAdd

    Case vbKeySeparator

    cmdEquals_Click

    Case vbKeySubtract

    cmdOperator_Click opSubtract

    Case vbKeyDecimal

    cmdDecimal_Click

    Case vbKeyDivide

    cmdOperator_Click opDivide

    Case vbKeyBack, vbKeyDelete

    DeleteCharacter

    End Select

    KeyCode = 0

    End Sub。

    全部

    展开全文
  • <%@ Page Language="VB" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> Class Ent Public Shared total, num1, num2 As ...
  • VB 调用计算器

    2010-06-08 08:43:43
    VB 调用计算器 VB 调用计算器 VB 调用计算器
  • vb6 计算器

    2015-05-20 12:41:46
    vb6 计算器
  • VB代码计算器

    2013-03-12 11:29:05
    VB代码计算器
  • VB计算器 计算器代码 VB计算器代码

    热门讨论 2009-03-14 14:51:37
    这只是作者本人没事的时候的一个计算器,大家可参考可批评
  • vb 简单计算器

    2008-07-11 16:09:28
    vb 简单计算器 vb 简单计算器
  • vb标准计算器.exe

    2021-01-31 17:37:18
    vb标准计算器.exe
  • 基于VB计算器

    2019-01-18 16:40:32
    基于VB计算器开发,可以用于平时的VB作业或者讨论交流!
  • VB简易计算器制作

    2018-03-19 21:24:38
    VB极简快速计算器制作,大学生作业实例,简单的VB程序计算器,应用了简单函数以及commandbutton还有label
  • vb简易计算器

    2015-05-03 13:02:24
    vb简易计算器,可实现加,减,乘,除,小数点,清零等功能,代码简单可靠。
  • vb做计算器 能实现简单的计算功能,对初学者很有帮助。
  • VB.NET计算器

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

    2014-07-03 11:08:21
    vb科学计算器,用于多种算数符号的运算。
  • vb.net 计算器

    2017-11-03 10:14:21
    vb开发的一款计算器,简介实用,界面美观,很适合刚学vb的同学借鉴参考
  • VB迷你计算器

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

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

    2010-09-13 07:28:54
    vb08计算器作业及代码vb08计算器作业及代码vb08计算器作业及代码vb08计算器作业及代码
  • VB年龄计算器

    2014-04-16 12:09:58
    VB年龄计算器 布局简单 通过计算起止日期时间差得出 某人已活天数 其中DTPicker控件可以学习一下用法。 适合个人学习研究

空空如也

空空如也

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

vb做计算器