当前位置：首页 > 生活经验 > 正文内容

vb计算器是如何计算（如何用vb做一个简单的计算器）

飞龙2023年01月15日 08:00:09生活经验107

当朋友们看到这个文章时想必是想要了解vb计算器是如何计算相关的知识，这里同时多从个角度为大家介绍如何用vb做一个简单的计算器相应的内容。

文章目录一览：

怎样用vb编程一部简单的计算器呢？

1、打开VB新建一个EXE。

2、如图画上4个按钮控件表示加减乘除，再画上3个文本控件表示两个数与和数，再画一个标签控件加入“=”号。当然，界面可以自己发挥。

3、画好之后，就可以把控件进行命名，注意是属性栏的Caption项命名，以便运行的时候方便识别。

4、好的，现在可以进行最重要的代码编写啦。双击对应的按钮控件，进入代码编写界面。Text3.Text = Val(Text1.Text) + Val(Text2.Text)，其实代码很简单，就这一句只要更换把‘+’分别换成‘-’‘*’‘/’即可。

5、好了，现在可以点击运行或者F5键运行，即可得到第一个简单的计算器程序。

如何用VB做简易的四则运算计算器

很简单的：窗口放入四个COMMAND控件（Caption属性分别为+、－、X、÷），三个TEXT控件，再放入三个Label控件（Caption属性分别为：操作数1、操作数2和计算结果），窗口的Caption属性改为“四则运算”

代码如下：

Private Sub Command1_Click()

If Val(Text1.Text) + Val(Text2.Text) Int(Val(Text1.Text) + Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) + Val(Text2.Text), "0.######")

Else

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End If

End Sub

Private Sub Command2_Click()

If Val(Text1.Text) - Val(Text2.Text) Int(Val(Text1.Text) - Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) - Val(Text2.Text), "0.######")

Else

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End If

End Sub

Private Sub Command3_Click()

If Val(Text1.Text) * Val(Text2.Text) Int(Val(Text1.Text) * Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) * Val(Text2.Text), "0.######")

Else

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End If

End Sub

Private Sub Command4_Click()

If Val(Text1.Text) / Val(Text2.Text) Int(Val(Text1.Text) / Val(Text2.Text)) Then

Text3.Text = Format(Val(Text1.Text) / Val(Text2.Text), "0.######")

Else

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End If

End Sub

怎么用VB做一个计算器

一、基础练习：编制一个数运算的数学小工具 利用VB编制一个用于数学计算的小程序——《数学小工具1》，主要有计算平方、立方、平方根、正弦、余弦、正切、余切、对数值等功能。程序界面如下：

一、分析问题：

本任务主要涉及数学运算，求平方、立方值、四次方可利用运算符计算.求平方根、正弦、余弦、正切、余切可利用VB函数计算。(VB常用数学函数)

二、算法设计：

程序流程： 输入要计算数据——计算结果——显示数据

VB的实现： 文本框TextBox控件 表达式 标签Label控件

三、编制程序：

(一) 在VB6.0中新建一个标准EXE工程

(二) 建立一个窗体，窗体属性设置如下：

名称 = Maths

Caption = "数学小工具"

(三) 在窗体上添加一个文本框TextBox，用于输入计算数值，属性设置如下：

名称 =InputData

text="请输入数值"

(四) 在窗体上再添加一个标签Label(显示得分)，属性设置如下：

名称 = Answer

Caption = "答案:"

(五) 在窗体上再添加8个按钮CommandButton，名称不改，属性(caption)分别设置为：“平方”、“立方”、“四次方”、“平方根”、正弦”、“余弦”、“正切”、“余切”。

（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

Private Sub Command1_Click()

