vb.net加减乘除 vb加减代码

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

【用vb.net编程序】做一个记事本和计算器

上次vb.net加减乘除你说是vb6.0 啊

怎么又变成vb.netvb.net加减乘除了

VB.net的开方运算

VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。

请你比较一下这个运算中x和y的值：

Dim n As Single = 4

Dim x As Single

Dim y As Single

x = n + 1

x = x / n

x = x - 1

x = Math.Sqrt(x)

y = Math.Sqrt((n + 1) / n - 1)

这样就会发现，你的代码中括号的位置错了。

正确的应该是： Math.Sqrt((n + 1) / n - 1)

跪求: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的问题..

'这里只实现简单vb.net加减乘除的加减乘除

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成vb.net加减乘除的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需vb.net加减乘除的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents btnNo1 As System.Windows.Forms.Button

Friend WithEvents btnNo2 As System.Windows.Forms.Button

Friend WithEvents btnNo5 As System.Windows.Forms.Button

Friend WithEvents btnNo4 As System.Windows.Forms.Button

Friend WithEvents btnNo3 As System.Windows.Forms.Button

Friend WithEvents btnNo7 As System.Windows.Forms.Button

Friend WithEvents btnNo8 As System.Windows.Forms.Button

Friend WithEvents btnNo6 As System.Windows.Forms.Button

Friend WithEvents btnNo9 As System.Windows.Forms.Button

Friend WithEvents btnDot As System.Windows.Forms.Button

Friend WithEvents btnSF As System.Windows.Forms.Button

Friend WithEvents btnNo0 As System.Windows.Forms.Button

Friend WithEvents btn加 As System.Windows.Forms.Button

Friend WithEvents btn除 As System.Windows.Forms.Button

Friend WithEvents btn乘 As System.Windows.Forms.Button

Friend WithEvents btn减 As System.Windows.Forms.Button

Friend WithEvents txtResult As System.Windows.Forms.TextBox

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents btn等于 As System.Windows.Forms.Button

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

Me.btnNo1 = New System.Windows.Forms.Button

Me.btnNo2 = New System.Windows.Forms.Button

Me.btnNo5 = New System.Windows.Forms.Button

Me.btnNo4 = New System.Windows.Forms.Button

Me.btnNo3 = New System.Windows.Forms.Button

Me.btnNo7 = New System.Windows.Forms.Button

Me.btnNo8 = New System.Windows.Forms.Button

Me.btnNo6 = New System.Windows.Forms.Button

Me.btnNo9 = New System.Windows.Forms.Button

Me.btnDot = New System.Windows.Forms.Button

Me.btnSF = New System.Windows.Forms.Button

Me.btnNo0 = New System.Windows.Forms.Button

Me.btn加 = New System.Windows.Forms.Button

Me.btn除 = New System.Windows.Forms.Button

Me.btn乘 = New System.Windows.Forms.Button

Me.btn减 = New System.Windows.Forms.Button

Me.txtResult = New System.Windows.Forms.TextBox

Me.Button1 = New System.Windows.Forms.Button

Me.btn等于 = New System.Windows.Forms.Button

Me.SuspendLayout()

'btnNo1

Me.btnNo1.Location = New System.Drawing.Point(8, 80)

Me.btnNo1.Name = "btnNo1"

Me.btnNo1.Size = New System.Drawing.Size(32, 20)

Me.btnNo1.TabIndex = 0

Me.btnNo1.Text = "1"

'btnNo2

Me.btnNo2.Location = New System.Drawing.Point(48, 80)

Me.btnNo2.Name = "btnNo2"

Me.btnNo2.Size = New System.Drawing.Size(32, 20)

Me.btnNo2.TabIndex = 1

Me.btnNo2.Text = "2"

'btnNo5

Me.btnNo5.Location = New System.Drawing.Point(48, 56)

Me.btnNo5.Name = "btnNo5"

Me.btnNo5.Size = New System.Drawing.Size(32, 20)

Me.btnNo5.TabIndex = 2

Me.btnNo5.Text = "5"

'btnNo4

Me.btnNo4.Location = New System.Drawing.Point(8, 56)

Me.btnNo4.Name = "btnNo4"

Me.btnNo4.Size = New System.Drawing.Size(32, 20)

Me.btnNo4.TabIndex = 3

Me.btnNo4.Text = "4"

'btnNo3

Me.btnNo3.Location = New System.Drawing.Point(88, 80)

Me.btnNo3.Name = "btnNo3"

Me.btnNo3.Size = New System.Drawing.Size(32, 20)

Me.btnNo3.TabIndex = 4

Me.btnNo3.Text = "3"

'btnNo7

Me.btnNo7.Location = New System.Drawing.Point(8, 32)

Me.btnNo7.Name = "btnNo7"

Me.btnNo7.Size = New System.Drawing.Size(32, 20)

Me.btnNo7.TabIndex = 5

Me.btnNo7.Text = "7"

'btnNo8

