第一个命令按钮输入text3=val(text1)+val(text2)!
创新互联专注于向阳企业网站建设,自适应网站建设,购物商城网站建设。向阳网站建设公司,为向阳等地区提供建站服务。全流程按需规划网站,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务
第二text3=val(text1)-val(text2)!
第三个text3=val(text1)*val(text2)
第四个text3=val(text1)/val(text2)第五个text1.text="" text2.text=""text3.text=""
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说,VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
先在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
1、在电脑桌面打开软件“Visual Basic”,新建一个文件
2、放置3个“Text”部件和4个“Command”部件,调整好位置;
3、对这7个小部件进行修饰,更改command部件的名称为“+、-、*、/”方便识别,清除“Test”部件里的内容;
4、双击“Command”部件进入编辑页面,输入图中所示的命令;
5、命令输完以后,关闭编辑页面,运转程序,在前两个方框上输出数字,只要点击下方的“+、-、*、/、”四个部件,第三个方框就会表现成果,实现加减乘数运算。