最簡(jiǎn)單的計(jì)算器就是僅僅計(jì)算加減乘除，既然是計(jì)算就是二個(gè)操作數(shù)之間的運(yùn)算，首先在文本框中輸入第一個(gè)操作數(shù)，在點(diǎn)擊運(yùn)算符時(shí)，將它保存在一個(gè)變量中，并且文本框清零，在輸入第二個(gè)操作數(shù)，點(diǎn)擊 “=”號(hào)時(shí)，將第二個(gè)操。

Dim focus%， op%， bfin Private Sub Command1_ClickIndex As IntegerIf bfin Then Call Form_Load If focus = 1 Then Text1 = Text1 Index Else Text2 = Text2 Index End If End Sub Private Sub。

定義collection，把要存儲(chǔ)的數(shù)值add進(jìn)去就行，如下 Dim col As New Collection Dim i as Integer Dim temp as Integer for i=1 to 10 colAdd i next 取得時(shí)候 For i = 1 To colCount temp=coliNext。

就是電腦上的那計(jì)算器誰(shuí)能給寫(xiě)寫(xiě)代碼用VB的我給400分！ 就是電腦上的那計(jì)算器 誰(shuí)能給寫(xiě)寫(xiě)代碼 用VB的 我給 400分！ 展開(kāi) #xE768 我來(lái)答 3個(gè)回答 #熱議# 幫幫團(tuán)大學(xué)生專場(chǎng)，可獲百度實(shí)習(xí)機(jī)會(huì)。

我給你做個(gè)簡(jiǎn)單的 吧 只做 + * \ 創(chuàng)建工程后 2個(gè)textbox 文本框控件 4個(gè)command 按紐控件 1個(gè)lalbel 標(biāo)簽控件 代碼實(shí)現(xiàn)如下dim a as integer ， b as integer， sum as integer a=text1text b=text2。

#39清除顯示內(nèi)容，保存運(yùn)算符 Private Sub cmdClear_ClickcmdClearEntry_Click StoredValue = 0 Operator = opNone End Sub #39清除顯示內(nèi)容 Private Sub cmdClearEntry_ClicktxtDisplayText = quotquotEnd Sub #39 顯示小數(shù)點(diǎn)。

shu2 As Single， suanfu As String\x0d\x0a#39定義兩個(gè)單精度數(shù)變量用與存放參與運(yùn)算的數(shù)，一個(gè)字符型存放運(yùn)算符\x0d\x0a\x0d\x0aPrivate Sub Command1_ClickIndex As Integer\x0d\x0aText1Text = Text1。