XXXXXXXX.......... 代码(可多行）

End Sub

（1）求平方按钮的代码：

y=inputdata.text^2

answer.caption=y

（2）求三次方按钮的代码：

y=inputdata.text^3

answer.caption=y

（3）求四次方按钮的代码：

y=inputdata.text^4

answer.caption=y

（4）求平方根按钮的代码：

y=Sqr(inputdata.text)

answer.caption=y

（5）求正弦按钮的代码： y=Sin(inputdata.text*3.14/180)

answer.caption=y

（6）求余弦按钮的代码： y=Cos(inputdata.text*3.14/180)

answer.caption=y

（7）求正切按钮的代码： y=Tan(inputdata.text*3.14/180)

answer.caption=y

（8）求余切按钮的代码：

y=1/Tan(inputdata.text*3.14/180)

answer.caption=y

如果要控制输出数值的小数位格式,可在两行代码中间加语句行:

y=format(y,"0.0") 1位整数,1位小数

(七) 在窗体上再添加2个按钮CommandButton，名称不改，属性分别设置为：“清空”、“退出,分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

(1)清空按钮代码:

inputdata.text=""

answer.caption=""

(2)退出按钮代码:

End

四、运行，测试程序。

五、保存好源程序文件，生成exe文件。

二、扩展练习：编制两个数运算的数学小工具 利用VB编制一个用于两数四则运算的小程序——《数学小工具2》，主要有两数相加、相减、相乘、相除、乘方等功能。程序界面如下：

一、分析问题：

本任务主要涉及两数的数学运算，两利用两个文本框输入数据，利用按钮执行运算符计算.利用标签显示结果，并且两数间的运算符根据按钮的不同显示相应的运算符号。

二、算法设计：

程序流程： 输入要计算数据——计算结果——显示数据

VB的实现： 文本框（两个） 表达式 标签

三、编制程序：

(一) 在VB6.0中新建一个标准EXE工程

(二) 建立一个窗体，窗体属性设置如下：

名称 = Maths2

Caption = "数学小工具2"

(三) 在窗体上添加两个文本框TextBox，名称不改，分别为text1、text2,用于输入计算数值，将两个文本框的text属性值清空

(四) 在窗体上再添加一个标签Label(显示运算符)，名称不改,属性设置为:

名称 = Label1

Caption="?"

(五) 在窗体上再添加一个标签Label(显示等号)，名称不改,属性设置为"?"。

名称 = Label2

Caption="="

(六) 在窗体上再添加一个标签Label(显示结果)，属性设置如下：

名称 = Answer

Caption="?"

(五) 在窗体上再添加4个按钮CommandButton，名称不改，属性(caption)分别设置为：“加”、“减”、“乘”、“除”、"乘方”。

（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

Private Sub Command1_Click()

XXXXXXXX.......... 代码(可多行）

End Sub

（1）相加按钮的代码：

y=Val(Text1.Text) + Val(Text2.Text)

answer.caption=y

label1.caption="+"

（2）相减按钮的代码： y=Val(Text1.Text) - Val(Text2.Text)

answer.caption=y

label1.caption="-"

（3）相乘按钮的代码： y=Val(Text1.Text) * Val(Text2.Text)

answer.caption=y

label1.caption="*"

（4）相乘按钮的代码： y=Val(Text1.Text) / Val(Text2.Text)

answer.caption=y

label1.caption="/"

（5）相乘按钮的代码： y=Val(Text1.Text) ^ Val(Text2.Text)

answer.caption=y

label1.caption="^"

如果要控制输出数值的小数位格式,可在两名代码中间加语句行:

y=format(y,"0.0") 1位整数,1位小数

四、运行，测试程序。

五、保存好源程序文件，生成exe文件。

用VB做一个简单的计算器，该怎么做？

我是抢劫的，把分给我吧

首先建立一个command1 然后剪切复制 系统提示说已经有一个COMMAND1 是否要建立控件数组？

你点击是 这样重复9次 分别把caption该成0到9 然后建立command2 方法同上,caption为 +-*/ 然后是 command3 caption是=

然后输入代码,首先在通用里生命dim shu1,shu2

dim suanfu as string

private sub command1(index)_click

text1.text=text1.text commmand1(index).capton

end sub

command2里 输入

shu1=text1.text

suanfu=text1.text command(index).capiton

text1.text=""

end sub

command3里输入

shu2=text1.text

selece case suanfu

case "+"

text1.text=shu1+shu2

case "-"

text1.text=shu1-shu2

case "*"

text1.text=shu*shu2

case "/"

if shu2=0 then

msgbox "分母不能为0"

else text1.text=shu1/shu2

end if

end select

end sub

这是最简单的计算器的 如果还需要什么功能 我也可以告诉你的 我学VB3个月了 略有小成 所以想来照顾新手的 我以前也是新手啊 新手见新手两眼泪旺旺 顺便把分给我吧

如何用vb编写简单计算器

不知道你想要哪种，偶是新手，只会最简单的

首先拖出三个text，再拖出4个Command按钮 caption分别为+ - * / 这样就准备就绪了

先讲一下简单用法，第一个text是第一个加数/被减数/因数/被除数，而第二个text是第二个加数/减数/因数/除数，第三个text是和/差/积/商，在text1输入一个数，text2输入一个，然后分别点击command“+ - * /”text3就会出现结果

然后随便单击一个窗口，把里面的文字删去，再写上：

Private Sub Command1_Click()

Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))

