皮皮网

1.vb ������ Դ��
2.求有数字按键的计算b计简单vb计算器代码，谢谢
3.VB简易计算器代码怎么写
4.用VB做一个简单的器源加减乘除的计算器，代码是算器什么？
5.用vb设计一个计算器,里面的加减乘除按键的代码怎么写
6.用VB编写计算器的代码如何写

vb ������ Դ��

       计算器代码：

       Option Explicit

       Private StoredValue As Double

       Private Const opNone = 0

       Private Const opAdd = 1

       Private Const opSubtract = 2

       Private Const opMultiply = 3

       Private Const opDivide = 4

       Private Operator As Integer

       Private NewEntry As Boolean

       Private Sub cmdDelete_Click()

       Dim txt As String

       Dim min_len As Integer

       txt = txtDisplay.Text

       If Left$(txt, 1) = "-" Then

       min_len = 2

       Else

       min_len = 1

       End If

       If Len(txt) > min_len Then

       txtDisplay.Text = Left$(txt, Len(txt) - 1)

       Else

       txtDisplay.Text = "0"

       End If

       End Sub

       Private Sub cmdEquals_Click()

       Dim new_value As Double

       If txtDisplay.Text = "" Then

       new_value = 0

       Else

       new_value = CDbl(txtDisplay.Text)

       End If

       Select Case Operator

       Case opNone

       StoredValue = new_value

       Case opAdd

       StoredValue = StoredValue + new_value

       Case opSubtract

       StoredValue = StoredValue - new_value

       Case opMultiply

       StoredValue = StoredValue * new_value

       Case opDivide

       StoredValue = StoredValue / new_value

       End Select

       Operator = opNone

       NewEntry = True

       txtDisplay.Text = Format$(StoredValue)

       End Sub

       ' 显示数字

       Private Sub cmdNumber_Click(Index As Integer)

       If NewEntry Then

       txtDisplay.Text = Format$(Index)

       NewEntry = False

       Else

       txtDisplay.Text = txtDisplay.Text & Format$(Index)

       End If

       End Sub

       Private Sub cmdOperator_Click(Index As Integer)

       cmdEquals_Click

       Operator = Index

       NewEntry = True

       End Sub

       '清除显示内容

       Private Sub cmdClearEntry_Click()

       txtDisplay.Text = ""

       End Sub

       '清除显示内容，保存运算符

       Private Sub cmdClear_Click()

       cmdClearEntry_Click

       StoredValue = 0

       Operator = opNone

       End Sub

       ' 显示小数点

       Private Sub cmdDecimal_Click()

       If InStr(txtDisplay.Text,源码 ".") Then

       Beep

       Else

       If NewEntry Then

       txtDisplay.Text = "."

       NewEntry = False

       Else

       txtDisplay.Text = txtDisplay.Text & "."

       End If

       End If

       End Sub

       '改变符号

       Private Sub cmdPlusMinus_Click()

       If NewEntry Then

       txtDisplay.Text = "-"

       ElseIf Left$(txtDisplay.Text, 1) = "-" Then

       txtDisplay.Text = Right$(txtDisplay.Text, )

       Else

       txtDisplay.Text = "-" & txtDisplay.Text

       End If

       End Sub

       Private Sub Form_KeyPress(KeyAscii As Integer)

       txtDisplay_KeyPress KeyAscii

       End Sub

       Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

       txtDisplay_KeyUp KeyCode, Shift

       End Sub

       Private Sub txtDisplay_Change()

       txtDisplay.SelStart = Len(txtDisplay.Text)

       End Sub

       Private Sub txtDisplay_GotFocus()

       txtDisplay_Change

       End Sub

       Private Sub txtDisplay_KeyPress(KeyAscii As Integer)

       Dim ch As String

       ch = Chr$(KeyAscii)

       Select Case ch

       Case "0"

       cmdNumber_Click 0

       Case "1"

       cmdNumber_Click 1

       Case "2"

       cmdNumber_Click 2

       Case "3"

       cmdNumber_Click 3

       Case "4"

       cmdNumber_Click 4

       Case "5"

       cmdNumber_Click 5

       Case "6"

       cmdNumber_Click 6

       Case "7"

       cmdNumber_Click 7

       Case "8"

       cmdNumber_Click 8

       Case "9"

       cmdNumber_Click 9

       Case "*", "x", "X"

       cmdOperator_Click opMultiply

       Case "+"

       cmdOperator_Click opAdd

       Case vbCrLf, vbCr, "="

       cmdEquals_Click

       Case "-"

       cmdOperator_Click opSubtract

       Case "."

       cmdDecimal_Click

       Case "/"

       cmdOperator_Click opDivide

       Case "C", "c"

       cmdClearEntry_Click

       End Select

       KeyAscii = 0

       End Sub

       Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)

       Select Case KeyCode

       Case vbKeyNumpad0

       cmdNumber_Click 0

       Case vbKeyNumpad1

       cmdNumber_Click 1

       Case vbKeyNumpad2

       cmdNumber_Click 2

       Case vbKeyNumpad3

       cmdNumber_Click 3

       Case vbKeyNumpad4

       cmdNumber_Click 4

       Case vbKeyNumpad5

       cmdNumber_Click 5

       Case vbKeyNumpad6

       cmdNumber_Click 6

       Case vbKeyNumpad7

       cmdNumber_Click 7

       Case vbKeyNumpad8

       cmdNumber_Click 8

       Case vbKeyNumpad9

       cmdNumber_Click 9

       Case vbKeyMultiply

       cmdOperator_Click opMultiply

       Case vbKeyAdd

       cmdOperator_Click opAdd

       Case vbKeySeparator

       cmdEquals_Click

       Case vbKeySubtract

       cmdOperator_Click opSubtract

       Case vbKeyDecimal

       cmdDecimal_Click

       Case vbKeyDivide

       cmdOperator_Click opDivide

       Case vbKeyBack, vbKeyDelete

       cmdDelete_Click

       End Select

       KeyCode = 0

       End Sub

