• 首页

    • 怎样使用VB编写有加减乘除功能的计算器?

    提供代码,能使用的,在加200分

    推荐答案   2008-09-19
    Dim x!, n1!, n2!
    'N1,N2分别代表输入的第一个数和第二个数
    Dim strn1$, strn2$
    'StrN1,StrN2分别代表输入第一个
    Dim firstN As Boolean
    '判断是否是数字开头
    Dim pointflag As Boolean
    '判断是否已有小数点
    Dim runsign As Integer
    '变量Runsign用来储存运算符号
    Dim signflag As Boolean
    '变量SignFlag判断是否已有运算符号

    Private Sub form_load()
    n1 = 0: n2 = 0
    strn1 = "": strn2 = ""
    firstN = True
    pointflag = False
    '将 PointFlag 设为否，即没有小数点
    runsign = 0
    signflag = False
    '没有运算符号输入
    End Sub
    Private Sub cmdN_Click(Index As Integer)
    Select Case Index
    '用Index 作为判断分支的条件
    Case 0 To 9
    '如果Index是0到9,即数字
    If firstNum Then
    '输入为第一个数字的话
    strn1 = Str(Index)
    '实型转字符型
    firstN = False
    '初赋值标志为假
    Else
    strn1 = strn1 + Str(Index)
    '输入不是第一个数字的话,将输入的字符添加到原有字符串上
    End If '结束 if 块
    Text1.Text = strn1 '将字符串结果显示到标签上
    Case 10 '如果输入为小数点
    If Not pointflag Then '如果没有小数点
    If firstN Then '如果是第一个字符
    strn1 = "0." '显示为" 0." 不变
    firstN = False
    Else
    strn1 = strn1 + "."
    '初赋值标志为假,否则字符串上加上小数点符号
    End If '结束if块
    Else
    Exit Sub
    '已有小数点,则退出单击事件,也就是对单击事件不反应
    End If
    pointflag = True
    Text1.Text = strn1
    '将小数点标志为真,即在输入串中有了小数点,在显示屏上显示数字串
    Case 17
    If Sgn(Val(strn1)) = 1 Then
    strn1 = "-" + strn1
    Else
    If Sgn(Val(strn1)) = -1 Then
    strn1 = Right(strn1, Len(strn1) - 1)
    End If
    strn1 = "0."
    End If
    Text1.Text = strn1
    Case 12 To 15
    firstN = True
    '当输入为运算符号时,使下一次可以输入新数据
    pointflag = False '还原小数点标记值
    If signflag Then '前面已有运算符未运算
    Call Run '调用计算子程序,该子程序在下面有说明
    Else
    signflag = True
    '前面没有未运算的,将有无运算符标志设为"有"
    strn2 = strn1 '把字符串1复制给字符串2
    strn1 = "" '字符串1清空
    End If
    runsign = Index - 11
    Case 11 '如果输入等号
    If Not signflag Then '如果没有输入运算符
    Text1.Text = strn1 '以下均为重置各个变量
    ysjg = Val(strn1)
    firstN = True
    pointflag = False
    Else
    Call Run
    signflag = False
    '如果已输入运算符在内,计算清除是否有运算符标志
    End If
    Case 16
    n1 = 0
    n2 = 0
    '如果输入清除按钮,以下均为重置各个变量,相当于Form_Load中的代码
    strn1 = ""
    strn2 = ""
    firstN = True
    pointflag = False
    runsign = 0
    signflag = False
    Text1.Text = "0."
    End Select
    End Sub
    Public Sub Run()
    Dim ysjg As Single 'Ysjg为局部变量,用来存储运算结果
    n1 = Val(strn2) '将字符串转换成数值
    n2 = Val(strn1)
    Select Case runsign
    Case 1
    ysjg = n1 + n2
    Case 2
    ysjg = n1 - n2
    Case 3
    ysjg = n1 * n2
    Case 4
    ysjg = n1 / n2
    End Select
    strn2 = Str(ysjg)
    strn1 = strn2
    Text1.Text = strn2
    End Sub
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2008-09-19
    Dim flag, s, fh

    Private Sub cd_Click(Index As Integer)
    Select Case Index
    Case 0 To 9
    Text1.Text = Text1.Text & Index
    Case 10
    If flag = 0 Then
    Text1.Text = Text1.Text & "."
    flag = 1
    End If
    Case 11
    If fh = 12 Then
    Text1.Text = s + Val(Text1.Text)
    End If
    If fh = 13 Then
    Text1.Text = s - Val(Text1.Text)
    End If
    If fh = 14 Then
    Text1.Text = s * Val(Text1.Text)
    End If
    If fh = 15 Then
    Text1.Text = s / Val(Text1.Text)
    End If
    Case 12 To 15

    If Text1.Text = "" And Index = 13 Then
    Text1.Text = "-"
    Else
    s = Text1.Text
    Text1.Text = ""
    flag = 0
    fh = Index
    End If
    Case 16
    Text1.Text = ""
    flag = 0
    Case 17
    End
    Case 18
    Text1.Text = Val(Text1.Text) / 2
    End Select

    End Sub

    Private Sub Command1_Click()
    Text1.SelStart = Len(Text1.Text) - 1
    Text1.SelLength = 1
    Text1.SelText = ""
    flag = 0
    End Sub

    Private Sub Command2_Click()
    Text1.Text = ""
    flag = 0
    End Sub

    Private Sub Form_Load()
    flag = 0
    For i = 0 To 9
    cd(i).Caption = i
    Next
    End Sub
    第2个回答  2008-09-18
    vb6.0 支持点击 不支持键盘输入，
    从command1~15 分别是12~0 + - * / =
    Dim StrNo1 As Double
    Dim StrNo2 As Double
    Dim Str As String
    Dim StrON As Boolean

    Private Sub Command1_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = 1
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 1
    End If
    End Sub

    Private Sub Command10_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = ""
    Else
    Text1.Text = CDbl(Text1.Text) * 10
    End If
    End Sub

    Private Sub Command11_Click()
    If Text1.Text = "" Then
    StrNo1 = 0
    Str = "+"
    Else
    StrNo1 = CDbl(Text1.Text)
    Str = "+"
    Text1.Text = ""
    End If

    End Sub

    Private Sub Command12_Click()
    If Text1.Text = "" Then
    StrNo1 = 0
    Str = "-"
    Else
    StrNo1 = CDbl(Text1.Text)
    Str = "-"
    Text1.Text = ""
    End If
    End Sub

    Private Sub Command13_Click()
    If Text1.Text = "" Then
    StrNo1 = 0
    Str = "*"
    Else
    StrNo1 = CDbl(Text1.Text)
    Str = "*"
    Text1.Text = ""
    End If
    End Sub

    Private Sub Command14_Click()
    If Text1.Text = "" Then
    StrNo1 = 0
    Str = "/"
    Else
    StrNo1 = CDbl(Text1.Text)
    Str = "/"
    Text1.Text = ""
    End If
    End Sub

    Private Sub Command15_Click()
    If Text1.Text = "" Then
    StrNo2 = 0
    Else
    StrNo2 = CDbl(Text1.Text)
    Text1.Text = ""
    End If
    If Str = "+" Then
    Text1.Text = StrNo1 + StrNo2
    ElseIf Str = "-" Then
    Text1.Text = StrNo1 - StrNo2
    ElseIf Str = "*" Then
    Text1.Text = StrNo1 * StrNo2
    ElseIf Str = "/" Then
    Text1.Text = StrNo1 / StrNo2
    End If
    StrON = False
    End Sub

    Private Sub Command2_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = 2
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 2
    End If
    End Sub

    Private Sub Command3_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    If StrON = False Then
    Text1.Text = ""
    End If

    Text1.Text = 3
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 3
    End If
    End Sub

    Private Sub Command4_Click()
    If Text1.Text = "" Then
    Text1.Text = 4
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 4
    End If
    End Sub

    Private Sub Command5_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = 5
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 5
    End If
    End Sub

    Private Sub Command6_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = 6
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 6
    End If
    End Sub

    Private Sub Command7_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = 7
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 7
    End If
    End Sub

    Private Sub Command8_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = 8
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 8
    End If
    End Sub

    Private Sub Command9_Click()
    If StrON = False Then
    Text1.Text = ""
    End If

    If Text1.Text = "" Then
    Text1.Text = 9
    Else
    Text1.Text = CDbl(Text1.Text) * 10 + 9
    End If
    End Sub

    Private Sub Form_Load()
    Text1.Text = ""
    StrON = True
    End Sub
    第3个回答  2008-09-19
    我有v6.0的科学计算器代码.
    与他们的都不一样.
    button 有几十个,textbox一个.
    可用粟标,也可用键盘.
    如button1,
    Private Sub commend1_Click()
    text1.tex=text1.tex+val(commend1.lable)'我的发明专利.
    end sub
    ......
    第4个回答  2008-09-18
    老兄你使用的VB是完全版本的吗？ 我使用的是（Microsoft Visual Studio 2005）。。 代码如下

    添加3个textbox，4个button
    textbox1，textbox2 用来输入，textbox3用来显示结果
    button1为加， button2为减， button3 为乘， button4 为除

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim ss, ee As Double
    ss = Val(TextBox1.Text)
    ee = Val(TextBox2.Text)
    TextBox3.Text = Trim(Str(ss + ee))

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim ss, ee As Double
    ss = Val(TextBox1.Text)
    ee = Val(TextBox2.Text)
    TextBox3.Text = Trim(Str(ss - ee))

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim ss, ee As Double
    ss = Val(TextBox1.Text)
    ee = Val(TextBox2.Text)
    TextBox3.Text = Trim(Str(ss * ee))

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim ss, ee As Double
    ss = Val(TextBox1.Text)
    ee = Val(TextBox2.Text)
    TextBox3.Text = Trim(Str(ss / ee))

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox3.ReadOnly = True
    End Sub
    第5个回答  2008-09-18
    这个问题应该自己解决、其实它并不难。
    代码都是那几行，关键得弄清VB的事件触发过程。
    添加几个按钮，几个文本框，稍微改改属性值，在相应的事件下添加几行代码就好了，其实并不需要人家的代码，因为如果这个不懂的话，给你代码可能你还是不懂哦 @_@
    共同进步！！
    12

    相关了解……

    你可能感兴趣的内容

    大家正在搜
    利用c语言编写一个加减乘除计算器设计一个有加减乘除的计算器vfp编写加减乘除计算器vb编写加减乘除计算器图解计算器如何计算加减乘除c语言做计算器计算加减乘除vb编写简易计算器加减乘除代码vb编写加减乘除计算器视频计算器怎么做加减乘除
    相关问题
    怎样用C语言编写计算器的加减乘除
    如何使用VB做个加减乘除的小计算器
    如何用VB编写一个加减乘除计算器？只要代码!
    用C语言怎样实现计算器加减乘除功能？
    vb编写计算器加减乘除怎么弄？
    用vb编写一个计算器程序，实现加减乘除，
    如何用vb制作计算器(只要有加减乘除，三个文本框)?
    VB计算器的加减乘除如何编写的

    本站内容来自于网友发表，不代表本站立场，仅表示其个人看法，不对其真实性、正确性、有效性作任何的担保
    相关事宜请发邮件给我们
    © 非常风气网