Question

怎样使VB做一个加减乘除的小程序，麻烦了，快点啊！！

最好给我传到QQ上
QQ：821805519
O(∩_∩)O谢谢啦
我是新手 最好直接给我成品

Answer 1

首先，创建两个文本框，命名为aTextbox和bTextbox
再创建一个文本框，命名为sumTextbox
再创建4个按钮，命名为 aButton bButton cButton dButton
-------------
我们最终的效果将会是这样：
单击aButton就将aTextbox和bTextbox相加，显示在sumTextbox里
单击bButton就相减
单击cButton就相乘
单击dButton就相除
-------------
代码：（不要直接复制！自己看明白了再自己写，对你有好处！）
在aButton的Click事件中加入：
sumTextbox.text= Val(aTextbox.text) + Val(bTextbox.text)
在bButton的Click事件中加入：
sumTextbox.text= Val(aTextbox.text) - Val(bTextbox.text)
在cButton的Click事件中加入：
sumTextbox.text= Val(aTextbox.text) * Val(bTextbox.text)
在dButton的Click事件中加入：
sumTextbox.text= Val(aTextbox.text) / Val(bTextbox.text)

这也是我百度上找到的，自己研究吧。很简单的。

Answer 2

10大洋！帮你做。。。

有个现成的语音计算器，20大洋。。

Answer 3

没听清楚楼主要干什么。是做计算器还是那个扑克牌游戏

追问

是计算器

追答

百度一下，你就知道了！！
请在窗体上放2个textbox(文本框）和4个commandbutton(命令按钮)和1个label(标签),再输入以下代码 ：
Dim a%, b%, c%
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Label1.Caption = Label1.Caption & c
End Sub
Private Sub Command2_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Label1.Caption = Label1.Caption & c
End Sub
Private Sub Command3_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Label1.Caption = Label1.Caption & c
End Sub
Private Sub Command4_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a / b
Label1.Caption = Label1.Caption & c
End Sub

Answer 4

网上有一个开头是＂序言--不在游戏＂的教程，里面有个叫做计算器的（被度文库理由）