Me.btnNo8.Location = New System.Drawing.Point(48, 32)

Me.btnNo8.Name = "btnNo8"

Me.btnNo8.Size = New System.Drawing.Size(32, 20)

Me.btnNo8.TabIndex = 6

Me.btnNo8.Text = "8"

'btnNo6

Me.btnNo6.Location = New System.Drawing.Point(88, 56)

Me.btnNo6.Name = "btnNo6"

Me.btnNo6.Size = New System.Drawing.Size(32, 20)

Me.btnNo6.TabIndex = 7

Me.btnNo6.Text = "6"

'btnNo9

Me.btnNo9.Location = New System.Drawing.Point(88, 32)

Me.btnNo9.Name = "btnNo9"

Me.btnNo9.Size = New System.Drawing.Size(32, 20)

Me.btnNo9.TabIndex = 8

Me.btnNo9.Text = "9"

'btnDot

Me.btnDot.Location = New System.Drawing.Point(88, 104)

Me.btnDot.Name = "btnDot"

Me.btnDot.Size = New System.Drawing.Size(32, 20)

Me.btnDot.TabIndex = 9

Me.btnDot.Text = "."

'btnSF

Me.btnSF.Location = New System.Drawing.Point(48, 104)

Me.btnSF.Name = "btnSF"

Me.btnSF.Size = New System.Drawing.Size(32, 20)

Me.btnSF.TabIndex = 10

Me.btnSF.Text = "+/-"

'btnNo0

Me.btnNo0.Location = New System.Drawing.Point(8, 104)

Me.btnNo0.Name = "btnNo0"

Me.btnNo0.Size = New System.Drawing.Size(32, 20)

Me.btnNo0.TabIndex = 11

Me.btnNo0.Text = "0"

'btn加

Me.btn加.Location = New System.Drawing.Point(128, 104)

Me.btn加.Name = "btn加"

Me.btn加.Size = New System.Drawing.Size(32, 20)

Me.btn加.TabIndex = 15

Me.btn加.Text = "+"

'btn除

Me.btn除.Location = New System.Drawing.Point(128, 32)

Me.btn除.Name = "btn除"

Me.btn除.Size = New System.Drawing.Size(32, 20)

Me.btn除.TabIndex = 14

Me.btn除.Text = "/"

'btn乘

Me.btn乘.Location = New System.Drawing.Point(128, 56)

Me.btn乘.Name = "btn乘"

Me.btn乘.Size = New System.Drawing.Size(32, 20)

Me.btn乘.TabIndex = 13

Me.btn乘.Text = "*"

'btn减

Me.btn减.Location = New System.Drawing.Point(128, 80)

Me.btn减.Name = "btn减"

Me.btn减.Size = New System.Drawing.Size(32, 20)

Me.btn减.TabIndex = 12

Me.btn减.Text = "-"

'txtResult

Me.txtResult.Location = New System.Drawing.Point(8, 8)

Me.txtResult.Name = "txtResult"

Me.txtResult.ReadOnly = True

Me.txtResult.Size = New System.Drawing.Size(152, 21)

Me.txtResult.TabIndex = 16

Me.txtResult.Text = ""

'Button1

Me.Button1.Location = New System.Drawing.Point(128, 128)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(32, 23)

Me.Button1.TabIndex = 17

Me.Button1.Text = "C"

'btn等于

Me.btn等于.Location = New System.Drawing.Point(8, 128)

Me.btn等于.Name = "btn等于"

Me.btn等于.Size = New System.Drawing.Size(112, 23)

Me.btn等于.TabIndex = 18

Me.btn等于.Text = "="

'Form1

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(168, 158)

Me.Controls.Add(Me.btn等于)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.txtResult)

Me.Controls.Add(Me.btn加)

Me.Controls.Add(Me.btn除)

Me.Controls.Add(Me.btn乘)

Me.Controls.Add(Me.btn减)

Me.Controls.Add(Me.btnNo0)

Me.Controls.Add(Me.btnSF)

Me.Controls.Add(Me.btnDot)

Me.Controls.Add(Me.btnNo9)

Me.Controls.Add(Me.btnNo6)

Me.Controls.Add(Me.btnNo8)

Me.Controls.Add(Me.btnNo7)

Me.Controls.Add(Me.btnNo3)

Me.Controls.Add(Me.btnNo4)

Me.Controls.Add(Me.btnNo5)

Me.Controls.Add(Me.btnNo2)

Me.Controls.Add(Me.btnNo1)

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

#End Region

Dim n1, n2, n3 As Double

Dim method As String

Private Sub btn等于_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn等于.Click

Select Case method

Case "加"

Me.txtResult.Text = n1 + CDbl(Me.txtResult.Text)

Case "减"

Me.txtResult.Text = n1 - CDbl(Me.txtResult.Text)

Case "乘"

Me.txtResult.Text = n1 * CDbl(Me.txtResult.Text)

Case "除"

Me.txtResult.Text = n1 / CDbl(Me.txtResult.Text)

