【正文】
個人的 角度來看，有高中數(shù)學(xué)水平就差不多了。 5 Case 110: H = H amp。 1 Case 010: H = H amp。 110 Case 7: B = B amp。 010 Case 3: B = B amp。 1110 Case F: B = B amp。 1010 Case B: B = B amp。 0110 Case 7: B = B amp。 0010 Case 3: B = B amp。 strdtor Else strdtor = mr amp。 . dflag = 1 Else MsgBox (Error) End If End If End Sub Private Sub Command2_Click(Index As Integer) If opnre = 0 Or Index = 4 Then If ind = 0 Then prev = prev + Val() ElseIf ind = 1 Then 10 prev = prev Val() ElseIf ind = 2 Then If Val() = 0 Then MsgBox (SORRY DIVIDE ZERO) Exit Sub Else prev = prev / Val() End If ElseIf ind = 3 Then prev = prev * Val() End If = Str(prev) oflag = 0 End If opnre = 1 ind = Index dflag = 0 End Sub 、退格、清除、清空 Private Sub Command3_Click() Dim length As Integer length = Len() If length = 1 Then If 0 Then = 0 End If 11 Else = Left(, length 1) End If flag = True End Sub Private Sub Command4_Click() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 = 0 End Sub Private Sub Command5_Click() = 0 End Sub 、復(fù)制、粘貼 Private Sub fz_Click() End Sub Private Sub zt_Click() = 12 = () End Sub 、兩窗體的切換 Private Sub ck_Click() End Sub Private Sub ckx_Click() End Sub 、科學(xué)型計算器的代碼 、變量的定義及初始化 Dim dflag As Integer Dim i As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer Dim ind As Integer Dim X As Double Dim Y As Double Private Sub Form_Load() prev = 0 oflag = 0 13 ind = 0 opnre = 0 ang = / 180 End Sub 、簡單的運算 Private Sub Command1_Click(Index As Integer) If ind = 4 Then prev = 0 = ind = 0 End If opnre = 0 If oflag = 0 Then = End If oflag = 1 If Command1(Index).Caption . Then If 0 Then = amp。 8) 出錯處理 :操作數(shù)如果不符合數(shù)學(xué)上的定義，應(yīng)該給出錯誤信息。 4) 能夠?qū)崿F(xiàn)的進(jìn)制的相互轉(zhuǎn)換。還能避免出現(xiàn)一些不必要的計算錯誤。 在此報告中我重點敘述了計算機的各個功能及用法。 1 摘 要 我用 VB 制作這個程序的簡單計算器，它包括一個標(biāo)準(zhǔn)的計算器和一個科學(xué)計算器。 在這個計算器的程序中，我用到了單行選擇語句 If … Then … Else… , 塊語句 if… then… end if,If 語句的嵌套，多條件選擇語句 Select Case,而且還用到了按鈕、文本框、框架、單選按鈕控件 ，菜單的設(shè)計。 2 目 錄 第一章、程序概述 ....................... 4 、創(chuàng)作目的 ......................................................................... 4 、基本功能 ......................................................................... 4 第二章、總體設(shè)計 ....................... 5 、程序輪廓圖 .................................................................... 5 第三章、程序代碼 ....................... 6 、計算器界面 ..................................................................... 6 、標(biāo)準(zhǔn)型計算器： .................................................. 6 、科學(xué)型計算器： .................................................. 7 、標(biāo)準(zhǔn)計算器代碼 ...................................................