vb设计简易计算器代码（vb设计简易计算器代码简单通俗）

2023-04-26 21:22:18 分类：杂七乱八 热度：95 评论： 1

本篇文章给大家谈谈vb设计简易计算器代码，以及vb设计简易计算器代码简单通俗对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

用VB编写一个计算器程序的代码

1、创建控件组的方法

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

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

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

设置效果如下图所示：

二、编写代码

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

拓展资料

Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。

参考链Visual Basic——百度百科接

vb设计简易计算器代码（vb设计简易计算器代码简单通俗）,vb设计简易计算器代码,信息,文章,百度,第1张

求VB简易计算器的代码？

代码是:码

跪求高人给代码！！！

我有更好回答



匿名用户

推荐于 2016-11-11

Private Sub Command1_Click()

Select Case Text2.Text

Case "+"

Text4.Text = Str(Val(Text1.Text) + Val(Text3.Text))

Case "-"

Text4.Text = Str(Val(Text1.Text) - Val(Text3.Text))

Case "*"

Text4.Text = Str(Val(Text1.Text) * Val(Text3.Text))

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

用VB做一个简单的加减乘除的计算器，代码是什么？

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。

我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。

我们现在要把command拉出四个，把里面command1-4都给成+-*/

现在我们现在要双击+，我们开始进行输入代码

在里面我们现在要：text3.text=val(text1.text)+val(text2.text)

我们要把这个（text3.text=val(text1.text)+val(text2.text)）复制，把里面+号分别改成-*/

如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。

感谢观看。

VB简单计算器代码

Public choice As String

Public current As Double

Public prev As Double

Public counter As Integer

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub ac_Click()

Text1.Text = ""

prev = current = 0

'dz.Visible = False

'asterisk.Enabled = False

'equal.Enabled = False

'expo.Enabled = False

'logn.Enabled = False

'logten.Enabled = False

'minus.Enabled = False

'plus.Enabled = False

'sign.Enabled = False

'slash.Enabled = False

'sroot.Enabled = False

'cosine.Enabled = False

'sine.Enabled = False

'tangent.Enabled = False

'invsine.Visible = False

'invcos.Visible = False

'invtan.Visible = False

'expo.Visible = False

End Sub

Private Sub asterisk_Click()

Text1.Text = ""

choice = "*"

prev = current

current = 0

End Sub

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text Command1(Index).Caption

current = Text1.Text

asterisk.Enabled = True

equal.Enabled = True

expo.Enabled = True

' logn.Enabled = True

' logten.Enabled = True

minus.Enabled = True

plus.Enabled = True

sign.Enabled = True

slash.Enabled = True

sroot.Enabled = True

' tangent.Enabled = True

'' cosine.Enabled = True

' sine.Enabled = True

End Sub

Private Sub Command3_Click()

Dim MyAngle, MyHSin

MyAngle = 1.3 ' 定义角度（以"弧度"为单位）

