用VB编一个计算器

Question

用VB编一个计算器

要求：
1、十进制数的加、减、乘、除、乘方、取模等简单计算
2、科学计算函数，包括(反)正弦、(反)余弦、(反)正切、(反)余切、开方、指数等函数运行
3、以角度、弧度两种方式实现上述部分函数
4、具备历史计算的记忆功能
5、对不正确的表达式能指出其错误原因
6、整理上机步骤、完成实验报告、提交可运行的程序，给出实验数据和实验结果。

Answer 1

同学，学校布置得作业吧

代码送上
Dim X As Double, Y As Double
Dim op As String
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
X = Val(Text1): Text1 = Sin(X * 3.1415926 / 180)
Case 1
X = Val(Text1): Text1 = 1 / Cos(X)
Case 2
X = Val(Text1): Text1 = Sin(X) * 180 / 3.1415926

Case 3
X = Val(Text1): Text1 = Atn(X) + 2 * Atn(1)
Case 5
X = Val(Text1): Text1 = Cos(X * 3.1415926 / 180)
Case 6
X = Val(Text1): Text1 = 1 / Sin(X)
Case 7
X = Val(Text1): Text1 = Cos(X) * 180 / 3.1415926
Case 8
X = Val(Text1)
If X <= 0 Then
Text1 = "负数或零的对数无意义"
Else
Text1 = Log(X)
End If
Case 10
X = Val(Text1): Text1 = Tan(X * 3.1415926 / 180)
Case 11
X = Val(Text1): Text1 = 1 / Tan(X)
Case 12
X = Val(Text1): Text1 = Atn(X) * 180 / 3.1415926

Case 13
X = Val(Text1)
If X <= 0 Then
Text1 = "负数或零的对数无意义"
Else
Text1 = Log(X) / Log(10)
End If
Case 14
X = Val(Text1)
If X <= 0 Then
X = Val(Text1): Text1 = Abs(X)

Else
X = Val(Text1): Text1 = Text1.Text

End If

End Select
End Sub

Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0 To 9
Text1.Text = Text1 & Command2(Index).Caption

Case 11
If InStr(Text1, ".") = 0 Then
Text1.Text = Text1 & Command2(Index).Caption
ElseIf Right(Text1, 1) = "." Then
Text1.Text = Text1 & ""
End If
Case 12
If InStr(Text1, "-") = 0 Then
Text1.Text = Text1 & Command2(Index).Caption
ElseIf Right(Text1, 1) = "-" Then
Text1.Text = Text1 & ""
End If
End Select

End Sub

Private Sub Command3_Click(Index As Integer)
Select Case Index
Case 0 To 6
X = Val(Text1)

If Index = 0 Then op = "+"
If Index = 1 Then op = "-"
If Index = 2 Then op = "*"
If Index = 3 Then op = "/"
If Index = 4 Then op = "^"
If Index = 5 Then op = "("
If Index = 6 Then op = ")"
Text1 = ""
End Select
End Sub

Private Sub Command4_Click()
If Len(Text1) <> 0 Then
Text1 = Left(Text1, Len(Text1) - 1)
End If
End Sub

Private Sub Command5_Click()
Text1 = ""
X = 0: Y = 0
End Sub

Private Sub Command6_Click()
Y = Val(Text1)
'Text1 = ""
If op = "^" Then Text1 = X ^ Y
If op = "+" Then Text1 = X + Y
If op = "-" Then Text1 = X - Y
If op = "*" Then Text1 = X * Y
If op = "/" Then
If Y <> 0 Then
Text1 = X / Y
Else
Text1 = "除数不能为零"
End If
End If

End Sub

Private Sub Form_Load()

End Sub

Answer 2

给我你的邮箱，我把工程发过去

代码

Dim pi As Double
Dim temp As Double
Dim j As Integer
Dim te As String
Dim yf As String
Dim m As Boolean
Dim f As Boolean

Private Sub Command1_Click(Index As Integer)
If f = True Then Text1 = ""
If Index = 10 Then
Text1.Text = Text1.Text & "."
Else
Text1.Text = Text1.Text & Index
End If

f = False
End Sub

Private Sub Command2_Click(Index As Integer)
Call kl
temp = Text1
Text1 = ""
Text1 = Command2(Index).Caption
f = True
yf = Command2(Index).Caption

End Sub

Private Sub Command3_Click()
If m = True Then
Call kl
Else

Select Case yf
Case "+"
Text1 = temp + Val(Text1)
Case "-"
Text1 = temp - Val(Text1)
Case "*"
Text1 = temp * Val(Text1)
Case "/"
If Val(Text1) = 0 Then
MsgBox "除数不为0"
Else
Text1 = temp / Val(Text1)
End If
End Select
End If
End Sub
Sub kl()
If m = True Then
a = Val(Replace(Text1, te, ""))
If te = "sin" Then
If Option1.Value = True Then
Text1 = Sin(a * pi / 180)
Else
a = Val(Replace(Text1, "π/", ""))
Text1 = Sin(pi / a)
End If

ElseIf te = "sprt" Then
Text1 = Sqr(a)
ElseIf te = "1/x" Then
Text1 = 1 / a
ElseIf te = "%" Then
Text1 = a * 100
ElseIf te = "cos" Then
If Option1.Value = True Then
Text1 = Cos(a * pi / 180)
Else
a = Val(Replace(Text1, "π/", ""))
Text1 = Cos(pi / a)
End If

ElseIf te = "tan" Then
If Option1.Value = True Then
Text1 = Tan(a * pi / 180)
Else
a = Val(Replace(Text1, "π/", ""))
Text1 = Tan(pi / a)
End If

ElseIf te = "ln" Then '等号的ln计算
Text1 = Log(Val(Text1.Text))
End If
m = False
End If
End Sub
Private Sub Command4_Click()

Text1.Text = Mid(Text1, 1, Len(Text1.Text) - 1)

End Sub

Private Sub Command5_Click()
Text1.Text = ""
temp = 0
m = False

End Sub

Private Sub Command6_Click(Index As Integer)
Text1.Text = Command6(Index).Caption
te = Command6(Index).Caption
m = True
End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()
Text1 = "π/"
End Sub

Private Sub Form_Load()
pi = 4 * Atn(1)
End Sub

追问

617968957@qq.com

Answer 3

这个在许多源码网站里都有的，给你推荐个网站：源码爱好者，里面的源码是开源的，不需要注册的。

Answer 4

fsdffff