Case Else

Throw New Exception("未知错误")

End Select

End Sub

Private Sub btn乘_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn乘.Click

method = "乘"

n1 = CDbl(Me.txtResult.Text)

Me.txtResult.Text = ""

End Sub

Private Sub btn除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn除.Click

method = "除"

n1 = CDbl(Me.txtResult.Text)

Me.txtResult.Text = ""

End Sub

Private Sub btn减_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn减.Click

method = "减"

n1 = CDbl(Me.txtResult.Text)

Me.txtResult.Text = ""

End Sub

Private Sub btn加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn加.Click

method = "加"

n1 = CDbl(Me.txtResult.Text)

Me.txtResult.Text = ""

End Sub

Private Sub btnNo1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo1.Click

Me.txtResult.AppendText(btnNo1.Text)

End Sub

Private Sub btnNo2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo2.Click

Me.txtResult.AppendText(btnNo2.Text)

End Sub

Private Sub btnNo3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo3.Click

Me.txtResult.AppendText(btnNo3.Text)

End Sub

Private Sub btnNo4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo4.Click

Me.txtResult.AppendText(btnNo4.Text)

End Sub

Private Sub btnNo5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo5.Click

Me.txtResult.AppendText(btnNo5.Text)

End Sub

Private Sub btnNo6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo6.Click

Me.txtResult.AppendText(btnNo6.Text)

End Sub

Private Sub btnNo7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo7.Click

Me.txtResult.AppendText(btnNo7.Text)

End Sub

Private Sub btnNo8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo8.Click

Me.txtResult.AppendText(btnNo8.Text)

End Sub

Private Sub btnNo9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo9.Click

Me.txtResult.AppendText(btnNo9.Text)

End Sub

Private Sub btnNo0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo0.Click

Me.txtResult.AppendText(btnNo0.Text)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.txtResult.ResetText()

End Sub

Private Sub btnDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDot.Click

Me.txtResult.AppendText(btnDot.Text)

End Sub

Private Sub btnSF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSF.Click

If CDbl(Me.txtResult.Text) 0 Then

Me.txtResult.Text = Math.Abs(CDbl(Me.txtResult.Text))

ElseIf CDbl(Me.txtResult.Text) 0 Then

Me.txtResult.Text = "-" Me.txtResult.Text

End If

End Sub

End Class

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

简单点vb.net加减乘除的：

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 ' 根据按下的按钮的文本属性确定vb.net加减乘除你要做什么vb.net加减乘除，这里可以用加减乘除号代替

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.net关于类之间函数的调用问题。

如上面所说，你可能还不太了解类、函数等的作用。

类可以用来封装一系列操作，或者是一类对象的特性。像上面的描述，有可能是滥用类了。

建议你这样，弄一个专门的运算类，里面有四个运算的函数，比如：

Class 运算

Shared Function 加(ByVal 加数1 As Decimal, ByVal 加数2 As Decimal) As Decimal

'举个例子

Return 加数1 ＋加数2 '百度打不出英文加号，你自己改一下

Exit Function

End Function

Shared Function 减(ByVal 被减数 As Decimal, ByVal 减数 As Decimal) As Decimal

'举个例子

Return 被减数 - 减数

Exit Function

End Function

End Class

上面我写了两个例子，你可以照抄然后自己写乘除的，总之不要滥用类就行。

PS：Shared函数的使用不需要类被实例化，可以直接这样使用：

Msgbox(运算.加(1,2).ToString)

你会发现“运算”是蓝色的

关于vb.net加减乘除和vb加减代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

正文

【用vb.net编程序】做一个记事本和计算器

VB.net的开方运算

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

一个VB.NET的问题..

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

VB.net关于类之间函数的调用问题。

相关阅读

梦幻西游手游虚拟机，梦幻西游手游虚拟机和模拟器谁卡

微信视频号加logo会影响吗，微信视频号标志都是什么意思

cad装什么cpu，cad装什么盘比较好

即时扮演角色类游戏，扮演角色的游戏软件

linux中的更新命令，linux更新源命令

休闲不联网pc单机游戏，休闲不联网pc单机游戏推荐

香港无线云服务器价格多少，香港云服务器哪里便宜

海洋的解谜游戏，海洋的解谜游戏攻略

目录[+]

【用vb.net编程序】做一个记事本和计算器

VB.net的开方运算

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

一个VB.NET的问题..

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

VB.net关于类之间函数的调用问题。

相关阅读

梦幻西游手游虚拟机，梦幻西游手游虚拟机和模拟器谁卡

微信视频号加logo会影响吗，微信视频号标志都是什么意思

cad装什么cpu，cad装什么盘比较好

即时扮演角色类游戏，扮演角色的游戏软件

linux中的更新命令，linux更新源命令

休闲不联网pc单机游戏，休闲不联网pc单机游戏推荐

香港无线云服务器价格多少，香港云服务器哪里便宜

海洋的解谜游戏，海洋的解谜游戏攻略

目录[+]

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