End Sub

Private Sub Command2_Click()

Text3.Text = Str$(Val(Text1.Text) - Val(Text2.Text))

End Sub

Private Sub Command3_Click()

Text3.Text = Str$(Val(Text1.Text) * Val(Text2.Text))

End Sub

Private Sub Command4_Click()

Text3.Text = Str$(Val(Text1.Text) / Val(Text2.Text))

End Sub

然后运行，应该就可以了

vb计算器怎么做啊？

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

' 版权所有 (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计算器是如何计算和如何用vb做一个简单的计算器的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。

属性控件VB

      扫描二维码推送至手机访问。

      版权声明：本文由飞龙小词经验网发布，如需转载请注明出处。

      本文链接：https://www.feilongsi.com/shenhuo/2251.html

      标签: 属性控件VB
      分享给朋友：
      返回列表

      上一篇：花魁杜十娘电影大结局（花魁杜十娘电影大结局视频）

      下一篇：包含洗衣机滚筒不转是什么原因的词条

      “vb计算器是如何计算（如何用vb做一个简单的计算器）” 的相关文章

      路边黄线可以临时停车（路边黄线可以临时停车吗）

      路边黄线可以临时停车（路边黄线可以临时停车吗）

      针对路边黄线可以临时停车这个问题，本文将综合不同朋友对这个路边黄线可以临时停车吗的知识为大家一起来解答，希望能帮到大家 文章目录一览： 1、路边黄线可以临时停车吗 2、黄线可以临时停车吗 3、路边黄线可以临时停车吗？ 路边黄线可以临时停车吗 黄线不可以临时停车的根据《道路交通安全法》第九十...

      英雄联盟一直重新连接（英雄联盟一直重新连接进不去游戏win10）

      英雄联盟一直重新连接（英雄联盟一直重新连接进不去游戏win10）

      今天和朋友们分享英雄联盟一直重新连接相关的知识，相信大家通过本文介绍也能对英雄联盟一直重新连接进不去游戏win10有自已的收获和理解。自己轻松搞问题。文章目录一览： 1、英雄联盟为什么点了重新连接还是重新连接 2、《lol》进游戏无限重新连接? 3、英雄联盟突然出现正在尝试重新连接是咋回事...

      荣耀v10微信录屏没声音（华为v10微信视频没有声音）

      荣耀v10微信录屏没声音（华为v10微信视频没有声音）

      今天给各位分享荣耀v10微信录屏没声音的知识，其中也会对华为v10微信视频没有声音进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站 文章目录一览： 1、为什么我的荣耀v10屏幕录制没有声音？ 2、为什么我的荣耀v10屏幕录制没有声音 3、华为微信录屏没声音 4、华为微信视频录完，...

      华为手机丢了关机了可以追踪吗（华为手机丢了关机能找到吗）

      华为手机丢了关机了可以追踪吗（华为手机丢了关机能找到吗）

      今天给各位分享华为手机丢了关机了可以追踪吗的知识，其中也会对华为手机丢了关机能找到吗进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站 文章目录一览： 1、华为手机关机后还能定位吗？ 2、华为手机关机了可以定位找回来吗 华为手机关机了可不可以定位找回来 3、华为手机关机了还能定位查找吗...

      秦时明月按什么顺序看下去?（秦时明月顺序怎么排的）

      秦时明月按什么顺序看下去?（秦时明月顺序怎么排的）

      有很多朋友不知道秦时明月按什么顺序看下去?要如何操作，今天为大家整理了很多秦时明月顺序怎么排的相关的答案，组成一篇内容丰富的文章，希望能到您 文章目录一览： 1、《秦时明月》正确观看顺序是什么？ 2、秦时明月正确观看顺序 3、《秦时明月》观看顺序是什么？ 4、秦时明月观看顺序是什么？...

      电视剧三妹主题歌原唱（电视剧三妹主题歌原唱什么歌名）

      电视剧三妹主题歌原唱（电视剧三妹主题歌原唱什么歌名）

      当朋友们看到这个文章时想必是想要了解电视剧三妹主题歌原唱相关的知识，这里同时多从个角度为大家介绍电视剧三妹主题歌原唱什么歌名相应的内容。 文章目录一览： 1、电视剧三妹主题曲不染谁唱的 2、电视剧三妹主题歌原唱 三妹主题曲介绍 3、请问谁有电视剧三妹的主题曲和片尾曲 4、三妹电视剧所有歌...

      闽ICP备2020017932号-4

      Powered By Z-BlogPHP. Theme by TOYEAN.

      吉他谱