1樓：匿名使用者
dim choice as string
dim current as double
dim prev as double
private const pi = 3.14159265
'equal 為＝
'sigh 為+/-(正負號切換)
'cls為清零
'bs 為backspace
'plus為+
'minus為-
'asterisk為*
'slash為/
'num()為數字健控制元件陣列
'point為小數點
private sub form_load()
text1.text = ""
prev = current = 0
end sub
private sub num_click(index as integer)
text1.text = val(text1.text & num(index).caption)
current = val(text1.text)
private sub sign_click()
current = -current
text1.text = current
private sub point_click()
if text1.text = "" then
text1.text = "0."
else
text1.text = text1.text & "."
end if
end sub
private sub bs_click()
text1.text = mid$(text1.text, 1, (len(text1.text) - 1))
private sub plus_click()
text1.text = ""
choice = "+"
prev = current
private sub minus_click()
text1.text = ""
choice = "-"
prev = current
private sub asterisk_click()
text1.text = ""
choice = "*"
prev = current
private sub slash_click()
text1.text = ""
choice = "/"
prev = current
private sub equal_click()
if choice = "+" then
current = prev + current
text1.text = current
elseif choice = "-" then
current = prev - current
text1.text = current
elseif choice = "*" then
current = prev * current
text1.text = current
elseif choice = "/" and current <> 0 then
current = prev / current
text1.text = current
else
msgbox "除數不能為零", vbcritical + vbokonly + vbdefaultbutton1, "出錯"
end if
private sub cls_click()
text1.text = ""
prev = current = 0
根據你的需要我做了個最簡單的計算器
我的qq是：659327515，如果有問題，可以聯絡我，我可以詳細地說一下過程和步驟。^_^
2樓：岔路程式緣
q\q:44\86\74\357\聯\系\
vb製作一個科學計算器怎麼做，跪求答案！！！
用vb編寫計算器，控制元件都弄好了，求**！
3樓：yin幕後的妖
給你一個思路吧，畢竟是
學習，直接看**還不如看思路，然後自己出**好。
介面設計方面，圖中的文字框做顯示屏使用，name設為：text1，
按鈕設為一個控制元件陣列cmd（），
0-9用cmd(0)-cmd(9)表示。
小數點用cmd(10)表示，
加減乘除分別用cmd(11)-cmd(14)表示，
等於用cmd(15)表示
其他的自行決定。
定義一個變數txtnumber,用於儲存第一個因數（計算用）
定義一個變數txtfh用於儲存運算子號
下面是部分**，不懂再追問。
private sub cmd(index as integer)_click()
select case index 『index代表我們按下的按鈕
case 0 to 9
text1=text1 & cmd.caption
case 10 』小數點的處理，在第一個前加上「0」
if texe1="" then
text1="0."
else
text1= text1 & "."
end if
case 11 to 14
if txtnumber=「」then 『檢查是否按過符號鍵
txtnumber=text1
text1=""
txtfh=cmd.caption
else 』按過符號鍵就先將前面的數進行計算
txtnumber= js(txtnumber,val(text1),txtfh)
text1=""
txtfh=cmd.caption
end if
case 15 『計算結果，並顯示
if txtfh<>" " then
text1=js(txtnumber,val(text1),txtfh)
txtnumber=""
elseif text1="" then
text1=txtnumber
txtnumber=""
end if
case 16
...........................
end select
end sub
下面**用於計算：
private function js(num1 as integer , num2 as integer ， fh as string )
select case fh
case "+"
js=num1+num2
case "-"
js=num1-num2
case "x"
js=num1 * num2
case "/"
js=num1/num2
end select
end function
暫時先打這些**，其餘的望樓主舉一反三，不懂再問
求vb簡易計算器的**
表示式計算器的設計與實現VB
option explicit public function str18 num as string as double dim i l lstart dim stemp dtemp dtemp2 if num vbnullstring then exit function lstart inst...
計算器的來歷，計算器發展歷史
個山居士 雖然提問者要求不要講算盤，還是得從那談起。中國古代最早採用的一種計算工具叫籌策，又被叫做算籌 這種算籌多用竹子製成，也有用木頭，獸骨充當材料的 約二百七十枚一束，放在布袋裡可隨身攜帶 直到今天仍在使用的珠算盤，是中國古代計算工具領域中的另一項發明，明代時的珠算盤已經與現代的珠算盤幾乎相同 ...
買車貸款計算器2017，貸款計算器
若申請的是招行貸款，要計算貸款利息或者每月還款金額，需要知道貸款本金，貸款期限，還款方式，貸款年利率。若上述資訊都確認到，可以通過我行貸款計算器嘗試計算，登入招行官網右下方找到 理財計算器 個人貸款計算器 可以計算。所謂貸款是指按揭人將房產產權轉讓按揭，受益人作為還貸保證人在按揭人還清貸款後。想要知...