vb.net計(jì)算器+教程,vbnet計(jì)算器程序
vb計(jì)算器是如何計(jì)算 下面6個(gè)步驟幫你解決
1、啟動(dòng)軟件，新建一個(gè)變準(zhǔn)EXE工程。
公司主營(yíng)業(yè)務(wù)：成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出衢江免費(fèi)做網(wǎng)站回饋大家。
2、我們?cè)诖绑w上繪制好要使用到的控件。
3、雙擊計(jì)算按鈕進(jìn)入代碼窗口，我們可以在這里編寫代碼。
4、接下來我們打入累加的賦值語句。
5、接下來我們點(diǎn)擊運(yùn)行測(cè)試的小三角。
6、這時(shí)候我們就可以開始計(jì)算了。
VB怎么做計(jì)算器教程
VB計(jì)算器代碼：
Dim start As Boolean
Dim s1#, s2#, s3#
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
End Sub
Private Sub Command11_Click()
s1 = Val(Text1.Text)
sn = "+"
start = True
End Sub
Private Sub Command12_Click()
s1 = Val(Text1.Text)
sn = "-"
start = True
End Sub
Private Sub Command13_Click()
s1 = Val(Text1.Text)
sn = "*"
start = True
End Sub
Private Sub Command14_Click()
s1 = Val(Text1.Text)
sn = "/"
start = True
End Sub
Private Sub Command15_Click()
s2 = Val(Text1.Text)
If sn = "*" Then
s3 = s1 * s2
ElseIf sn = "/" Then
s3 = s1 / s2
start = True
ElseIf sn = "+" Then
s3 = s1 + s2
start = True
ElseIf sn = "-" Then
s3 = s1 - s2
start = True
End If
start = True
Text1.Text = s3
If s3 0 Or sn "" Then
Text1.Text = Format(s3, "0.##")
End If
End Sub
Private Sub Command16_Click()
Text1.Text = 0
start = True
End Sub
Private Sub Command17_Click()
Text1.Text = Text1.Text "."
start = False
End Sub
Private Sub Command2_Click()
If start = True Then
Text1.Text = "2"
start = False
Else
Text1.Text = Text1.Text "2"
End If
End Sub
Private Sub Command3_Click()
If start = True Then
Text1.Text = "3"
start = False
Else
Text1.Text = Text1.Text "3"
End If
End Sub
Private Sub Command4_Click()
If start = True Then
Text1.Text = "4"
start = False
Else
Text1.Text = Text1.Text "4"
End If
End Sub
Private Sub Command5_Click()
If start = True Then
Text1.Text = "5"
start = False
Else
Text1.Text = Text1.Text "5"
End If
End Sub
Private Sub Command6_Click()
If start = True Then
Text1.Text = "6"
start = False
Else
Text1.Text = Text1.Text "6"
End If
End Sub
Private Sub Command7_Click()
If start = True Then
Text1.Text = "7"
start = False
Else
Text1.Text = Text1.Text "7"
End If
End Sub
Private Sub Command8_Click()
If start = True Then
Text1.Text = "8"
start = False
Else
Text1.Text = Text1.Text "8"
End If
End Sub
Private Sub Command9_Click()
If start = True Then
Text1.Text = "9"
start = False
Else
Text1.Text = Text1.Text "9"
End If
End Sub
Private Sub Form_Load()
End Sub
如何用VB.net制作一個(gè)簡(jiǎn)單的計(jì)算器
script language="javascript"
function EnterKeyClick(){
if (window.event.keyCode==13){
event.KeyCode=9;
event.returnValue = false;
//你需要執(zhí)行的函數(shù)
}
}
/script
用VB.NET編的計(jì)算器程序！
Public Class SimpleCalculator
Inherits System.Windows.Forms.Form
#Region " Windows 窗體設(shè)計(jì)器生成的代碼 "
Public Sub New()
MyBase.New()
'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。
InitializeComponent()
'在 InitializeComponent() 調(diào)用之后添加任何初始化
End Sub
'窗體重寫處置以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗體設(shè)計(jì)器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下過程是 Windows 窗體設(shè)計(jì)器所必需的
'可以使用 Windows 窗體設(shè)計(jì)器修改此過程。
'不要使用代碼編輯器修改它。
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 Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents Button13 As System.Windows.Forms.Button
Friend WithEvents Button14 As System.Windows.Forms.Button
Friend WithEvents Button15 As System.Windows.Forms.Button
Friend WithEvents Button16 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.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "結(jié)果："
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(64, 8)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(120, 21)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(200, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(56, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "清空"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(48, 56)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(24, 24)
Me.Button2.TabIndex = 3
Me.Button2.Text = "1"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(88, 56)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(24, 24)
Me.Button3.TabIndex = 4
Me.Button3.Text = "2"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(136, 56)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(24, 24)
Me.Button4.TabIndex = 5
Me.Button4.Text = "3"
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(48, 88)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(24, 24)
Me.Button5.TabIndex = 6
Me.Button5.Text = "4"
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(88, 88)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(24, 24)
Me.Button6.TabIndex = 7
Me.Button6.Text = "5"
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(136, 88)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(24, 24)
Me.Button7.TabIndex = 8
Me.Button7.Text = "6"
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(48, 120)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(24, 24)
Me.Button8.TabIndex = 9
Me.Button8.Text = "7"
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(88, 120)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(24, 24)
Me.Button9.TabIndex = 10
Me.Button9.Text = "8"
'
'Button10
'
Me.Button10.Location = New System.Drawing.Point(136, 120)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(24, 24)
Me.Button10.TabIndex = 11
Me.Button10.Text = "9"
'
'Button11
'
Me.Button11.Location = New System.Drawing.Point(48, 152)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(24, 24)
Me.Button11.TabIndex = 12
Me.Button11.Text = "0"
'
'Button12
'
Me.Button12.Location = New System.Drawing.Point(176, 56)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(24, 24)
Me.Button12.TabIndex = 13
Me.Button12.Text = "+"
'
'Button13
'
Me.Button13.Location = New System.Drawing.Point(176, 88)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(24, 24)
Me.Button13.TabIndex = 14
Me.Button13.Text = "-"
'
'Button14
'
Me.Button14.Location = New System.Drawing.Point(176, 120)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(24, 24)
Me.Button14.TabIndex = 15
Me.Button14.Text = "*"
'
'Button15
'
Me.Button15.Location = New System.Drawing.Point(176, 152)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(24, 24)
Me.Button15.TabIndex = 16
Me.Button15.Text = "/"
'
'Button16
'
Me.Button16.Location = New System.Drawing.Point(88, 152)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(72, 24)
Me.Button16.TabIndex = 17
Me.Button16.Text = "計(jì)算"
'
'SimpleCalculator
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(264, 190)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "SimpleCalculator"
Me.Text = "簡(jiǎn)單計(jì)算器"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox1_TabStopChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim btn As Button '按鈕類型的變量
btn = sender '把產(chǎn)生該事件的按鈕對(duì)象賦值給btn
TextBox1.Text = TextBox1.Text + btn.Text '把該按鈕的Text屬性值連接到TextBox1中
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim btn As Button
btn = sender
'在文本框的Text屬性后連接一個(gè)空格、本按鈕的Text屬性值和一個(gè)空格
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "" '清空文本框
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
'發(fā)生錯(cuò)誤轉(zhuǎn)移到標(biāo)號(hào)“ErrorPro”指定的行去執(zhí)行錯(cuò)誤處理程序
On Error GoTo ErrorPro
Dim r As Decimal '保存計(jì)算結(jié)果的變量
Dim t As String = TextBox1.Text '用于保存文本框中的算術(shù)表達(dá)式
Dim space As Integer = t.IndexOf(" ") '搜索空格位置,如果沒有空格，返回值為0
'字符串的取子符方法，第二個(gè)參數(shù)小于0，則將產(chǎn)生錯(cuò)誤號(hào)為5的異常，即過程參數(shù)不正確
Dim s1 As String = t.Substring(0, space) '通過取子串方法獲得第一個(gè)運(yùn)算數(shù)
Dim op As String = t.Substring(space + 1, 1) '通過取子串方法獲得運(yùn)算符
Dim s2 As String = t.Substring(space + 3) '通過取子串方法獲得第二個(gè)運(yùn)算數(shù)
Dim arg1, arg2 As Integer
arg1 = Val(s1) : arg2 = Val(s2)
Select Case op
Case "+" : r = arg1 + arg2
Case "-" : r = arg1 - arg2
Case "*" : r = arg1 * arg2
Case "/" : r = arg1 / arg2
Case Else
MsgBox("輸入的運(yùn)算符有誤！")
Exit Sub
End Select
TextBox1.Text = CStr(r) '顯示結(jié)果
Exit Sub '退出過程
ErrorPro: '錯(cuò)誤處理程序塊
Select Case Err.Number
Case 6 '除數(shù)為零時(shí)，或運(yùn)算溢出時(shí)的錯(cuò)誤號(hào)
MsgBox("算術(shù)運(yùn)算溢出！", , "溢出提示")
TextBox1.Focus()
Exit Sub
Case 5 ' Substring過程的參數(shù)不符合要求的錯(cuò)誤號(hào)
MsgBox("必須輸入運(yùn)算符和第二個(gè)運(yùn)算數(shù)！", , "運(yùn)算數(shù)少")
Exit Sub
Case Else
'其它情況顯示錯(cuò)誤號(hào)和錯(cuò)誤原因
MsgBox("錯(cuò)誤號(hào)為" Err.Number Chr(10) Chr(13) "錯(cuò)誤原因：" Err.Description)
Exit Sub
End Select
End Sub
End Class
怎樣在VB .NET中調(diào)用記事本和計(jì)算器
這個(gè)啊，呵呵，應(yīng)該不難吧
先找到你要打開的應(yīng)用程序的文件
然后用一個(gè)調(diào)用代碼：
System.Diagnostics.Process.Start("C:\WINDOWS\system32\notepad.exe")
這是要開記事本的
System.Diagnostics.Process.Start("C:\WINDOWS\system32\calc.exe")
這是打開計(jì)算器的
應(yīng)該也可以把這兩個(gè)應(yīng)用程序復(fù)制到你的程序的默認(rèn)目錄下，就是BIN下吧！
呵呵，試試??！要給我加分哦！??！
怎么用VB做一個(gè)計(jì)算器
一、基礎(chǔ)練習(xí)：編制一個(gè)數(shù)運(yùn)算的數(shù)學(xué)小工具 利用VB編制一個(gè)用于數(shù)學(xué)計(jì)算的小程序——《數(shù)學(xué)小工具1》，主要有計(jì)算平方、立方、平方根、正弦、余弦、正切、余切、對(duì)數(shù)值等功能。程序界面如下：
一、分析問題：
本任務(wù)主要涉及數(shù)學(xué)運(yùn)算，求平方、立方值、四次方可利用運(yùn)算符計(jì)算.求平方根、正弦、余弦、正切、余切可利用VB函數(shù)計(jì)算。(VB常用數(shù)學(xué)函數(shù))
二、算法設(shè)計(jì)：
程序流程： 輸入要計(jì)算數(shù)據(jù)——計(jì)算結(jié)果——顯示數(shù)據(jù)
VB的實(shí)現(xiàn)： 文本框TextBox控件 表達(dá)式 標(biāo)簽Label控件
三、編制程序：
(一) 在VB6.0中新建一個(gè)標(biāo)準(zhǔn)EXE工程
(二) 建立一個(gè)窗體，窗體屬性設(shè)置如下：
名稱 = Maths
Caption = "數(shù)學(xué)小工具"
(三) 在窗體上添加一個(gè)文本框TextBox，用于輸入計(jì)算數(shù)值，屬性設(shè)置如下：
名稱 =InputData
text="請(qǐng)輸入數(shù)值"
(四) 在窗體上再添加一個(gè)標(biāo)簽Label(顯示得分)，屬性設(shè)置如下：
名稱 = Answer
Caption = "答案:"
(五) 在窗體上再添加8個(gè)按鈕CommandButton，名稱不改，屬性(caption)分別設(shè)置為：“平方”、“立方”、“四次方”、“平方根”、正弦”、“余弦”、“正切”、“余切”。
（六）分別雙擊各按鈕，在Private Sub和End Sub之間給它們加上代碼：
Private Sub Command1_Click()
XXXXXXXX.......... 代碼(可多行）
End Sub
（1）求平方按鈕的代碼：
y=inputdata.text^2
answer.caption=y
（2）求三次方按鈕的代碼：
y=inputdata.text^3
answer.caption=y
（3）求四次方按鈕的代碼：
y=inputdata.text^4
answer.caption=y
（4）求平方根按鈕的代碼：
y=Sqr(inputdata.text)
answer.caption=y
（5）求正弦按鈕的代碼： y=Sin(inputdata.text*3.14/180)
answer.caption=y
（6）求余弦按鈕的代碼： y=Cos(inputdata.text*3.14/180)
answer.caption=y
（7）求正切按鈕的代碼： y=Tan(inputdata.text*3.14/180)
answer.caption=y
（8）求余切按鈕的代碼：
y=1/Tan(inputdata.text*3.14/180)
answer.caption=y
如果要控制輸出數(shù)值的小數(shù)位格式,可在兩行代碼中間加語句行:
y=format(y,"0.0") 1位整數(shù),1位小數(shù)
(七) 在窗體上再添加2個(gè)按鈕CommandButton，名稱不改，屬性分別設(shè)置為：“清空”、“退出,分別雙擊各按鈕，在Private Sub和End Sub之間給它們加上代碼：
(1)清空按鈕代碼:
inputdata.text=""
answer.caption=""
(2)退出按鈕代碼:
End
四、運(yùn)行，測(cè)試程序。
五、保存好源程序文件，生成exe文件。
二、擴(kuò)展練習(xí)：編制兩個(gè)數(shù)運(yùn)算的數(shù)學(xué)小工具 利用VB編制一個(gè)用于兩數(shù)四則運(yùn)算的小程序——《數(shù)學(xué)小工具2》，主要有兩數(shù)相加、相減、相乘、相除、乘方等功能。程序界面如下：
一、分析問題：
本任務(wù)主要涉及兩數(shù)的數(shù)學(xué)運(yùn)算，兩利用兩個(gè)文本框輸入數(shù)據(jù)，利用按鈕執(zhí)行運(yùn)算符計(jì)算.利用標(biāo)簽顯示結(jié)果，并且兩數(shù)間的運(yùn)算符根據(jù)按鈕的不同顯示相應(yīng)的運(yùn)算符號(hào)。
二、算法設(shè)計(jì)：
程序流程： 輸入要計(jì)算數(shù)據(jù)——計(jì)算結(jié)果——顯示數(shù)據(jù)
VB的實(shí)現(xiàn)： 文本框（兩個(gè)） 表達(dá)式 標(biāo)簽
三、編制程序：
(一) 在VB6.0中新建一個(gè)標(biāo)準(zhǔn)EXE工程
(二) 建立一個(gè)窗體，窗體屬性設(shè)置如下：
名稱 = Maths2
Caption = "數(shù)學(xué)小工具2"
(三) 在窗體上添加兩個(gè)文本框TextBox，名稱不改，分別為text1、text2,用于輸入計(jì)算數(shù)值，將兩個(gè)文本框的text屬性值清空
(四) 在窗體上再添加一個(gè)標(biāo)簽Label(顯示運(yùn)算符)，名稱不改,屬性設(shè)置為:
名稱 = Label1
Caption="?"
(五) 在窗體上再添加一個(gè)標(biāo)簽Label(顯示等號(hào))，名稱不改,屬性設(shè)置為"?"。
名稱 = Label2
Caption="="
(六) 在窗體上再添加一個(gè)標(biāo)簽Label(顯示結(jié)果)，屬性設(shè)置如下：
名稱 = Answer
Caption="?"
(五) 在窗體上再添加4個(gè)按鈕CommandButton，名稱不改，屬性(caption)分別設(shè)置為：“加”、“減”、“乘”、“除”、"乘方”。
（六）分別雙擊各按鈕，在Private Sub和End Sub之間給它們加上代碼：
Private Sub Command1_Click()
XXXXXXXX.......... 代碼(可多行）
End Sub
（1）相加按鈕的代碼：
y=Val(Text1.Text) + Val(Text2.Text)
answer.caption=y
label1.caption="+"
（2）相減按鈕的代碼： y=Val(Text1.Text) - Val(Text2.Text)
answer.caption=y
label1.caption="-"
（3）相乘按鈕的代碼： y=Val(Text1.Text) * Val(Text2.Text)
answer.caption=y
label1.caption="*"
（4）相乘按鈕的代碼： y=Val(Text1.Text) / Val(Text2.Text)
answer.caption=y
label1.caption="/"
（5）相乘按鈕的代碼： y=Val(Text1.Text) ^ Val(Text2.Text)
answer.caption=y
label1.caption="^"
如果要控制輸出數(shù)值的小數(shù)位格式,可在兩名代碼中間加語句行:
y=format(y,"0.0") 1位整數(shù),1位小數(shù)
四、運(yùn)行，測(cè)試程序。
五、保存好源程序文件，生成exe文件。
分享題目：vb.net計(jì)算器+教程,vbnet計(jì)算器程序
分享地址：http://muchs.cn/article16/hsscgg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營(yíng)銷、網(wǎng)站改版、企業(yè)網(wǎng)站制作、響應(yīng)式網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)
- 21種技術(shù)和技巧Google Ads投放谷歌規(guī)劃師運(yùn)用 2023-05-05
- 網(wǎng)站登陸Google的關(guān)鍵：網(wǎng)站外部鏈接 2016-08-08
- 蘇州網(wǎng)站建設(shè)Google代理商告訴你通過Google Pay啟用簡(jiǎn)易而又安全的結(jié)算流程 2016-04-04
- Google搜索排名怎么提升? 2015-01-12
- Google Ads主要有哪些推廣形式？ 2023-05-05
- 如何有效提高Google自然搜索中網(wǎng)站關(guān)鍵詞的排名 2014-02-26
- google網(wǎng)站優(yōu)化中熊貓算法的研究 2013-06-18
- 高質(zhì)量?jī)?nèi)容在Google眼里是怎樣的標(biāo)準(zhǔn)？ 2016-11-07
- 關(guān)于Google Play的ASO優(yōu)化要點(diǎn)淺析 2020-09-11
- Google最新收錄規(guī)則，怎樣才能讓網(wǎng)站快速被Google收錄 2015-02-07
- 創(chuàng)新互聯(lián)外貿(mào)網(wǎng)站建設(shè)GoogleSEO核心三步曲 2023-05-05
- 優(yōu)化您的Google我的商家信息，進(jìn)行本地推廣 2016-02-29