在vb計算器中0-9數字代碼怎麽編寫

方法：

可以使用控件數組進行編寫。

控件數組是壹組具有相同類型和名稱Name的控件，它們***享相同的事件，並將其索引Index屬性傳遞給事件。

具體做法：

第壹步：建立1個命令按鈕CommandButton控件，將其名稱改為cmdDigit。

第二步：復制並10次粘貼該控件，並在彈出的“是否創建控件數組”選擇是。

第三步：將cmdDigit(0)的Caption改為"0"，依此類推，第11個改為"."。並將各個控件移動至適當位置。

第四步：建立壹個文本框TextBox控件，將其名稱改為txtDisplayer。Text屬性清空，Locked屬性改為True。

第五步：建立1個命令按鈕CommandButton控件，將其名稱改為cmdOperater。

第六步：復制並3次粘貼該控件，並在彈出的“是否創建控件數組”選擇是。

第七步：將cmdOperater(0)的Caption改為"+"，依此類推改為"-","×","÷"。並將各個控件移動至適當位置。

第八步：建立1個命令按鈕CommandButton控件，將其名稱改為cmdCalculate。屬性Caption改為"="。

第九步：輸入以下代碼：

Private?a#,?b#,?Op%,?c#

Private?Sub?cmdDigit_Click(Index?as?Integer)

txtDisplayer.Text=txtDisplayer?&?cmdDigit(Index).Caption

'這裏不用CStr(Index)是因為Index=10時輸入小數點。?

End?Sub

Private?Sub?cmdOperater_Click(Index?as?Integer)

a=?CDbl(txtDisplayer.Text)

op=Index

End?Sub

Private?Sub?cmdCalculater_Click()

b=?CDbl(txtDispalyer.Text)

Select?Case?Op

case?0

c=a+b

case?1

c=a-b

case?2

c=a*b

case?3

c=a/b

End?Select?

txtDispayer.Text=?CStr(c)?

End?Sub

這樣壹個vb計算器就完工了。

參考資料：