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

电子说

1.2w人已加入

描述

  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语言编程

打开APP阅读更多精彩内容
声明:本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人,不代表电子发烧友网立场。文章及其配图仅供工程师学习之用,如有内容侵权或者其他违规问题,请联系本站处理。 举报投诉
评论(0)
发评论
chishiba 2018-07-19
0 回复 举报
第一个代码可以用来计算吗 收起回复
阿斯弗瑟高维 2018-03-24
0 回复 举报
代码中的ysf的作用是啥呢 收起回复

全部0条评论

快来发表一下你的评论吧 !

×
20
完善资料,
赚取积分