VB編寫簡(jiǎn)易計(jì)算器

一、創(chuàng)建控件組

1、創(chuàng)建控件組的方法

首先創(chuàng)建一個(gè)命令按鈕，調(diào)整其大小（覺(jué)得合適就行），名稱為Command1，Caption 屬性為數(shù)字 0 ；然后進(jìn)行“復(fù)制”和“粘貼”，當(dāng)選擇“粘貼”時(shí)，出現(xiàn)對(duì)話框提示已有一個(gè)同名控件，詢問(wèn)是否創(chuàng)建控件組，選擇“是”后，即創(chuàng)建了一個(gè)名為“Command”的控件組。這時(shí)，第一個(gè)按鈕的Index屬性值默認(rèn)為“0”，第二個(gè)的Index屬性值自動(dòng)設(shè)為“1”，并且大小與第一個(gè)按鈕相同，只需修改其 Caption 屬性為數(shù)字“1”并將其拖至合適位置即可。此后繼續(xù)使用“粘貼”的方法建立其他控件組中其余按鈕，共20個(gè)按鈕，每建立一個(gè)，就將它拖到合適處，并修改相應(yīng)的Caption屬性值。

2、各控件組其屬性設(shè)置如下：

設(shè)置效果如下圖所示：

二、編寫代碼

Dim s1 As Single， s2 As Single， ysf As String

‘定義兩個(gè)單精度數(shù)變量用與存放參與運(yùn)算的數(shù)，一個(gè)字符型存放運(yùn)算符

Private Sub Command1_Click（Index As Integer）

Text1.Text = Text1.Text & Command1（Index）.Caption ’將command1的單擊事件與文本框顯示的內(nèi)容連接

End Sub

Private Sub Command2_Click（）

Text1.Text = Text1.Text + “。”

If （InStr（Text1.Text， “。”） = 1） Then ‘第一位不能為小數(shù)

Text1.Text = “”

End If

If InStr（Text1.Text， “。”） 《 Len（Text1.Text） Then ’防止出現(xiàn)兩個(gè)小數(shù)點(diǎn)

Text1.Text = Left

（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1.Text） ‘開(kāi)始加減乘除運(yùn)算

Select Case ysf Case “+”

Text1.Text = s1 + s2

Case “-”

Text1.Text = s1 - s2

Case “*”

Text1.Text = s1 * s2

Case “/”

If s2 = 0 Then

MsgBox “分母不能為零！”

Text1.Text = “”

Else

Text1.Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1.Text， 1） = “。”， 0 & Text1.Text， Text1.Text） ‘這個(gè)很關(guān)鍵，如果沒(méi)有這個(gè)的話，得出小于1的小數(shù)前面沒(méi)有0

End Sub

Private Sub Command4_Click（）

If Text1.Text = “” Then ’文本為空就結(jié)束

Exit Sub

End If

Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） ‘文本退一格

End Sub

Private Sub Command5_Click（）

Text1.Text = “” ’清除當(dāng)前框內(nèi)文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1.Text） ‘將s1隱藏起來(lái) ysf = Command6（Index）.Caption

Text1.Text = “”

End Sub

Private Sub Command7_Click（）

If Left（Text1.Text， 1） 《》 “-” Then ’判斷作為負(fù)數(shù)

Text1.Text = “-” & Text1.Text

Else

Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1.Text = Text1.Text * Text1.Text ‘平方

End Sub

各位朋友，可以將紅色代碼復(fù)制到相應(yīng)位置，不清楚的可以全選復(fù)制，但是一定要按照我的步驟和給的名稱來(lái)哦！

還可以再添加按鈕

Private Sub Command9_Click（） ’這是退出代碼

End

End Sub

VB編寫簡(jiǎn)易計(jì)算器的效果圖

如何用VB編寫最簡(jiǎn)單的計(jì)算器程序

1、既然是入門呢，第一步當(dāng)然是要啟動(dòng)VB：雙擊VB圖標(biāo)后會(huì)自動(dòng)彈出“新建工程”對(duì)話框，其默認(rèn)選中的是“標(biāo)準(zhǔn) EXE”和“打開(kāi)（O）”選項(xiàng)。此時(shí)單擊“打開(kāi)（O）”選項(xiàng)或點(diǎn)擊“Enter”按鍵，或者點(diǎn)擊“Alt+O”組合鍵，都可以建立一個(gè)默認(rèn)工程名為“工程 1”的VB工程。

2、接下來(lái)就是添加“控件”了：如圖，從界面的左側(cè)選中我們需要的“Label”控件并在“Form 1”窗體中的合適位置畫出差不多大小的方框，即完成“Label 1”后重復(fù)相同動(dòng)作畫出“Label 2”。同理，添加“TextBox”、“CommandButton”控件。

3、完成了各種控件的添加，及時(shí)修改“Captain”等屬性，可以使編程更加直觀。

4、接下來(lái)就是最關(guān)鍵的編寫代碼環(huán)節(jié)了：雙擊“計(jì)算”（也就是之前的“Command 2”）按鈕，將彈出代碼框，鍵入如下代碼（復(fù)制注意分行）：

Private Sub Command2_Click（）Dim x As IntegerDim y As Integerx = Val（Text1.Text）y = Val（Text2.Text）s = x + yLabel3.Caption = x & “+” & y & “=” & sEnd Sub

這樣就能實(shí)現(xiàn)基本的兩數(shù)相加運(yùn)算了。

5、那為了方便操作呢，可以進(jìn)行小小的完善——添加“重置”功能：

雙擊“重置‘按鈕，鍵入如下代碼（復(fù)制注意分行）：

Private Sub Command1_Click（）Text1.Text = “”Text2.Text = “”Label3.Caption = “”End Sub

這樣就實(shí)現(xiàn)清除原數(shù)據(jù)的功能了。

6、最后點(diǎn)擊“運(yùn)行”試試吧！