网站建设资讯

NEWS

网站建设资讯

关于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


网站标题:关于vb.net实现加减乘除的信息
转载源于:http://njwzjz.com/article/dohjgoi.html