先乘除后加減,從右到左運(yùn)算。
成都創(chuàng)新互聯(lián)是一家專注于做網(wǎng)站、網(wǎng)站建設(shè)與策劃設(shè)計(jì),普陀網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:普陀等地區(qū)。普陀做網(wǎng)站價(jià)格咨詢:028-86922220
VB中運(yùn)算符的計(jì)算優(yōu)先級(jí)順序如下:算術(shù)運(yùn)算符和串聯(lián)運(yùn)算符求冪(^)一元標(biāo)識(shí)和非(+、–)乘法和浮點(diǎn)除法(*、/)整數(shù)除法(\)取模(Mod)加法和減法(+、–),字符串連接(+)字符串連接()算術(shù)移位()比較運(yùn)算符。
擴(kuò)展資料
vb點(diǎn)虐 ?特性:
1、vb點(diǎn)虐 完全集成到 Visual Studio 集成開發(fā)環(huán)境中,在這種集成開發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。
2、vb點(diǎn)虐 項(xiàng)目與 VB 不同。它使用基于文件夾的模型,所有項(xiàng)目均放置在項(xiàng)目文件夾層次結(jié)構(gòu)中。
3、vb點(diǎn)虐 中使用ado點(diǎn)虐 來訪問數(shù)據(jù)庫,ado點(diǎn)虐 是點(diǎn)虐 Framework的一部分。在 vb點(diǎn)虐 中實(shí)現(xiàn)數(shù)據(jù)訪問的方法主要有兩種。
其一是在程序設(shè)計(jì)階段,通過創(chuàng)建、配置數(shù)據(jù)適配器 DataAdapter 和生成數(shù)據(jù)集 DataSet;其二是在運(yùn)行中,通過編程方式動(dòng)態(tài)創(chuàng)建配置數(shù)據(jù)適配器和創(chuàng)建、生成數(shù)據(jù)集。
4、在 vb點(diǎn)虐 中是使用asp點(diǎn)虐 技術(shù)來編寫 Web 頁面的。在asp點(diǎn)虐 中使用的也不是腳本語言,而是真正意義的編程語言。
憑借asp點(diǎn)虐 的 Web 應(yīng)用程序、XML Web Services 等基于 Web 的功能,使得 vb點(diǎn)虐 開發(fā) Web 頁面與開發(fā) Windows 應(yīng)用程序很相似,Web 頁面代碼也顯得有條有理了。
5、vb點(diǎn)虐 已經(jīng)成為完全的面向?qū)ο蟮木幊陶Z言,并且新增更多語言特性。
先在form上建立三個(gè)textbox,分別為textbox1,textbox2,textbox3,再建立四個(gè)按鈕,分別為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
簡單點(diǎn)的:
dim 上一個(gè)數(shù) as double
dim 下一個(gè)數(shù) as double
dim 結(jié)果 as double
dim 操作 as string
private sub 加減乘除(byval sender as object, byval e as eventargs) handles 加.click, 減.click, 乘.click, 除.click
上一個(gè)數(shù) = cdbl(輸入框.text) ' 存儲(chǔ)當(dāng)前輸入的數(shù)值
輸入框.text = "" ' 等待下一個(gè)數(shù)值
select case sender.text ' 根據(jù)按下的按鈕的文本屬性確定你要做什么,這里可以用加減乘除號(hào)代替
case "加"
操作 = "加"
case "減"
操作 = "減"
case "乘"
操作 = "乘"
case "除"
操作 = "除"
end select
end sub
private sub 計(jì)算(byval sender as object, byval e as eventargs) handles 等號(hào).click
下一個(gè)數(shù) = 輸入框.text
輸入框.text = ”“
select case 操作
case "加"
結(jié)果 = 上一個(gè)數(shù) + 下一個(gè)數(shù)
case "減"
結(jié)果 = 上一個(gè)數(shù) - 下一個(gè)數(shù)
case "乘"
結(jié)果 = 上一個(gè)數(shù) * 下一個(gè)數(shù)
case "除"
結(jié)果 = 上一個(gè)數(shù) / 下一個(gè)數(shù)
end select
輸入框.text = cstr(結(jié)果)
上一個(gè)數(shù) = 結(jié)果
end sub
.NET 的哈,我沒有 .NET 現(xiàn)在,不知道行不行
代碼如下:
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
擴(kuò)展資料
語言缺點(diǎn)
Visual Basic 語言具有不支持繼承、無原生支持多線程、異常處理不完善等三項(xiàng)明顯缺點(diǎn),使其有所局限性(此些缺點(diǎn)皆已在 vb 點(diǎn)虐 獲得改進(jìn))。
不支持繼承
VB 5.0 和 VB 6.0 都是基于對(duì)象的編程語言,但是不包含繼承特性。VB 中提供了特殊的類的功能,但是還是不能滿足程序員的需求。
無原生支持多線程
Visual Basic 對(duì)于多線程無原生支持,只能通過Windows API的調(diào)用實(shí)現(xiàn),且極其的不穩(wěn)定。因?yàn)樵贏PI創(chuàng)建的線程中,并沒有自動(dòng)初始化運(yùn)行時(shí)庫,導(dǎo)致部分的函數(shù)無法使用。一般的,在VB6等早期的VB開發(fā)環(huán)境下,使用API創(chuàng)建線程的目的是完成容易使程序假死的大量數(shù)據(jù)或者邏輯的計(jì)算。
異常處理不完善
Visual Basic 中內(nèi)置異常處理,即使未寫異常處理代碼,一旦用戶出錯(cuò)也會(huì)彈出一個(gè)明確寫出出錯(cuò)原因?qū)υ捒?,接著程序終止。
Visual Basic 中可以使用 Err.Raise拋出異常。對(duì)系統(tǒng)及用戶拋出的異常的處理常用兩種模式:一是使用 On Error Resume Next 處理錯(cuò)誤;另一種是使用 On Error Goto 將運(yùn)行引入錯(cuò)誤處理代碼。但相對(duì) C++ 等語言而言,這樣的異常處理破壞了代碼的結(jié)構(gòu)。
參考資料:百度百科-VB