畢業(yè)設(shè)計論文：基于vb的計算器的設(shè)計與實現(xiàn)-文庫吧
2024-11-11 22:33 本頁面
【正文】 圖 三 8 、標(biāo)準(zhǔn)計算器代碼 、變量的定義及初始化 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 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 9 opnre = 0 If oflag = 0 Then = End If oflag = 1 If Command1(Index).Caption . Then If 0 Then = amp。 Command1(Index).Caption Else = amp。 Command1(Index).Caption End If Else If dflag = 0 Then = 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。 Command1(Index).Caption Else = amp。 Command1(Index).Caption End If Else 14 If dflag = 0 Then = 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() E
公司管理相關(guān)推薦
鄂ICP備17016276號-1