0
  • 聊天消息
  • 系统消息
  • 评论与回复
登录后你可以
  • 下载海量资料
  • 学习在线课程
  • 观看技术视频
  • 写文章/发帖/加入社区
创作中心

完善资料让更多小伙伴认识你,还能领取20积分哦,立即完善>

3天内不再提示

如何用VB编写最简单的计算器程序

h1654155282.3538 来源:网络整理 2018-03-13 09:12 次阅读

VB编写简易计算器

一、创建控件组

1、创建控件组的方法

首先创建一个命令按钮,调整其大小(觉得合适就行),名称为Command1,Caption 属性为数字 0 ;然后进行“复制”和“粘贴”,当选择“粘贴”时,出现对话框提示已有一个同名控件,询问是否创建控件组,选择“是”后,即创建了一个名为“Command”的控件组。这时,第一个按钮的Index属性值默认为“0”,第二个的Index属性值自动设为“1”,并且大小与第一个按钮相同,只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮,共20个按钮,每建立一个,就将它拖到合适处,并修改相应的Caption属性值。

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

如何用VB编写最简单的计算器程序

设置效果如下图所示:

如何用VB编写最简单的计算器程序

二、编写代码

Dim s1 As Single, s2 As Single, ysf As String

‘定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text & Command1(Index).Caption ’将command1的单击事件与文本框显示的内容连接

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()

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()

If Text1.Text = “” Then ’文本为空就结束

Exit Sub

End If

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) ‘文本退一格

End Sub

Private Sub Command5_Click()

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()

Text1.Text = Text1.Text * Text1.Text ‘平方

End Sub

各位朋友,可以将红色代码复制到相应位置,不清楚的可以全选复制,但是一定要按照我的步骤和给的名称来哦!

还可以再添加按钮

Private Sub Command9_Click() ’这是退出代码

End

End Sub

VB编写简易计算器的效果图

如何用VB编写最简单的计算器程序

如何用VB编写最简单的计算器程序

1、既然是入门呢,第一步当然是要启动VB:双击VB图标后会自动弹出“新建工程”对话框,其默认选中的是“标准 EXE”和“打开(O)”选项。此时单击“打开(O)”选项或点击“Enter”按键,或者点击“Alt+O”组合键,都可以建立一个默认工程名为“工程 1”的VB工程。

如何用VB编写最简单的计算器程序

2、接下来就是添加“控件”了:如图,从界面的左侧选中我们需要的“Label”控件并在“Form 1”窗体中的合适位置画出差不多大小的方框,即完成“Label 1”后重复相同动作画出“Label 2”。同理,添加“TextBox”、“CommandButton”控件。

如何用VB编写最简单的计算器程序

3、完成了各种控件的添加,及时修改“Captain”等属性,可以使编程更加直观。

如何用VB编写最简单的计算器程序

4、接下来就是最关键的编写代码环节了:双击“计算”(也就是之前的“Command 2”)按钮,将弹出代码框,键入如下代码(复制注意分行):

Private Sub Command2_Click()Dim x As IntegerDim y As Integerx = Val(Text1.Text)y = Val(Text2.Text)s = x + yLabel3.Caption = x & “+” & y & “=” & sEnd Sub

这样就能实现基本的两数相加运算了。

如何用VB编写最简单的计算器程序

5、那为了方便操作呢,可以进行小小的完善——添加“重置”功能:

双击“重置‘按钮,键入如下代码(复制注意分行):

Private Sub Command1_Click()Text1.Text = “”Text2.Text = “”Label3.Caption = “”End Sub

这样就实现清除原数据的功能了。

如何用VB编写最简单的计算器程序

6、最后点击“运行”试试吧!

如何用VB编写最简单的计算器程序

声明:本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人,不代表电子发烧友网立场。文章及其配图仅供工程师学习之用,如有内容侵权或者其他违规问题,请联系本站处理。 举报投诉
  • VB语言
    +关注

    关注

    1

    文章

    18

    浏览量

    9665
  • VB语言编程
    +关注

    关注

    0

    文章

    2

    浏览量

    6853
收藏 人收藏

    评论

    相关推荐

    何用labview设计一个计算器

    如题,如何用labview设计一个科学计算器
    发表于 10-30 11:03

    C语言编写简单计算器程序

    本帖最后由 淘淘come 于 2012-10-29 16:35 编辑 4*4矩阵键盘与8位数码管设计的简单计算器C语言程序。求大虾指点!
    发表于 10-29 16:20

    简单计算器C语言程序

    利用4*4矩阵键盘与8位数码管设计的简单计算器:用C语言编写程序
    发表于 10-29 17:02

    自己做的简单计算器

    最近做着玩,弄了一块小板,上面有个1602,就编了一个简单计算器(整数计算),附上仿真电路和程序,本人菜鸟大神勿喷..
    发表于 06-09 20:46

    简单计算器

    为什么我的简单计算器的proteus可以仿真出程序,到了开发板上就出不来了,用的51单片机
    发表于 05-22 22:35

    请教有关用labview编写计算器相关的问题

    我按《精通labview虚拟仪器程序设计》清华大学出版社,这本书中虚拟计算器的设计的相关步骤各个子vi程序编写,各个子vi都没有问题,只是最后的
    发表于 05-09 13:59

    简单计算器

    简单计算器程序,还有一些不足,看过的大神请指出来一下,谢谢。
    发表于 01-13 11:34

    简单计算器的实现

    简单计算器的实现
    发表于 05-13 17:22

    LABVIEW编写的高级计算器

    LABVIEW编写的高级计算器
    发表于 07-12 16:14

    VB编程_简单计算器

    Visual Basic是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。VB学习编程教程。
    发表于 08-08 14:25 21次下载

    VB上位机程序编写

    VB上位机程序编写
    发表于 02-07 16:15 59次下载

    vb语言程序简单设计实例(5款vb语言设计程序分享)

    vb程序设计语言为工具,对特定的问题进行分析,并设计出解题的算法,根据得到的算法,用vb语言编写出源程序的过程就是
    的头像 发表于 03-12 18:05 10.8w次阅读

    VB编写的可运行的计算器具有正弦余弦平方等功能资料合集免费下载

    本文档的主要内容详细介绍的是用VB编写的可运行的计算器具有正弦 余弦 平方 开方 阶乘等功能资料合集免费下载。
    发表于 06-11 08:00 0次下载

    简单求余计算器应用程序免费下载

    本文档的主要内容详细介绍的是简单求余计算器应用程序免费下载。
    发表于 10-23 18:04 4次下载
    <b class='flag-5'>简单</b>求余<b class='flag-5'>计算器</b>应用<b class='flag-5'>程序</b>免费下载

    AWTK 开源串口屏开发(13) - 计算器应用

    计算器是一个常见的应用程序,在AWTK串口屏中,利用fscript表达式计算函数,无需编写一行传统的代码,即可实现一个简单
    的头像 发表于 03-16 08:23 83次阅读
    AWTK 开源串口屏开发(13) - <b class='flag-5'>计算器</b>应用