关于vb.net实现加减乘除的信息

用vb设计一个计算器,里面的加减乘除按键的代码怎么写

简单点的：

成都创新互联主营拱墅网站建设的网络公司,主营网站建设方案,app软件开发,拱墅h5小程序设计搭建,拱墅网站营销推广欢迎拱墅等地区企业咨询

dim 上一个数 as double

dim 下一个数 as double

dim 结果 as double

dim 操作 as string

private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加.click, 减.click, 乘.click, 除.click

上一个数 = cdbl(输入框.text) ' 存储当前输入的数值

输入框.text = "" ' 等待下一个数值

select case sender.text ' 根据按下的按钮的文本属性确定你要做什么，这里可以用加减乘除号代替

case "加"

操作 = "加"

case "减"

操作 = "减"

case "乘"

操作 = "乘"

case "除"

操作 = "除"

end select

end sub

private sub 计算(byval sender as object, byval e as eventargs) handles 等号.click

下一个数 = 输入框.text

输入框.text ＝ ”“

select case 操作

case "加"

结果 = 上一个数 + 下一个数

case "减"

结果 = 上一个数 - 下一个数

case "乘"

结果 = 上一个数 * 下一个数

case "除"

结果 = 上一个数 / 下一个数

end select

输入框.text = cstr(结果)

上一个数 = 结果

end sub

.NET 的哈，我没有 .NET 现在，不知道行不行

如何用VB进行加减乘除运算?

1、在电脑桌面打开软件“Visual Basic”，新建一个文件

2、放置3个“Text”部件和4个“Command”部件，调整好位置；

3、对这7个小部件进行修饰，更改command部件的名称为“+、-、*、/”方便识别，清除“Test”部件里的内容；

4、双击“Command”部件进入编辑页面，输入图中所示的命令；

5、命令输完以后，关闭编辑页面，运转程序，在前两个方框上输出数字，只要点击下方的“+、-、*、/、”四个部件，第三个方框就会表现成果，实现加减乘数运算。

跪求:VB.net加减乘除 代码

先在form上建立三个textbox，分别为textbox1,textbox2,textbox3，再建立四个按钮，分别为cmdplus,cmdminus,cmdmultiple,cmddivide，代码如下：

Private Sub cmdplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplus.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a + b

End If

Private Sub cmdminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminus.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a - b

End If

Private Sub cmdmultiple_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmultiple.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a * b

End If

Private Sub cmddivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddivide.Click

Dim a As Integer

Dim b As Integer

a = TextBox1.Text

b = TextBox2.Text

TextBox3.Text = a / b

End If