精华内容
下载资源
问答
  • 简单计算器vb程序设计
  • VB课程设计 计算器

    2009-12-04 13:31:43
    大二上学期的VB课程设计 题目是设计一个科学计算器 这个程序设计得比较强大,欢迎下载
  • 南京理工大学 VB课程设计 计算器 程序功能全但代码不繁
  • 主要实现简单计算器功能的编程 简单计算器(一般基础)或科学计算器设计(较优,有先乘除后加减的功能)
  • vb简易计算器代码及界面设计
  • vb学习练习例子,帮助大家立即vb的使用!!!
  • 程序设计综合实践利用VB写的简单计算器,有记忆功能。
  • VB开发的计算器程序,课程设计可用,功能实现完整,内附源代码,亲测可用 功能包括课程设计的要求,完成基本加减乘除运算外还可以完成科学计算,如sin cos 阶乘,积分,存储保留结果,调用结果等等
  • 2015-11-03 回答1、在窗体上摆一个command1,...2、在窗体上摆一个label13、按钮名和标签名按以下程序中用的名称修改。'------------------------------------------------------------------------'版权所有(c)1994...

    2015-11-03 回答

    1、在窗体上摆一个command1,然后在窗体上复制粘贴command,直到你需要的按钮数。

    2、在窗体上摆一个label1

    3、按钮名和标签名按以下程序中用的名称修改。

    ' ------------------------------------------------------------------------

    '               版权所有 (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 "除数不能为零", 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

    展开全文
  • VB程序计算器

    2012-12-28 13:12:06
    VB程序计算器
  • 一个简单的VB程序语言设计计算器,可以给初学的同学看下,
  • vb做的计算器 能实现简单的计算功能,对初学者很有帮助。
  • 一个用vb做的计算器程序,很适合初学者使用.欢迎下载啊,呵呵
  • 这是用vb语言做的简单的计算器程序,能实现四则基本运算,还包括其他的一些复杂运算
  • vb课程设计下载有源程序,完整的计算器代码
  • 我用VB6 设计计算器,供学习VB 的朋友参考。
  • 熟悉VB集成开发环境及简单应用程序的建立,掌握VB6.0的启动与退出,了解VB6.0的集成开发环境,熟练掌握各主要窗口的使用,VB6.0应用程序的开发过程 ,了解VB6.0联机帮助的使用。
  • VB程序设计一个简易的计算器.txt
  • 大学VB课程设计,简单的桌面管理系统以及VB计算机,进制转换器~~~
  • vb 科学计算器 程序代码 函数,平方,立方等等
  • VB简易计算器制作

    2018-03-19 21:24:38
    VB极简快速计算器制作,大学生作业实例,简单的VB程序计算器,应用了简单函数以及commandbutton还有label
  • Op1 = CDbl(Op1) + CDbl(Op2) Case "-" Op1 = CDbl(Op1) - CDbl(Op2) Case "X" Op1 = CDbl(Op1) * CDbl(Op2) Case "/" If Op2 = 0 Then MsgBox "除数不能为零", 48, "计算器" Else Op1 = CDbl(Op1) / CDbl(Op2) End ...

    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 <> "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。

    ")

    End Sub

    '改变数字的正负号

    Private Sub negcmd_Click()

    If LastInput <> "OPS" Or OpFlag = "=" Then

    If Left(Readout, 1) <> "-" Then

    Readout = "-" & Readout

    Else

    Readout = Right(Readout, Len(Readout) - 1)

    End If

    End If

    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

    LastInput = "NUMS"

    End Sub

    ' 运算符 (+, -, x, /, =) 的 Click 事件过程

    ' 如果接下来的按键是数字键,增加 NumOps。

    ' 如果有一个操作数,则设置 Op1。

    ' 如果有两个操作数,则将 Op1 设置为 Op1 与

    ' 当前输入字符串的运算结果,并显示结果。

    Private Sub Operator_Click(Index As Integer)

    TempReadout = Readout

    If LastInput <> "OPS" Then

    NumOps = NumOps + 1

    End If

    Select Case NumOps

    Case 0

    '什么也不做

    Case 1

    Op1 = Readout

    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 "除数不能为零", 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

    LastInput = "OPS"

    OpFlag = Operator(Index)。

    Caption

    End Sub

    ' 百分比键 (%) 的 Click 事件过程

    Private Sub Percent_Click()

    If LastInput <> "OPS" Or OpFlag = "=" Then

    Readout = Readout / 100

    LastInput = "PER"

    DecimalFlag = True

    End If

    End Sub。

    全部

    展开全文
  • 超级计算器,能实现sin,cos,开方等功能
  • VB入门基础。 清楚易懂,适合初学者 本课程主要从开发环境、窗体、命令按钮、文本框、标签、消息框和输入框、代码基础、选择结构、循环结构、数组、过程、控件等方面进行讲解 ...

    立即学习:https://edu.csdn.net/course/play/5958/111700?utm_source=blogtoedu

    单击命令按钮,把文本框1和2里面的积显示在文本框3里面

    Private Sub Command1_Click()
    Text3.Text = Text1.Text * Text2.Text
    End Sub

    如果觉得文本框里面有内容不美观的话,就:

    Private Sub Form_Load()
    Text1.Text = ""
    Text2 = ""
    Text3 = ""
    End Sub

    还可以这么写

    Private Sub Command1_Click()
    a = Text1.Text
    b = Text2
    Text3 = a * b
    End Sub

    如果是加号的话,就会直接连接不计算,因为这是文本,如果想变成值,就加上val()

    展开全文
  • 华东交通大学?VB?课程设计报告 VB?课程设计(论文)任务书 土木建筑 学 院 测绘 专 业 2? 班 一课程设计(论文)题目? 滚动字幕板 二课程设计(论文)工作自?2011?...程序设计课程基本知识的理解和掌握了解?
  • “针对Vb初学者的计算器”是专门为Visual Basic初学者设计的小型计算器应用程序。 这个应用程序是用简单的变量、语句...编码的,Visual Basic 初学者可以很容易地理解这些,他们试图开发一个小型、高效、用户友好和...
  • 利用VB程序编写色环电阻阻值计算器摘 要:自工作以来一直从事中职计算机专业课教育教学工作,在工作之余经常发现学生对vb程序设计的学习热情普遍不高,学习积极性较低,学生觉得学习vb程序设计,没有什么实际用处。...

    利用VB程序编写色环电阻阻值计算器

    摘 要:自工作以来一直从事中职计算机专业课教育教学工作,在工作之余经常发现学生对vb程序设计的学习热情普遍不高,学习积极性较低,学生觉得学习vb程序设计,没有什么实际用处。针对这种情况,了解到计算机专业的学生,需要学习《电工基础》这门专业课,而其中的四色、五色色环电阻阻值的识别,是需要学生反复练习的,同时也是学生比较头痛的难题。于是萌发了利用vb程序设计开发一个小程序的想法,不但可以供学生练习识别色环电阻的阻值,而且可以激发学生学习vb程序设计的积极性,加强学生学习的主动性、自觉性,培养学生的探索精神和学习兴趣,开发学生的创造能力。主要介绍利用vb程序设计编写色环电阻阻值计算器,让学生了解一般程序的编写思路和过程,让学生了解vb程序设计的内涵。

    关键词:combobox组合框;色环电阻;阻值计算

    目前编写色环电阻阻值计算器的平台,主要有c语言、vb程序设计、网页,等等。本文主要通过vb程序设计编写四色色环电阻阻值计算器。

    一、vb程序设计介绍

    visual basic采用了面向对象的程序设计思想,面向对象的基本思路就是把复杂的程序设计问题分解,分解为若干个能够完成独立功能的、相对简单的对象集合。所谓“对象”就是一个可操作的实体,如窗体、命令按钮、标签、文本框等。面向对象的编程就好像

    展开全文
  • 计算器VB程序代码

    2008-11-14 09:12:33
    计算器程序代码 VB程序代码 VB课程设计
  • VB 程序设计报告.doc

    2020-12-01 00:07:30
    VB 程序设计报告 设计题目科学型简单计算器 程序简介 窗体出现后为一个科学型简单计算器可实现简单的加减乘除运算具有清零及退出功能 程序用到的主要控件 窗体form文本框textbox,命令按钮command button 程序用到的...
  • VB简易计算器

    2013-05-31 23:35:02
    vb设计的一款简单计算器,内含代码,程序,全部详细文件

空空如也

空空如也

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

vb程序设计计算器