精华内容
下载资源
问答
  • Vb编写的一个简单计算器,功能可以扩充,可以实现简单的加减乘除
  • 可运行,VB制作加减乘除计算器VB制作加减乘除计算器
  • Dim x!, n1!, n2! 'N1,N2分别代表输入的第一个数和第二个数 Dim strn1$, strn2$ 'StrN1,StrN2分别代表输入第一个 Dim firstN As Boolean '判断是否是数字开头 Dim pointflag As Boolean '判断是否已有小数点 Dim ...

    Dim x!, n1!, n2! 'N1,N2分别代表输入的第一个数和第二个数 Dim strn1$, strn2$ 'StrN1,StrN2分别代表输入第一个 Dim firstN As Boolean '判断是否是数字开头 Dim pointflag As Boolean '判断是否已有小数点 Dim runsign As Integer '变量Runsign用来储存运算符号 Dim signflag As Boolean '变量SignFlag判断是否已有运算符号 Private Sub form_load() n1 = 0: n2 = 0 strn1 = "": strn2 = "" firstN = True pointflag = False '将 PointFlag 设为否,即没有小数点 runsign = 0 signflag = False '没有运算符号输入 End Sub Private Sub cmdN_Click(Index As Integer) Select Case Index '用Index 作为判断分支的条件 Case 0 To 9 '如果Index是0到9,即数字 If firstNum Then '输入为第一个数字的话 strn1 = Str(Index) '实型转字符型 firstN = False '初赋值标志为假 Else strn1 = strn1 Str(Index) '输入不是第一个数字的话,将输入的字符添加到原有字符串上 End If '结束 if 块 Text1。

    Text = strn1 '将字符串结果显示到标签上 Case 10 '如果输入为小数点 If Not pointflag Then '如果没有小数点 If firstN Then '如果是第一个字符 strn1 = "0。" '显示为" 0。

    " 不变 firstN = False Else strn1 = strn1 "。" '初赋值标志为假,否则字符串上加上小数点符号 End If '结束if块 Else Exit Sub '已有小数点,则退出单击事件,也就是对单击事件不反应 End If pointflag = True Text1。

    Text = strn1 '将小数点标志为真,即在输入串中有了小数点,在显示屏上显示数字串 Case 17 If Sgn(Val(strn1)) = 1 Then strn1 = "-" strn1 Else If Sgn(Val(strn1)) = -1 Then strn1 = Right(strn1, Len(strn1) - 1) End If strn1 = "0。

    " End If Text1。

    Text = strn1 Case 12 To 15 firstN = True '当输入为运算符号时,使下一次可以输入新数据 pointflag = False '还原小数点标记值 If signflag Then '前面已有运算符未运算 Call Run '调用计算子程序,该子程序在下面有说明 Else signflag = True '前面没有未运算的,将有无运算符标志设为"有" strn2 = strn1 '把字符串1复制给字符串2 strn1 = "" '字符串1清空 End If runsign = Index - 11 Case 11 '如果输入等号 If Not signflag Then '如果没有输入运。

    全部

    展开全文
  • 加减乘除计算器设计报告学号:072450 姓名:冯会雨 班级:材料074一:设计思路1.要达到的目的培养学生综合利用语言进行程序设计的能力,主要培养学生KeyAscii值转换成对应的字符来 断执行什么操作,确定调用哪个事件...

    加减乘除计算器设计报告

    学号:072450 姓名:冯会雨 班级:材料074

    一:设计思路

    1.要达到的目的

    培养学生综合利用语言进行程序设计的能力,主要培养学生KeyAscii值转换成对应的字符来 断执行什么操作,确定调用哪个事件过程。最后完成运算。

    二、模块之间的调用关系,或程序流程图

    三、程序代码

    Public s As Single, i As Single, j As Single, f As Integer, m As Single

    Private Sub c_Click()

    Text1 = ""

    i = 0

    f = 0

    s = 0

    j = 0

    End Sub

    Private Sub Command1_Click()

    Text1.Text = Text1.Text & "."

    End Sub

    Private Sub deng_Click()

    j = cun(Text1)

    Call jisuan(i, j, s)

    Text1 = s

    f = 0

    s = 0

    i = 0

    j = 0

    End Sub

    Private Sub form_Keypress(Keyascii As Integer)

    Select Case Chr(Keyascii)

    Case "0" To "9"

    commadone_click (Val(Chr(Keyascii)))

    Case "."

    Call Command1_Click

    Case "+"

    Call commandjia_click(0)

    Case "-"

    Call commandjia_click(1)

    Case "*"

    Call commandjia_click(2)

    Case "/"

    Call commandjia_click(3)

    Case "="

    Call commanddeng_click

    End Select

    End Sub

    Private Sub jia_Click(Index As Integer)

    i = cun(Text1)

    Text1.Text = ""

    f = Index + 1

    End Sub

    Private Sub one_Click(Index As Integer)

    Text1 = Text1 & Index

    End Sub

    Public Sub jisuan(i, j, s)

    Select Case f

    Case 1

    s = i + j

    Case 2

    s = i - j

    Case 3

    s = i * j

    Case 4

    s = i / j

    End Select

    End Sub

    Public Function cun(x As String)

    cun = Val(x)

    End Function

    四、设计方案的完善及目前存在的问题

    只能进行一次运算

    不能运算负数

    五、本次设计的收获及心得体会

    得锻炼自己学习课外知识的能力,同时动手能力得到了很大提高

    六、对该题目和VB设计的意见和建议

    题目难易度适当较好的锻炼学生能力

    命令按钮输入

    键盘输入

    得到操作数

    存储第一个数

    输入操作符

    存储操作符,清空文本框

    得到第二个数

    存储第二个数

    得到计算命令

    调用操作数,根据操作符运算

    展开全文
  • 自己编的,有EXE文件,也有源代码和整个工程文件,您可以自己修改。适合初学者
  • VB计算器代码

    2014-05-27 17:42:27
    VB小程序 计算器代码 包含加减乘除等简易计算器实现的源代码
  • VB写的简易计算器,仅能实现加减乘除
  • VB计算器程序源代码

    2021-05-16 18:28:48
    摘要:VB源码,算法相关,计算器 基于VB加减乘除计算器,界面似乎比较个性一些,采用无边框、无标题栏的窗体。另外,除了计算器以外,程序中还包括一些辅助的小程序,比如中国石化盈亏计算程序、公司和电话数据库...
  • 是在基本计算器的基础上加入角度弧度梯度正切余切正弦余弦平方 根等的数学计算当然基础的加减乘除运算就更不用说了这是在一本 VB教程中摘 录的代码你可以此为基础完善扩展该计算器的功能运行截图如下: LnAtaiLFI Ln ...
  • vb计算器代码

    2013-12-25 09:24:16
    vb计算器,简单实用加减乘除,很好的实践软件,建议初学者实用与学习
  • 参考下:计算器的程序,很简单,只弄了+-法,乘除没弄,只要把代码看懂照着+-法改一下就行了,不过涉及到多级运算只用一个LastClick是不行的程序的控件就两种CommandBotton和TextBox都是最基本的先创建十一个...

    参考下:

    计算器的程序,很简单,只弄了+-法,乘除没弄,只要把代码看懂照着+-法改一下就行了,不过涉及到多级运算只用一个LastClick是不行的

    程序的控件就两种

    CommandBotton和TextBox都是最基本的

    先创建十一个CommandBotton,Caption改为0-9以及一个"."(小数点)

    创建三个CommandBotton,Caption改为“-”,“+”“=”

    创建五个CommandBotton,Caption改为“CM”(clearmemory) “MR”(memoryrecall) “MS”(memorysave) “C”(clear) “AC”(allclear)

    再创建个TextBox

    下面的是对应代码,很清楚

    不懂来问我`~

    Dim Counter As Double ‘这个用来记录结果

    Dim Memory As Double ‘用来记录你保存的数,这个我们用的科学计算器里也有

    Dim Reg As Double ‘这个也是用来记录结果

    Dim CalcNumber As Long ‘这个是判断:1当之前点过一次+或-时再点一次运算结果,2如果前面没点过+或-则不进行运算

    Dim DisplayFromNew As Boolean ‘这个用来判断输入框状态:是接着输入还是从新输入新的数

    Dim AlreadyDecimalThere As Boolean ‘这个用来判断是否能用小数点

    Dim LastClick As String ‘这个用来记录最后一次选择的运算法则

    Private Sub Form_Load()

    Display.Text = "0"

    Reg = 0

    CalcNumber = 0

    DisplayFromNew = True

    AlreadyDecimalThere = False

    End Sub

    Private Sub AllClear_Click() ‘这个不用说了,是全部清空

    DisplayFromNew = True ‘恢复到初始状态

    Counter = 0

    Display.Text = "0" ‘清空输入框

    CalcNumber = 0

    Reg = 0

    AlreadyDecimalThere = False ‘恢复到初始状态

    End Sub

    Private Sub Clear_Click() ‘清空,但不清空纪录

    DisplayFromNew = True

    Display.Text = "0"

    End Sub

    Private Sub ClearMemory_Click() ‘清空纪录

    Memory = 0

    End Sub

    Private Sub Decimal_Click() ‘关于小数点的

    If AlreadyDecimalThere = False Then

    AddDisplayDigit "."

    AlreadyDecimalThere = True ‘每次输入只能输一次小数点

    End If

    End Sub

    Private Sub Equals_Click() ‘等号时的

    If LastClick = "Minus" Then

    If CalcNumber = 0 Then

    Reg = CDbl(Display.Text) ‘记录

    DisplayFromNew = True

    CalcNumber = 1

    Else ‘这个的意思是,如果只点了法则(+或-)之后没点数,就加上前面输的数,但我觉得这样就等于前面输得数的2倍(+时)或0(-时),所以不用这么麻烦

    Counter = Reg - CDbl(Display.Text)

    Display.Text = CStr(Counter)

    DisplayFromNew = True

    AlreadyDecimalThere = False

    Reg = CDbl(Display.Text)

    End If

    ElseIf LastClick = "Addition" Then ‘这是加法,和减法一样

    If CalcNumber = 0 Then

    Reg = CDbl(Display.Text)

    DisplayFromNew = True

    CalcNumber = 1

    Else

    Counter = Reg + CDbl(Display.Text)

    Display.Text = CStr(Counter)

    DisplayFromNew = True

    AlreadyDecimalThere = False

    Reg = CDbl(Display.Text)

    End If

    End If

    CalcNumber = 0

    End Sub

    Sub AddDisplayDigit(Addition As String) ‘这一段十分重要,也是大家要学习的,就是自己创建一个函数,这样应用起来会十分方便

    If DisplayFromNew = True Then

    Display.Text = Addition ‘当DisplayFromNew = True时(大家注意杂那几种情况下= True)输入栏从新显示刚输入的数

    DisplayFromNew = False ‘之后立即变为False,因为要接着这个数继续输入

    Else

    Display.Text = Display.Text & Addition ‘当DisplayFromNew = False 就是接着输入栏里已有的数字继续输入

    End If

    End Sub

    注:为何要弄两种情况呢,因为当点击-或+时,要求输入栏从新记录

    Private Sub MemorySave_Click() ‘这是保存记录

    If DisplayFromNew = False Then

    Memory = CDbl(Display.Text)

    End If

    End Sub

    Private Sub MemoryRecall_Click() ‘打开纪录

    Display = CStr(Memory)

    End Sub

    Private Sub Minus_Click() ‘点击

    If CalcNumber = 0 Then

    Reg = CDbl(Display.Text)

    DisplayFromNew = True

    CalcNumber = 1

    Else ‘这个就是如果前面输过一次-号,再点-号就运算结果,这一点是很重要的,如果不加这个就无法进行连续运算 Counter = Reg - CDbl(Display.Text)

    Display.Text = CStr(Counter)

    DisplayFromNew = True

    AlreadyDecimalThere = False

    Reg = CDbl(Display.Text)

    End If

    LastClick = "Minus"

    End Sub

    Private Sub Plus_Click() ‘和减法一样

    If CalcNumber = 0 Then

    Reg = CDbl(Display.Text)

    DisplayFromNew = True

    CalcNumber = 1

    Else

    Counter = Reg + CDbl(Display.Text)

    Display.Text = CStr(Counter)

    DisplayFromNew = True

    AlreadyDecimalThere = False

    Reg = CDbl(Display.Text)

    End If

    LastClick = "Addition"

    End Sub

    ‘下面的就简单了0-9,不过用到了前面定义的函数AddDisplayDigit,大家看到这个自定义函数的作用了吧

    Private Sub Nine_Click()

    AddDisplayDigit "9"

    End Sub

    Private Sub Eight_Click()

    AddDisplayDigit "8"

    End Sub

    Private Sub Seven_Click()

    AddDisplayDigit "7"

    End Sub

    Private Sub Six_Click()

    AddDisplayDigit "6"

    End Sub

    Private Sub Five_Click()

    AddDisplayDigit "5"

    End Sub

    Private Sub Four_Click()

    AddDisplayDigit "4"

    End Sub

    Private Sub Three_Click()

    AddDisplayDigit "3"

    End Sub

    Private Sub Two_Click()

    AddDisplayDigit "2"

    End Sub

    Private Sub One_Click()

    AddDisplayDigit "1"

    End Sub

    Private Sub Zero_Click()

    AddDisplayDigit "0"

    End Sub

    展开全文
  • 加减乘除计算器

    2014-07-10 18:42:28
    vb.net,计算器,可执行文件路径:简单计算器\简单计算器\bin\Debug
  • VB计算器代码

    2012-11-11 23:46:47
    VB代码制作计算器,仅供参考,制作简单的计算器,可供加减乘除运算
  • 第一次学习C#,做了个简单的加减乘除计算器,只能实现两个因数的运算。 主要是练习下C#编程,和以前用过的VB差不多。与VB6不同的是,C#代码区分大小写。 Windows窗口程序主要也是由一些控件组成,响应响应的事件...
  • VB计算器,功能简单,只是实现基本的加减乘除运算,对初学VB的朋友或许有帮助。
  • ①要求用Visual Basic对象的思想来完成程序的设计。②在设计程序的过程中,要求会使用Command 命令按钮、命令按钮控件数组、...④要求在程序中即能用鼠标单击相应的控件数组元素进行正整数的、乘、除运算...

    4dac139a9cdfc337be49cbfb027ebec7.png

    ①要求用Visual Basic对象的思想来完成程序的设计。

    ②在设计程序的过程中,要求会使用Command 命令按钮、命令按钮控件数组、TextBox文本框等基本控件。

    ③要求在程序中能够运用结构化程序的基本结构,如if-elseif、Select Case- End Select、for– next、do -loop等)。

    ④要求在程序中即能用鼠标单击相应的控件数组元素进行正整数的加、减、乘、除运算,又可以在键盘上输入相应数字和运算符号实现运算。

    ⑤程序界面布局合理、美观。

    ① 在窗体上分别创建用于0-9个操作数字和+、-、*、/运算符号的控件数组,并创建用于显示操作数、运算结果的文本框及其它控件。

    ② 单击数字控件数组元素时,先判断参加运算的数是否是新的操作数,用以确定单击数字键后数字在文本框中的显示方式,如果是新的操作数如234,那么连续单击2,3,4数字键,在文本框中会显示234  。

    ③ 单击操作符,结束第一个操作数的输入,同时把第一个操作数存储到一个全局变量中(如:StoredValue),记下操作符的index值,并做好开始输入下一个操作数的准备。

    ④ 单击等号(=),结束第二个操作数的输入并存储,根据上面记下的index值选择操作符计算。

    ⑤ 如果用键盘操作运算,应根据所按键对应的KeyAscii值转换成对应的字符来判断执行什么操作,确定调用哪个事件过程。最后完成运算。

    四、主要技术问题的描述:

    ① 连续输入新操作数的若干个数字时,应采用

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

    txtDisplay.Text = txtDisplay.Text & cmdNumber(Index).Caption

    txtDisplay.Text = txtDisplay.Text & Index

    ② 对于正整数运算单击操作符会结束本操作数的输入,需设置一个逻辑变量,使其逻辑值为true ,准备新操作数的输入。

    ③ 当一个对象(本题指文本框)具有焦点时,在键盘上按键操作触发下面事件过程:

    Private Sub Form_KeyPress(KeyAscii As Integer),在该过程中调用

    txtDisplay_KeyPress KeyAscii

    根据KeyAscii对应的字符,调用相应过程。

    ④ 当用户在拥有焦点的对象上释放键时触发下面事件过程:

    Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)在该过程中调用txtDisplay_KeyUp KeyCode, Shift

    KeyUp 事件可应用于大多数键,但最经常地还是应用于功能键、组合键、区别数字小键盘和常规数字键等。

    根据KeyCode代码对应的常数调用对应过程。 KeyCode代码常数可以在vb帮助系统或vb对象浏览器中的对象库中查到。

    ◆◆

    评论读取中....

    请登录后再发表评论!

    ◆◆

    修改失败,请稍后尝试

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

    2018-10-23 10:20:48
    使用Visual Studio 2010建立的VB工程,一个简单计算器,包含常用的加减乘除以及开方倒数等数学运算功能。
  • 摘要:VB源码,算法相关,科学...标准计算器主要完成常规加减乘除数字计算,科学计算器除了完成上述功能,还可以进行弧度、角度、梯度、平方、正切、平方根的运算,里面的算法也是值得学习的。 运行环境:Windows/VB6
  • vb计算器实验

    2012-06-08 22:38:34
    简单vb计算器,实现加减乘除等运算,是vb的课程设计简单实验
  • 摘要:VB源码,算法相关,计算器 简易计算器代码,编译于VS2008,新手可以参阅学习,本计算器实现简单的数学运算,比如加减乘除、根号运算等,可清零。
  • C#实现简单的加减乘除计算器

    万次阅读 2012-11-17 21:02:56
    第一次学习C#,做了个简单的加减乘除计算器,只能实现两个因数的运算。 主要是练习下C#编程,和以前用过的VB差不多。与VB6不同的是,C#代码区分大小写。 Windows窗口程序主要也是由一些控件组成,响应响应的事件...
  • 带括号式子计算,四则运算,加减乘除,简易计算器
  • vb计算器设计,简单计算器,实现加减乘除运算,有数字1~9,小数点,等号,并有清空功能。
  • VB计算器程序

    2015-08-02 18:52:15
    基于VB6.0制作的简易计算器程序,可以进行连续的加减乘除运算,单次运算式子可达100个数字。只利用19个控件,可相当于电脑附件小计算器
  • 内容索引:VB源码,算法相关,计算器 超简易的VB卡通数字计算器附上代码,有一个卡通...可以完成加减乘除四则运算,并可以进行进制转换,在16进制、10进制、2进制等进制之间互相转换,VB新手的朋友们可要好好研究一下哦。
  • vb6计算器代码

    2012-09-09 21:18:43
    实现了加减乘除计算器,能够支持比较多的位数
  • 内容索引:VB源码,系统相关,计算器 可记忆计算过程的Vb计算器,计算功能主要完成加减乘除,本程序主要想表现的并非如何计算器,计算功能,而是如何将计算的记录保存,并显示,当你输入字符的时候,下边会记录操作...
  • 三个变量分别存储操作数被操作数和操作根据对按钮的点击分别设置三个变量的值创建一个窗口画一个文本框Text1画一个按钮Command1设Index属性为0粘贴如下代码OptionExplicitPrivatedblOper1AsDouble,dblOper2...

空空如也

空空如也

1 2 3 4 5 ... 13
收藏数 249
精华内容 99
关键字:

vb计算器加减乘除代码