vb.net计算器+教程

vb计算器是如何计算 下面6个步骤帮你解决

①.、启动软件,新建一个变准EXE工程.

VB怎么做计算器教程

VB计算器代码：

Dim start As Boolean

Dim sn As String

Private Sub Command1_Click()

If start = True Then

Text1.Text = "1"

start = False

Else

Text1.Text = Text1.Text "1"

End If

End Sub

Private Sub Command10_Click()

Text1.Clear()

? ?start = False

Private Sub Command11_Click()

s1 = Val(Text1.Text)

sn = "+"

start = True

sn = "-"

sn = "*"

sn = "/"

If sn = "*" Then

ElseIf sn = "/" Then

ElseIf sn = "+" Then

ElseIf sn = "-" Then

Text1.Text = 0

Text1.Text = Text1.Text "."

Private Sub Form_Load()

如何用VB.net制作一个简单的计算器

script language="javascript"

function EnterKeyClick(){

event.returnValue = false;

//你需要执行的函数

}

/script

用VB.NET编的计算器程序！

Public Class SimpleCalculator

Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的.

InitializeComponent()

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

'窗体重写处置以清理组件列表.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

MyBase.Dispose(disposing)

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

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

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

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button10 As System.Windows.Forms.Button

Friend WithEvents Button11 As System.Windows.Forms.Button

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

Me.Label1 = New System.Windows.Forms.Label

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

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

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

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

Me.SuspendLayout()

'

'Label1

Me.Label1.Name = "Label1"

Me.Label1.TabIndex = 0

Me.Label1.Text = "结果："

'TextBox1

Me.TextBox1.Name = "TextBox1"

Me.TextBox1.TabIndex = 1

Me.TextBox1.Text = ""

'Button1

Me.Button1.Name = "Button1"

Me.Button1.Text = "清空"

'Button10

Me.Button10.Name = "Button10"

Me.Button10.TabIndex = 11

'Button11

Me.Button11.Name = "Button11"

Me.Button11.Text = "0"

'SimpleCalculator

Me.Controls.Add(Me.Button11)

Me.Controls.Add(Me.Button10)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Label1)

Me.Name = "SimpleCalculator"

Me.Text = "简单计算器"

Me.ResumeLayout(False)

#End Region

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

Private Sub TextBox1_TabStopChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim btn As Button '按钮类型的变量

btn = sender '把产生该事件的按钮对象赋值给btn

TextBox1.Text = TextBox1.Text + btn.Text '把该按钮的Text属性值连接到TextBox1中

Dim btn As Button

btn = sender

TextBox1.Text += btn.Text

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

'在文本框的Text属性后连接一个空格、本按钮的Text属性值和一个空格

TextBox1.Text = TextBox1.Text + " " + btn.Text + " "

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

TextBox1.Text = "" '清空文本框

'发生错误转移到标号"ErrorPro"指定的行去执行错误处理程序

On Error GoTo ErrorPro

Dim r As Decimal '保存计算结果的变量

Dim t As String = TextBox1.Text '用于保存文本框中的算术表达式

Dim space As Integer = t.IndexOf(" ") '搜索空格位置,如果没有空格,返回值为0

Dim s1 As String = t.Substring(0, space) '通过取子串方法获得第一个运算数

Dim op As String = t.Substring(space + 1, 1) '通过取子串方法获得运算符

Select Case op

Case Else

MsgBox("输入的运算符有误！")

Exit Sub

End Select

TextBox1.Text = CStr(r) '显示结果

Exit Sub '退出过程

ErrorPro: '错误处理程序块

Select Case Err.Number

MsgBox("算术运算溢出！", , "溢出提示")

TextBox1.Focus()

MsgBox("必须输入运算符和第二个运算数！", , "运算数少")

'其它情况显示错误号和错误原因

End Class

怎样在VB .NET中调用记事本和计算器

这个啊,呵呵,应该不难吧

先找到你要打开的应用程序的文件

然后用一个调用代码：

这是要开记事本的

这是打开计算器的

应该也可以把这两个应用程序复制到你的程序的默认目录下,就是BIN下吧！

呵呵,试试！！要给我加分哦！！！

怎么用VB做一个计算器

第一段：基础练习：编制一个数运算的数学小工具 利用VB编制一个用于数学计算的小程序——<<数学小工具1>>,主要有计算平方、立方、平方根、正弦、余弦、正切、余切、对数值等功能.程序界面如下：

第一段：分析问题：

本任务主要涉及数学运算,求平方、立方值、四次方可利用运算符计算.求平方根、正弦、余弦、正切、余切可利用VB函数计算.(VB常用数学函数)

第二段：算法设计：

程序流程： 输入要计算数据——计算结果——显示数据

VB的实现： 文本框TextBox控件 表达式 标签Label控件

第三段：编制程序：

(二) 建立一个窗体,窗体属性设置如下：

名称 = Maths

Caption = "数学小工具"

(三) 在窗体上添加一个文本框TextBox,用于输入计算数值,属性设置如下：

名称 =InputData

text="请输入数值"

(四) 在窗体上再添加一个标签Label(显示得分),属性设置如下：

名称 = Answer

Caption = "答案:"

（六）分别双击各按钮,在Private Sub和End Sub之间给它们加上代码：

XXXXXXXX.......... 代码(可多行）

（1）求平方按钮的代码：

answer.caption=y

y=Sqr(inputdata.text)

如果要控制输出数值的小数位格式,可在两行代码中间加语句行:

y=format(y,"0.0") 1位整数,1位小数

(1)清空按钮代码:

inputdata.text=""

answer.caption=""

End

第四段：运行,测试程序.

第五段：保存好源程序文件,生成exe文件.

本任务主要涉及两数的数学运算,两利用两个文本框输入数据,利用按钮执行运算符计算.利用标签显示结果,并且两数间的运算符根据按钮的不同显示相应的运算符号.

VB的实现： 文本框（两个） 表达式 标签

(四) 在窗体上再添加一个标签Label(显示运算符),名称不改,属性设置为:

名称 = Label1

Caption="?"

(五) 在窗体上再添加一个标签Label(显示等号),名称不改,属性设置为"?".

Caption="="

(六) 在窗体上再添加一个标签Label(显示结果),属性设置如下：

（1）相加按钮的代码：

label1.caption="+"

label1.caption="-"

label1.caption="*"

label1.caption="/"

label1.caption="^"

如果要控制输出数值的小数位格式,可在两名代码中间加语句行:

以上就是土嘎嘎小编为大家整理的vb.net计算器+教程相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！