主题: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
但是发现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