VB計算器做法,用VB編寫計算器,控制元件都弄好了,求程式碼!

時間 2021-10-14 23:40:57

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,貸款計算器

若申請的是招行貸款,要計算貸款利息或者每月還款金額,需要知道貸款本金,貸款期限,還款方式,貸款年利率。若上述資訊都確認到,可以通過我行貸款計算器嘗試計算,登入招行官網右下方找到 理財計算器 個人貸款計算器 可以計算。所謂貸款是指按揭人將房產產權轉讓按揭,受益人作為還貸保證人在按揭人還清貸款後。想要知...