求有数字按键的简单vb计算器代码，谢谢

       编写一个简单的计算b计VB计算器代码，需要定义一些变量和常量。器源数据结构c源码首先声明`StoredValue`为双精度数，算器`Operator`表示操作符，源码初始值设为`opNone`。计算b计在代码中，器源实现删除最后字符的算器功能，通过`cmdDelete_Click`事件处理。源码清除显示内容并保存操作符的计算b计python 入门源码代码在`cmdClear_Click`中执行。

       实现清除显示内容的器源逻辑在于`cmdClearEntry_Click`事件，将文本框`txtDisplay`的算器文本清空。在`cmdDecimal_Click`中处理小数点的显示，确保其在输入数字时不会重复出现。

       `cmdEquals_Click`事件负责计算操作结果，根据`Operator`的值执行不同的数学操作，并更新`StoredValue`。同时，更新操作符、清除新输入标志，并将结果显示在文本框中。

       在`cmdNumber_Click`和`cmdOperator_Click`中，c sql 管理源码实现数字和操作符的输入。对于符号改变，使用`cmdPlusMinus_Click`事件处理正负号的切换。键盘输入处理通过`Form_KeyPress`和`Form_KeyUp`事件完成，确保各种按键输入都对应相应的功能。

       文本框的焦点改变和输入改变事件分别由`txtDisplay_GotFocus`和`txtDisplay_Change`处理，确保在输入过程中文本框的正确行为。最后，使用`txtDisplay_KeyPress`和`txtDisplay_KeyUp`处理文本框的按键和释放事件，实现与用户的交互。

VB简易计算器代码怎么写

       Dim a() As Double

       Dim n&

       Dim Plus As Boolean

       Dim yunsuan() As Integer '------------这里增加

       Dim a As Double

       Private Sub cmd1_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "1"

       Else

       Text1.Text = Text1.Text & "1"

       End If

       End Sub

       Private Sub cmd2_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "2"

       Else

       Text1.Text = Text1.Text & "2"

       End If

       End Sub

       Private Sub cmd3_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "3"

       Else

       Text1.Text = Text1.Text & "3"

       End If

       End Sub

       Private Sub cmd4_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "4"

       Else

       Text1.Text = Text1.Text & "4"

       End If

       End Sub

       Private Sub cmd5_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "5"

       Else

       Text1.Text = Text1.Text & "5"

       End If

       End Sub

       Private Sub cmd6_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "6"

       Else

       Text1.Text = Text1.Text & "6"

       End If

       End Sub

       Private Sub cmd7_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "7"

       Else

       Text1.Text = Text1.Text & "7"

       End If

       End Sub

       Private Sub cmd8_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "8"

       Else

       Text1.Text = Text1.Text & "8"

       End If

       End Sub

       Private Sub cmd9_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "9"

       Else

       Text1.Text = Text1.Text & "9"

       End If

       End Sub

       Private Sub cmd0_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "0"

       Else

       Text1.Text = Text1.Text & "0"

       End If

       End Sub

       Private Sub cmdDian_Click()

       If Plus = True Then

       Plus = False

       Text1.Text = "0."

       Else

       Text1.Text = Text1.Text & "."

       End If

       End Sub

       Private Sub cmdjia_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 0 '------这是在加号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdjian_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 1 '------这是在减号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdcheng_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 2 '------这是在乘号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdchu_Click()

       If Plus = False Then

       a(n) = Val(Text1.Text)

       yunsuan(n) = 3 '------这是在除号里

       n = n + 1

       Plus = True

       End If

       End Sub

       Private Sub cmdDengyu_Click() '-------这是等于号

       If Plus = False Then

       a(n) = Val(Text1.Text)

       End If

       a() = a(0) '初始为a(0)

       For i = 1 To

       If yunsuan(i - 1) = 0 Then '------如果是加

       a() = a() + a(i)

       ElseIf yunsuan(i - 1) = 1 Then '----------如果是减

       a() = a() - a(i)

       ElseIf yunsuan(i - 1) = 2 Then '-----xxx

       a() = a() * a(i)

       ElseIf yunsuan(i - 1) = 3 Then '--------///

       a() = a() / a(i)

       End If

       Next

       Plus = False

       Text1.Text = a()

       n = 0

       a = a()

       Erase a

       a(0) = a

       Erase yunsuan '--------清理

       End Sub

       Private Sub Command_Click()

       Text1.Text = ""

       Erase a

       Erase yunsuan

       n = 0

       End Sub

       Private Sub Form_Load()

       Text1.Locked = True

       n = 0

       Plus = False

       End Sub

       Private Sub form_KeyDown(KeyCode As Integer, Shift As Integer)

       If KeyCode = Then cmd1_Click

       If KeyCode = Then cmd2_Click

       If KeyCode = Then cmd3_Click

       If KeyCode = Then cmd4_Click

       If KeyCode = Then cmd5_Click

       If KeyCode = Then cmd6_Click

       If KeyCode = Then cmd7_Click

       If KeyCode = Then cmd8_Click

       If KeyCode = Then cmd9_Click

       If KeyCode = Then cmd0_Click

       If KeyCode = Then cmdDian_Click

       If KeyCode = Then cmdjian_Click

       If KeyCode = Then cmdDengyu_Click

       If KeyCode = Then cmdchu_Click

       If KeyCode = Then cmdjia_Click

       If KeyCode = Then cmdcheng_Click

       Debug.Print KeyCode, vbKey1

       End Sub

