vb点虐 加减乘除 vb编写加减乘除计算器图解

vb运算符在运算式的顺序是什么?

先乘除后加减,从右到左运算。

成都创新互联是一家专注于做网站、网站建设与策划设计,普陀网站建设哪家好?成都创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:普陀等地区。普陀做网站价格咨询:028-86922220

VB中运算符的计算优先级顺序如下:算术运算符和串联运算符求幂(^)一元标识和非(+、–)乘法和浮点除法(*、/)整数除法(\)取模(Mod)加法和减法(+、–),字符串连接(+)字符串连接()算术移位()比较运算符。

扩展资料

vb点虐  特性:

1、vb点虐 完全集成到 Visual Studio 集成开发环境中,在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。

2、vb点虐 项目与 VB 不同。它使用基于文件夹的模型,所有项目均放置在项目文件夹层次结构中。

3、vb点虐 中使用ado点虐 来访问数据库,ado点虐 是点虐 Framework的一部分。在 vb点虐 中实现数据访问的方法主要有两种。

其一是在程序设计阶段,通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet;其二是在运行中,通过编程方式动态创建配置数据适配器和创建、生成数据集。

4、在 vb点虐 中是使用asp点虐 技术来编写 Web 页面的。在asp点虐 中使用的也不是脚本语言,而是真正意义的编程语言。

凭借asp点虐 的 Web 应用程序、XML Web Services 等基于 Web 的功能,使得 vb点虐 开发 Web 页面与开发 Windows 应用程序很相似,Web 页面代码也显得有条有理了。

5、vb点虐 已经成为完全的面向对象的编程语言,并且新增更多语言特性。

跪求: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

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

简单点的:

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:简易计算器(加减乘除)代码

代码如下:

Dim t, t1 As Integer

Dim x, y As Double

Public Sub com()

x = Val(l1.Caption)

Select Case t1

Case Is = 1: y = y + x

Case Is = 2: y = y - x

Case Is = 3: y = y * x

Case Is = 4: y = y / x

End Select

t1 = 0

t = 0

l1.Caption = "0"

End Sub

Private Sub Form_Load()

x = 0

y = 0

t = 0

t1 = 1

End Sub

Private Sub c0_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "0"

Else

l1.Caption = l1.Caption + "0"

End If

End Sub

Private Sub C1_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "1"

Else

l1.Caption = l1.Caption + "1"

End If

End Sub

Private Sub c10_Click(Index As Integer)

If t = 0 Then

l1.Caption = l1.Caption + "."

t = 1

End If

End Sub

Private Sub C2_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "2"

Else

l1.Caption = l1.Caption + "2"

End If

End Sub

Private Sub C3_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "3"

Else

l1.Caption = l1.Caption + "3"

End If

End Sub

Private Sub C4_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "4"

Else

l1.Caption = l1.Caption + "4"

End If

End Sub

Private Sub C5_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "5"

Else

l1.Caption = l1.Caption + "5"

End If

End Sub

Private Sub C6_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "6"

Else

l1.Caption = l1.Caption + "6"

End If

End Sub

Private Sub C7_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "7"

Else

l1.Caption = l1.Caption + "7"

End If

End Sub

Private Sub C8_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "8"

Else

l1.Caption = l1.Caption + "8"

End If

End Sub

Private Sub C9_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "9"

Else

l1.Caption = l1.Caption + "9"

End If

End Sub

Private Sub z1_Click(Index As Integer)

com

t1 = 1

End Sub

Private Sub z2_Click(Index As Integer)

com

t1 = 2

End Sub

Private Sub z3_Click(Index As Integer)

com

t1 = 3

End Sub

Private Sub z4_Click(Index As Integer)

com

t1 = 4

End Sub

Private Sub z5_Click(Index As Integer)

tmp = Mid(l1.Caption, Len(l1.Caption), 1)

If tmp = "." Then

t = 0

End If

If Len(l1.Caption) = 1 Then

l1.Caption = "0"

Else

l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)

End If

End Sub

Private Sub z6_Click(Index As Integer)

l1.Caption = "0"

Form_Load

End Sub

Private Sub z7_Click(Index As Integer)

If (l1.Caption "0") Then

l1.Caption = "-" + l1.Caption

End If

End Sub

Private Sub z8_Click(Index As Integer)

com

l1.Caption = Str(y)

End Sub

扩展资料

语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点,使其有所局限性(此些缺点皆已在 vb 点虐 获得改进)。

不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言,但是不包含继承特性。VB 中提供了特殊的类的功能,但是还是不能满足程序员的需求。

无原生支持多线程

Visual Basic 对于多线程无原生支持,只能通过Windows API的调用实现,且极其的不稳定。因为在API创建的线程中,并没有自动初始化运行时库,导致部分的函数无法使用。一般的,在VB6等早期的VB开发环境下,使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

异常处理不完善

Visual Basic 中内置异常处理,即使未写异常处理代码,一旦用户出错也会弹出一个明确写出出错原因对话框,接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式:一是使用 On Error Resume Next 处理错误;另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言,这样的异常处理破坏了代码的结构。

参考资料:百度百科-VB


文章名称:vb点虐 加减乘除 vb编写加减乘除计算器图解
文章源于:http://pwwzsj.com/article/ddeieps.html