用vb编写计算器代码

来源：百度知道 编辑：UC知道 时间：2024/05/22 16:17:55
要求：计算器又加减乘除，倒数，正弦，余弦，对数，开方，退格等功能！！只用一个文本框，其他都用命名按钮

写一个计算器很烦的，你用100分估计才有人会帮你！
下面给你我写的FRM里的一部分代码，不能全发！其它还有10几个文件！
我的能实现金额大写，按键发声等等
不要问题要余下的代码了，不会回应的！

Dim ClearDisplay As Boolean
Dim Operand1 As Double
Dim Operator As String, Browser As String
Dim CmdStr As String
Dim RetVal As Long
Dim ErrStr As String * 256
'取数字变量
Dim mousePT As PointAPI
Dim prevWindow As Long
Dim Curwindow As Long
Dim X As Long
Dim Y As Long
Dim TempStr As String
Dim Subtemp As String
Dim retValue As Long
Dim parentWnd As Long

Private Sub ClearB_Click()

Display.Caption = "0"
ClearDisplay = False

Dim Ltp As Integer
Ltp = GetSetting(App.EXEName, "Option", "Muse", 0)
If Ltp = 1 Then
Dowav (ClearB.Caption)
End If
Equals.SetFocus '等于获得焦点

End Sub

Private Sub digits_Click(Index As Integer)