1樓：du瓶邪
option explicit
dim op1, op2 ' 前面輸入的運算元
dim decimalflag as integer ' 小數點仍然存在嗎？
dim numops as integer ' 運算元個數
dim lastinput ' 指示上一次按鍵事件的型別
dim opflag ' 指示未完成的操作
dim tempreadout
' c (取消) 按鈕的 click 事件過程
' 重新設定顯示並初始化變數
private sub cancel_click()
readout = format(0, "0.")
op1 = 0
op2 = 0
form_load
end sub
' ce (取消輸入) 按鈕的 click 事件過程
private sub cancelentry_click()
readout = format(0, "0.")
decimalflag = false
lastinput = "ce"
end sub
' 小數點 (.) 按鈕的 click 事件過程
' 如果上一次按鍵為運算子，初始化 readout 為 "0."；
' 否則顯示時追加一個小數點
private sub decimal_click()
if lastinput = "neg" then
readout = format(0, "-0.")
elseif lastinput <> "nums" then
readout = format(0, "0.")
end if
decimalflag = true
lastinput = "nums"
end sub
' 窗體的初始化過程
' 設定所有變數為其初始值
private sub form_load()
decimalflag = false
numops = 0
lastinput = "none"
opflag = " "
readout = format(0, "0.")
'decimal.caption = format(0, ".")
end sub
' 數字鍵 (0-9) 的 click 事件過程
' 向顯示中的數追加新數
private sub number_click(index as integer)
if lastinput <> "nums" then
readout = format(0, ".")
decimalflag = false
end if
if decimalflag then
readout = readout + number(index).caption
else
readout = left(readout, instr(readout, format(0, ".")) - 1) + number(index).caption + format(0, ".
")end if
if lastinput = "neg" then readout = "-" & readout
lastinput = "nums"
end sub
' 運算子 (+, -, x, /, =) 的 click 事件過程
' 如果接下來的按鍵是數字鍵，增加 numops。
' 如果有一個運算元，則設定 op1。
' 如果有兩個運算元，則將 op1 設定為 op1 與
' 當前輸入字串的運算結果，並顯示結果
private sub operator_click(index as integer)
tempreadout = readout
if lastinput = "nums" then
numops = numops + 1
end if
select case numops
case 0
if operator(index).caption = "-" and lastinput <> "neg" then
readout = "-" & readout
lastinput = "neg"
end if
case 1
op1 = readout
if operator(index).caption = "-" and lastinput <> "nums" and opflag <> "=" then
readout = "-"
lastinput = "neg"
end if
case 2
op2 = tempreadout
select case opflag
case "+"
op1 = cdbl(op1) + cdbl(op2)
case "-"
op1 = cdbl(op1) - cdbl(op2)
case "x"
op1 = cdbl(op1) * cdbl(op2)
case "/"
if op2 = 0 then
msgbox "除數不能為 0", 48, "計算器"
else
op1 = cdbl(op1) / cdbl(op2)
end if
case "="
op1 = cdbl(op2)
case "%"
op1 = cdbl(op1) * cdbl(op2)
end select
readout = op1
numops = 1
end select
if lastinput <> "neg" then
lastinput = "ops"
opflag = operator(index).caption
end if
end sub
' 百分比鍵 (%) 的 click 事件過程
' 計算並顯示第一個運算元的百分數
private sub percent_click()
readout = readout / 100
lastinput = "ops"
opflag = "%"
numops = numops + 1
decimalflag = true
end sub
vb語言是什麼語言
2樓：理升
visual basic(vb)是一種由微軟公司開發的包含協助開發環境的事件驅動程式語言。
從任何標準來說，vb都是世界上使用人數最多的語言——不僅是盛讚vb的開發者還是抱怨vb的開發者的數量。它源自於basic程式語言。vb擁有圖形使用者介面（gui）和快速應用程式開發（rad）系統，可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立activex控制元件。
“visual” 指的是開發圖形使用者介面 (gui) 的方法——不需編寫大量**去描述介面元素的外觀和位置，而只要把預先建立的物件add到螢幕上的一點即可。
“basic”指的是 basic (beginnersall-purpose symbolicinstructioncode) 語言，一種在計算技術發展歷史上應用得最為廣泛的語言。 visual basic源自於basic程式語言。vb擁有圖形使用者介面（gui）和快速應用程式開發（rad）系統，可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立activex控制元件，用於高效生成型別安全和麵向物件的應用程式。
程式設計師可以輕鬆的使用vb提供的元件快速建立一個應用程式。
3樓：匿名使用者
vb與basic是兩種概念
vb是visual basic的簡寫，是視覺化的程式語言。是一種簡單、高效地開發應用軟體的工具。
vb最早是微軟從早期的basic語法繼承而來，並加入了視覺化的程式介面。
但現在的vb與basic語言關係並不太大了，因為微軟在升級vb的過程中，不斷地給vb加入了更多的語法，改變舊的語法，並新增了物件導向程式設計等概念，可以說現在的vb程式與basic程式，除了加減乘除和for迴圈語句外，找不到其它相同特徵。
如果說vb從basic語言身上繼承了什麼東西，那就是繼承了它的簡易性，它非常易學易用。
但是，如果單憑這種優點，微軟是不會花那麼多時間，來開創和更新vb語言的。微軟曾經開發的程式設計產品很多，但現在只留下了c#,vb,c++三種程式語言。
很多人可能很奇怪，網路上有很多人在學在用vb語言，但也有很多人在貶低vb語言，可以說vb是全世界最有爭議的程式語言。但是微軟一直在力挺vb，將它從早期的簡單語法，升級到vb2005這樣強大的開發語言。為什麼？
微軟可以放棄許多其它不太有爭議的程式語言，卻一直不願意放棄爭議最大的vb語言。通過分析微軟的歷史軌跡可以找到答案。
早期的c語言功能公認的強大，在當時的大型計算機軟體開發尤其如此，但在開發企業商業軟體時，卻用處不大,在當時的小型和微型機市場上，最簡單最不具有專業水平的basic語言卻十分流行用於開發應用軟體，微軟就是從那時候發展起來的，最早的微軟應用軟體開發的所用的語言就是basic語言，它為微軟成為日後的巨無霸立下了汗馬功勞。
這一點也許讓微軟意識到，產品的成功，很大原因在於開發成本低，開發週期短，而basic語言無疑最具有這種潛力，所以微軟一直力挺basic語言，對它進行了數不清次數的升級換代，讓現在的vb2005已經完全脫胎換骨。
當然，今天的vb語言，我感覺它追求的目的與其它語言是有區別的，其它語言一般是追求功能的強大，不斷地擴充語言語法。而vb語言追求的，是軟體開發的高效性，程式語言的易學性，然後才是語言的強大性。
所以，今天在應用軟體開發市場上（排除非windows軟體），vb始終是最高效、開發成本最低的強大的開發工具。
以上是一個用c，c++，vb開發過不同企業應用軟體的程式設計師感悟。
VB計算器做法，用VB編寫計算器，控制元件都弄好了，求程式碼！
dim choice as string dim current as double dim prev as double private const pi 3.14159265 equal 為 sigh 為 正負號切換 cls為清零 bs 為backspace plus為 minus為 aster...
用VF怎麼做簡易計算器啊，VF編寫簡易計算器
你在計算按鈕上雙擊，在其click事件中輸入 a thisform.text1.valueb thisform.text2.valuen thisform.optiongroup1.valuedo case case n 1 thisform.text3.value a bcase n 2 this...
怎麼用C語言程式設計簡單計算器，怎麼用C語言程式設計乙個簡單計算器？
include void main c語言是一門通用計算機程式語言，應用廣泛。c語言的設計目標是提供一種能以簡易的方式編譯 處理低階儲存器 產生少量的機器碼以及不需要任何執行環境支援便能執行的程式語言。儘管c語言提供了許多低階處理的功能，但仍然保持著良好跨平台的特性，以乙個標準規格寫出的c語言程式可...