none
VB 求错误解答 RRS feed

  • 问题

  • 我做了一个计算器 
    但是发现3个问题 帮忙解答下 谢谢 
    首先第一个问题
    我的计算器 只能运行个位数的加减乘除运算  也就是说零点几的小数和 10位以上数字不能输入.
    第2个问题是  我计算器上面的C 和CE功能不能用 但是C制作的清楚功能别人说没有问题 是不是代码写错了?
    第三是  我的计算器除法功能不能用 代码应该怎么写?我跟乘法一样的代码 就是不出来...

    我的计算器 数字按键代码是
    Private Sub Command1_Click()
    If c = True Then
    b = Val(Str(b) & "1")
    Text1 = b
    Else
    a = Val(Str(a) & "1")
    Text1 = a
    End If
    End Sub


    加减乘除符号代码是
    Private Sub Command4_Click()
    c = True
    End Sub


    等号代码是
    Private Sub Command16_Click()


        result = a + b

        Text1 = result

        c = False

        a = 0

        b = 0


    End Sub

    到底问题出在哪里了?
    哪位好心人帮我解决下?最好帮我制作一个  能让我一个个点开看看的VB文件
    我的邮箱是  EMAIL REMOVED
    2009年10月9日 6:31

答案

  • 你好!
         可以参考这个实现,希望对你有帮助:
    http://download.csdn.net/source/162491
    周雪峰
    • 已标记为答案 Kira Qian 2009年10月16日 7:52
    2009年10月9日 11:04
    版主