回 帖 发 新 帖 刷新版面

主题:VB求助解答

我做了一个计算器 
但是发现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文件
我的邮箱是  jking3313@naver.com

回复列表 (共1个回复)

沙发

要计算小数,变量a、b就必须声明为单精度。
在Command4_Click过程中,你要用一个字符型变量保存运算符,例如:

Private Sub Command4_Click()'假设这是+号
symbo="+"
c = True
End Sub

然后在Command16_Click过程中,你要根据symbo进行计算,例如:

Private Sub Command16_Click()
if symbo="+" then
  result = a + b
elseif symbo="-" then
  result = a - b
...
end if
Text1 = result
c = False
a = 0
b = 0
End Sub

我来回复

您尚未登录,请登录后再回复。点此登录或注册