【文章內(nèi)容簡(jiǎn)介】
ommand1_Click() = Val(() + Str(2))End SubPrivate Sub Command1_Click() = Val(() + Str(3))End SubPrivate Sub Command1_Click() = Val(() + Str(4))End SubPrivate Sub Command1_Click() = Val(() + Str(5))End SubPrivate Sub Command1_Click() = Val(() + Str(6))End SubPrivate Sub Command1_Click() = Val(() + Str(7))End SubPrivate Sub Command1_Click() = Val(() + Str(8))End Sub Private Sub Command1_Click() = Val(() + Str(9)) End Sub“=”按鈕的click事件:Private Sub Command14_Click()b = If z = 1 Then = a + bIf z = 2 Then = a bIf z = 3 Then = a * bIf z = 4 And b 0 Then = a / bIf z = 6 Then = Sin(a)If z = 7 Then = Tan(a)If z = 8 Then = Cos(a)If z = 9 Then = Hex()End Sub小結(jié)通過(guò)這次的課程設(shè)計(jì),雖然很辛苦,但同時(shí)也讓我弄懂了許多以前感覺(jué)很模糊的概念,也更加鞏固了自己所學(xué)的知識(shí),使得自己所學(xué)的知識(shí)更加系統(tǒng)化了,這次的程序設(shè)計(jì),做的很瘋狂,有時(shí)還會(huì)熬夜,但心里挺開(kāi)心的。因?yàn)樽约嚎梢宰龀鳇c(diǎn)東西出來(lái),不會(huì)覺(jué)得自己這半年什么也沒(méi)學(xué)到。這是其他的實(shí)驗(yàn)中海沒(méi)有的事經(jīng)過(guò)這幾天的變成訓(xùn)練??傊?,通過(guò)這次的程序設(shè)計(jì),讓我明白了很多,不管是所學(xué)的知識(shí)還是所領(lǐng)悟的道理。附錄計(jì)算器鍵位設(shè)置計(jì)算器結(jié)果顯示:計(jì)算器全部代碼:Dim a As Single, b As Single, z As