如何使用VB设计一个计算器？ - VB / 多媒体

如何使用VB设计一个计算器。我不会用VB。

 目的：输入A、B、C三个数，得到一个结果D

D=【（A-0.3）*（B-3）*（C-15）】/【（7.5-0.3）*（68-3）*（270-15）】


谢谢了，谁会的做个给我吧，谢谢了

---

好像有个叫什么的，一时想不想了。
调用下calc吧。加点sendkey。

---

引用

VB codePrivateSub Command1_Click()Dim D
D= ((Val(Text1)-0.3)* (Val(Text2)-3)* (Val(Text3)-15))/ ((7.5-0.3)* (68-3)* (270-15))
Text4= Format(D,"0.00")End SubPrivateSub Form_Load()
Text1=""
Text2=""
Tex?-

强

---

这样可以吗？能不能做出来呀？我一点都不会。。。今天别人就要了。。

---

你在窗体上放三个文本框,用来输入A、B、C的值，点击Command1计算，结果显示在第四个文本框里。

---

你只要将代码拷到窗体就行了,其它就是运行了,简单吧
VB code:
Private Sub Form_Load()
Dim A As Double
Dim B As Double
Dim C As Double
A = Val(InputBox("输入A的值:", "数据输入"))
B = Val(InputBox("输入B的值:", "数据输入"))
C = Val(InputBox("输入c的值:", "数据输入"))
Dim D
D = ((A - 0.3) * (B - 3) * (C - 15)) / ((7.5 - 0.3) * (68 - 3) * (270 - 15))
MsgBox Format(D, "0.00")
End Sub

---

老张真是耐心呀，没有办法，lz不懂vb,也只能苦口婆心了。
只是lz 不会竟然敢接活......
{{---