MsgBox (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2 ' 计算双曲正弦函数值（sin()）

End Sub

Private Sub cosine_Click()

Text1.Text = Cos(current * 3.14159265358979 / 180)

current = Cos(current * 3.14159265358979 / 180)

End Sub

Private Sub equal_Click()

On Error GoTo MyErr

If choice = "+" Then

current = prev + current

Text1.Text = current

ElseIf choice = "-" Then

current = prev - current

Text1.Text = current

ElseIf choice = "*" Then

current = prev * current

Text1.Text = current

ElseIf choice = "/" And current 0 Then

current = prev / current

Text1.Text = current

Else

Text1.Text = "Press AC to continue"

dz.Visible = True

dz.Caption = "Division by ZERO"

End If

If current 0 Then

sroot.Enabled = False

Else

sroot.Enabled = True

End If

Exit Sub

MyErr:

MsgBox Err.Description, vbInformation, "信息提示"

End Sub

Private Sub expo_Click()

On Error GoTo MyErr

Exit Sub

MyErr:

MsgBox Err.Description, vbInformation, "信息提示"

End Sub

Private Sub expo10_Click()

Dim i As Integer

Dim j As Double

j = current

current = 1

For i = 1 To j Step 1

current = current * 10

Next i

Text1.Text = current

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim value As Integer

End Sub

Private Sub invcos_Click()

Dim temp As Double

temp = current * 3.14159265358979 / 180

If (temp = 1 And temp = -1) Then

Text1.Text = 1 / Cos(temp)

current = 1 / Cos(temp)

End If

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub

Private Sub invsine_Click()

Dim temp As Double

temp = current * 3.14159265358979 / 180

If (temp = 1 And temp = -1) Then

Text1.Text = 1 / Sin(temp)

current = 1 / Sin(temp)

End If

End Sub

Private Sub invtan_Click()

Text1.Text = 1 / Tan(current * 3.14159265358979 / 180)

current = 1 / Tan(current * 3.14159265358979 / 180)

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub

Private Sub logn_Click()

Text1.Text = Log(current)

current = Log(current)

End Sub

Private Sub logten_Click()

Text1.Text = Log(current) / Log(10)

current = Log(current) / Log(10)

End Sub

Private Sub mode_MouseDown(Button As Integer, shift As Integer, X As Single, Y As Single)

counter = counter + 1

If counter 2 Then

counter = 1

End If

If counter = 2 Then

displaylb.Caption = "Normal Calculator"

displaylb.ForeColor = HFFC0C0

Form1.Width = 4830

sine.Visible = False

cosine.Visible = False

tangent.Visible = False

logn.Visible = False

logten.Visible = False

random.Enabled = False

random.Visible = False

shiftb.Visible = False

recall.Visible = False

Else

displaylb.Caption = " Scientific Calculator"

displaylb.ForeColor = HC0

Form1.Width = 5670

sine.Visible = True

cosine.Visible = True

tangent.Visible = True

logn.Visible = True

logten.Visible = True

random.Enabled = True

random.Visible = True

shiftb.Visible = True

recall.Visible = True

End If

End Sub

Private Sub point_Click()

If Text1.Text = "" Then

Text1.Text = "0."

Else

Text1.Text = Text1.Text "."

End If

End Sub

Private Sub random_Click()

Text1.Text = (2.1021020134 * Rnd + 1)

End Sub

Private Sub recall_Click()

Text1.Text = current

End Sub

Private Sub shiftb_Click()

invsine.Visible = True

invcos.Visible = True

invtan.Visible = True

expo.Visible = True

expo10.Visible = True

If Text1.Text = 1 And Text1.Text = -1 Then

invsine.Enabled = True

invcos.Enabled = True

End If

invtan.Enabled = True

expo.Enabled = True

expo10.Enabled = True

End Sub

Private Sub sign_Click()

If current 0 Then

Text1.Text = -current

current = -current

Else

Text1.Text = "-" Text1.Text

current = -current

End If

If current 0 Then

sroot.Enabled = False

Else

sroot.Enabled = True

End If

End Sub

Private Sub minus_Click()

Text1.Text = ""

choice = "-"

prev = current

current = 0

End Sub

Private Sub plus_Click()

Text1.Text = ""

choice = "+"

prev = current

current = 0

End Sub

Private Sub sine_Click()

Text1.Text = Sin(current * 3.14159265358979 / 180)

current = Sin(current * 3.14159265358979 / 180)

End Sub

Private Sub slash_Click()

Text1.Text = ""

choice = "/"

prev = current

current = 0

End Sub

Private Sub sroot_Click()

On Error GoTo MyErr

Text1.Text = Sqr(current)

current = Sqr(current)

Exit Sub

MyErr:

MsgBox Err.Description, vbInformation, "信息提示"

End Sub

Private Sub tangent_Click()

Text1.Text = Tan(current * 3.14159265358979 / 180)

current = Tan(current * 3.14159265358979 / 180)

End Sub

兄弟你可真行！！要代码也不给分，算了，我就做回好人吧！

vb怎么设计个简单的计算器

给你个稍微简单一点的。。。。用控件数组的。

Dim v As Boolean

Dim s As Integer

Dim x As Double

Dim y As Double

Private Sub Command1_Click(Index As Integer)

If Form1.Tag = "s" Then

If Index = 10 Then

Text1.Text = "0."

Else

Text1.Text = Command1(Index).Caption

End If

Form1.Tag = ""

Else

Text1.Text = Text1.Text Command1(Index).Caption

End If

End Sub

Private Sub Command2_Click(Index As Integer)

Form1.Tag = "s"

If v Then

x = Val(Text1.Text)

v = Not v

Else

y = Val(Text1.Text)

Select Case s

Case 0

Text1.Text = x + y

Case 1

Text1.Text = x - y

Case 2

Text1.Text = x * y

Case 3

If y 0 Then

Text1.Text = x / y

Else

MsgBox ("不能以0为除数")

Text1.Text = x

v = False

End If

Case 4

y = 0

v = False

End Select

x = Val(Text1.Text)

End If

s = Index

End Sub

10个数字按钮,四个四则运算按钮,一个小数点按钮和一个等于号按钮,一个文本框.

数字和小数点做成一组控件数组,其他的运算按钮做一个控件数组,

用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设计简易计算器代码和vb设计简易计算器代码简单通俗的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。

相关阅读：

1、初中学校简介（初中学校简介简短）

2、上可学校是什么学校（上可学校怎么样）

3、求职信范文300字左右（求职信范文500字）

4、宣传学校的语句（为学校宣传的几句话）

5、云南省人才招聘信息网（云南人才网招聘信息网）

1、本网站名称：源码村资源网
2、本站永久网址：https://www.yuanmacun.com
3、本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长进行删除处理。
4、本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5、本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报
6、本站资源大多存储在云盘，如发现链接失效，请联系我们我们会第一时间更新。
源码村资源网 » vb设计简易计算器代码（vb设计简易计算器代码简单通俗）
源码村长

源码村长

分享到：

相关推荐

1 评论

您需要 登录账户 后才能发表评论

发表评论

欢迎 访客 发表评论