用VB做一个简单的加减乘除的计算器，代码是足彩竞猜app源码什么？

       我们现在首先要做的就是拉出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设计一个计算器,里面的加减乘除按键的代码怎么写

       简单点的：

       dim 上一个数 as double

       dim 下一个数 as double

       dim 结果 as double

       dim 操作 as string

       private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加.click, 减.click, 乘.click, 除.click

        上一个数 = cdbl(输入框.text) ' 存储当前输入的数值

        输入框.text = "" ' 等待下一个数值

        select case sender.text ' 根据按下的按钮的文本属性确定你要做什么，这里可以用加减乘除号代替

        case "加"

        操作 = "加"

        case "减"

        操作 = "减"

        case "乘"

        操作 = "乘"

        case "除"

        操作 = "除"

        end select

       end sub

       private sub 计算(byval sender as object, byval e as eventargs) handles 等号.click

        下一个数 = 输入框.text

        输入框.text ＝ ”“

        select case 操作

        case "加"

        结果 = 上一个数 + 下一个数

        case "减"

        结果 = 上一个数 - 下一个数

        case "乘"

        结果 = 上一个数 * 下一个数

        case "除"

        结果 = 上一个数 / 下一个数

        end select

        输入框.text = cstr(结果)

        上一个数 = 结果

       end sub

       .NET 的哈，我没有 .NET 现在，不知道行不行

用VB编写计算器的代码如何写

       在窗体上放置以下控件，包括：

       - 1个Label控件，命名为 lblResult，设置Caption为0。

       - 数组按钮控件btnNum(0)~btnNum(9)，下标对应数字（如：btnNum(0)的Caption设置为0，依次类推）。

       - 六个按钮：btnAdd（加法）、btnSub（减法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等于号）、btnReset（清除键）。

       在窗体代码中输入以下内容：

       定义变量：Dim byteOperation As Byte（操作符）、byteTmp As Byte（临时操作符）、intNum As Double（输入的数字）

       Sub Calc()语句，根据byteOperation的值执行不同的计算操作，更新lblResult的Caption。

       Sub btnNum_Click(Index As Integer)语句，接收输入按钮的数字，若byteTmp非0，则调用Calc()函数，设置byteOperation为1（加法）和byteTmp为1。

       Sub btnReset_Click()语句，重置所有变量和lblResult的Caption为0。

       Sub btnSub_Click()语句，若byteOperation非0，则调用Calc()函数，设置byteOperation为3（减法）和byteTmp为3。

       Sub btnDiv_Click()语句，若byteOperation非0，则调用Calc()函数，设置byteOperation为4（除法）和byteTmp为4。

       Sub btnEnter_Click()语句，调用Calc()函数，结束输入操作。

       通过以上代码实现了一个基本的计算器功能，包括加、减、乘、除和清除功能。通过按钮点击触发相应操作，最终结果显示在lblResult控件中。

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

       1、创建控件组的方法

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

       è¿™æ—¶ï¼Œç¬¬ä¸€ä¸ªæŒ‰é’®çš„Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共个按钮，每建立一个，就将它拖到合适处，并修改相应的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设计出计算器的代码。。。但是不懂里面代码的意思 有没有大神解读一下啊 ！！！没钱。。。大神啊。。

       Private Sub Command1_Click()'按退格键，删除一个数字

       Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) '退格

       End Sub

       Private Sub stand_Click()'修改计算器外型的大小为标准型

       Form1.Width = '更改窗体尺寸

       Form1.Height =

       Text1.Width =

       stand.Checked = True '标识标准型

       science.Checked = False

       End Sub

       Private Sub Form_Load()‘启动时设置选择中标准型计算器

       stand.Checked = True '默认标准型

       End Sub