精华内容
下载资源
问答
  • 做一个简易计算器VB版)

    万次阅读 多人点赞 2020-02-22 20:47:46
    今天小编来带大家用VB做一个简易计算器 废话不多说,下面就是具体步骤了 1、创建控件组的方法首先创建一个命令按钮,调整其大小(觉得合适就行),名称为Command1,Caption 属性为数字 0 ;然后进行“复制”和“粘贴...

    今天小编来带大家用VB做一个简易计算器

    废话不多说,下面就是具体步骤了

    1、创建控件组的方法首先创建一个命令按钮,调整其大小(觉得合适就行),名称为Command1,Caption 属性为数字 0 ;然后进行“复制”和“粘贴”,当选择“粘贴”时,出现对话框提示已有一个同名控件,询问是否创建控件组,选择“是”后,即创建了一个名为“Command”的控件组。

    这时,第一个按钮的Index属性值默认为“0”,第二个的Index属性值自动设为“1”,并且大小与第一个按钮相同,只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮,共20个按钮,每建立一个,就将它拖到合适处,并修改相应的Caption属性值。

    2、各控件组其属性设置如下:

    在这里插入图片描述

    设置效果如下图所示:

    在这里插入图片描述

    将Text1中的Text中设置为0,Alignment设置为1-Right Justfiy,Enabled设置为False

    在这里插入图片描述

    二、编写代码

    Dim s1 As Single, s2 As Single, ysf As String
    ‘定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符
    Private Sub Command1_Click(Index As Integer)
    If Text1.Text = “0” Then
    Text1.Text = Command1(Index).Caption
    Else
    Text1.Text = Text1.Text & Command1(Index).Caption
    '将command1的单击事件与文本框显示的内容连接
    End If
    End Sub

    Private Sub Command2_Click()
    Text1.Text = Text1.Text + “.”
    If (InStr(Text1.Text, “.”) = 1) Then '第一位不能为小数
    Text1.Text = “”
    End If
    If InStr(Text1.Text, “.”) < Len(Text1.Text) Then '防止出现两个小数点
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
    End If
    End Sub

    Private Sub Command3_Click(Index As Integer)
    s2 = Val(Text1.Text) '开始加减乘除运算
    Select Case ysf
    Case “+”
    Text1.Text = s1 + s2
    Case “-”
    Text1.Text = s1 - s2
    Case “*”
    Text1.Text = s1 * s2
    Case “/”
    If s2 = 0 Then
    MsgBox “分母不能为零!”
    Text1.Text = " "

    Else
    Text1.Text = s1 / s2
    End If
    End Select
    Text1 = IIf(Left(Text1.Text, 1) = “.”, 0 & Text1.Text, Text1.Text)
    '这个很关键,如果没有这个的话,得出小于1的小数前面没有0
    End Sub

    Private Sub Command4_Click(Index As Integer)
    If Text1.Text = " " Then '文本为空就结束
    Text1.Text = “0”

    ElseIf Len(Text1.Text) = “1” Then
    Text1.Text = “0”
    Else
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) '文本退一格
    End If
    End Sub

    Private Sub Command5_Click(Index As Integer)
    Text1.Text = " "
    End Sub

    Private Sub Command6_Click(Index As Integer)
    s1 = Val(Text1.Text) '将s1隐藏起来
    ysf = Command6(Index).Caption
    Text1.Text = “”
    End Sub

    Private Sub Command7_Click()
    If Left(Text1.Text, 1) <> “-” Then '判断作为负数
    Text1.Text = “-” & Text1.Text
    Else
    Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
    End If
    End Sub

    Private Sub Command8_Click(Index As Integer)
    Text1.Text = Text1.Text * Text1.Text
    End Sub

    输完上述代码后的程序图片如下:

    在这里插入图片描述

    至此,我们完成了编程,调试一下以检验程序的正确性。一种可以右键“文件”,再点击“调试”,另一种是直接点击调试按钮。

    在这里插入图片描述

    工程完成后,点击文件,再点击该菜单下的生成“计算器.exe”(不同人的该选项大不相同,但是都有生成“xxx.exe”这个选项),如图

    在这里插入图片描述
    在这里插入图片描述
    在这里插入图片描述

    这样子就算生成成功啦

    展开全文
  • 在VS2017环境,基于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计算器...
  • 具有加、减、乘、除功能的简易计算器 (1)可以利用上一步的运算结果 (2)可以在不点击“=”的情况下连续加减乘除 (3)可以连续点击“=”重复上一步操作 (4)可以逐位删除 (5)可以显示形如“0.XXX”的运算结果
  • 基于VB计算器

    2019-01-18 16:40:32
    基于VB计算器开发,可以用于平时的VB作业或者讨论交流!
  • 如题 用vb 超精简计算器 只需一个textbox控件就可以搞定 数字全键盘输入 自动计算 用法 新建工程 添加一个text控件 在text的KeyPress事件下 粘贴代码即可
  • vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器...
  • 可运行,VB制作加减乘除小计算器VB制作加减乘除小计算器
  • vb做计算器 能实现简单的计算功能,对初学者很有帮助。
  • VB制作的简易计算器

    2020-08-20 14:04:44
    本资源是使用VB6.0制作的简易计算器,本资源的重点是通过使用VBScript脚本语言中的eval方法,来实现的计算功能。...eval方法非常的好用,可以解决很多计算问题,能够将字符串类型的公式,直接计算出一个结果。
  • 一个VB写的人品计算器一个VB一个VB写的人品计算器,的人品计算器一个VB写的一个VB写的人品计算器,人品计算器一个VB写的人品计算器
  • vb.net例程之计算器.rar

    2020-03-22 12:49:15
    vb.net编程资料,针对于计算器的编程学习,可以用于简单的学习使用,也可以进行相关的代码参考,希望能够帮助到大家,看看效果怎么样。
  • 自己一个vb作业,里边是一个计算器,为了交作业时间比较敢,有点粗糙但是麻雀虽小五脏俱全。,应付课程作业绝对够了。
  • vb.net计算器

    2011-06-15 22:58:27
    资源中有vb做计算器,能实现基本的加减乘除运算 资源中有vb做计算器,能实现基本的加减乘除运算 资源中有vb做计算器,能实现基本的加减乘除运算 资源中有vb做计算器,能实现基本的加减乘除运算 资源中有vb做...
  • 使用VB.NET控制台应用程序实现一个简单的计算器 工具 VS2019 创建界面 一共使用了2种控件,显示数字的是TextBox,各种按钮是Button。 注意事项 TextBox控件的Multiline属性默认为false,如果要修改TextBox控件的大小...

    使用VB.NET控制台应用程序实现一个简单的计算器

    工具

    VS2019

    创建界面

    就是一个非常简单的计算器

    一共使用了2种控件,显示数字的是TextBox,各种按钮是Button。

    注意事项

    TextBox控件的Multiline属性默认为false,如果要修改TextBox控件的大小,就需要将Multiline属性改为True。

    按钮事件

    设置三个全局变量
    分别用来记录计算器显示框中的输入数字
    到目前为止的计算结果
    以及记录所使用的运算符

        Dim num As Double = 0  
        Dim sum As Double = 0
        Dim f As String = ""
    

    数字按钮以1为例,其余数字代码基本类似

    	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            num = num * 10 + 1
            TextBox1.Text = num
    	End Sub
    

    运算符号按钮以+为例,其余运算符号代码都相类似

        Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
            If (f = "") Then
                sum = num
            ElseIf (f = "+") Then
                sum = sum + num
            ElseIf (f = "-") Then
                sum = sum - num
            ElseIf (f = "*") Then
                sum = sum * num
            ElseIf (f = "/") Then
                sum = sum / num
            End If
            num = 0
            f = "+"
            TextBox1.Clear()
        End Sub
    

    最后等号的按钮事件为

        Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
            If (f = "") Then
                sum = num
            ElseIf (f = "+") Then
                sum = sum + num
            ElseIf (f = "-") Then
                sum = sum - num
            ElseIf (f = "*") Then
                sum = sum * num
            ElseIf (f = "/") Then
                sum = sum / num
            End If
            num = 0
            f = ""
            TextBox1.Text = sum
            sum = 0
        End Sub
    

    这样就结束啦。刚刚开始学这个,希望慢慢进步哟。

    展开全文
  • VB方差计算器示例,您看到的这个软件是原代码共享计划的一个产物,点击这里下载本程序原代码。在方差计算器的文本框内输入数据,每个数据用空格隔开,输入完毕后点击计算即可知道答案。代码中a为需要排序的数组,...
  • 人品计算器其实很简单,上网可以随便找到原理。主要是利用中文字符的ASCII原理。用mod运算就可以,有兴趣的可以自己做一个。我这个是用VB做的,挺简单供大家参考,参考
  • VB源码 计算器.rar

    2021-03-23 23:28:47
    一个最简单的计算器源码,适合初学者。
  • vb标准计算器.exe

    2021-01-31 17:37:18
    vb标准计算器.exe
  • 感觉一般,计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB计算器 VB
  • VB迷你计算器

    2018-01-01 03:22:16
    一个简单的VB计算器,可以实现四则运算,就开始德哈卡实践活动科维奇hi去韩流文化球队是US皇帝回萨达斯U盾和杀敌噢我回
  • 一个简单的VB数学计算器,功能方面不太多,只是进行四则计算,启动时显示每日一帖。使用前,先按[打开]按钮  使用后,按[关闭]按钮,当除数为 0 时,会自动提示,按[清除]按钮后可继续使用,输入负数时,先输入正数...
  • 这是用VB制作的简易计算器的源代码,希望大家喜欢
  • VB.net 计算器

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

    2017-11-03 10:14:21
    vb开发的计算器,简介实用,界面美观,很适合刚学vb的同学借鉴参考
  • vb.net 2010 计算器实例

    2013-06-18 10:48:55
    用vs2010中vb.net编写的计算器小实例,比较初级,入门级学习用!!
  • 计算器,可以实现加减乘除,平方根,乘方等
  • VB模仿Windows计算器.zip

    2020-02-22 18:19:18
    这是一个适合初学者入门做计算器的程序,拥有加减乘除、退格、清空以及平方,负数的功能,希望广大VB初学者多多练习!
  • 使用vb编写的计算器的程序,主要是代码战士,画面没有过多优化。使用vb编写的计算器的程序,主要是代码战士,画面没有过多优化。使用vb编写的计算器的程序,主要是代码战士,画面没有过多优化。使用vb编写的计算器的...

空空如也

空空如也

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

vb做一个计算器