问题标题：
用VB编一个计算器要求：1、十进制数的加、减、乘、除、乘方、取模等简单计算2、科学计算函数，包括(反)正弦、(反)余弦、(反)正切、(反)余切、开方、指数等函数运行3、以角度、弧度两种
问题描述：
用VB编一个计算器
要求：
1、十进制数的加、减、乘、除、乘方、取模等简单计算
2、科学计算函数，包括(反)正弦、(反)余弦、(反)正切、(反)余切、开方、指数等函数运行
3、以角度、弧度两种方式实现上述部分函数
4、具备历史计算的记忆功能
5、对不正确的表达式能指出其错误原因
6、整理上机步骤、完成实验报告、提交可运行的程序，给出实验数据和实验结果。
马昌文回答：
给我你的邮箱，我把工程发过去
代码
DimpiAsDouble
DimtempAsDouble
DimjAsInteger
DimteAsString
DimyfAsString
DimmAsBoolean
DimfAsBoolean
PrivateSubCommand1_Click(IndexAsInteger)
Iff=TrueThenText1=""
IfIndex=10Then
Text1.Text=Text1.Text&"."
Else
Text1.Text=Text1.Text&Index
EndIf
f=False
EndSub
PrivateSubCommand2_Click(IndexAsInteger)
Callkl
temp=Text1
Text1=""
Text1=Command2(Index).Caption
f=True
yf=Command2(Index).Caption
EndSub
PrivateSubCommand3_Click()
Ifm=TrueThen
Callkl
Else
SelectCaseyf
Case"+"
Text1=temp+Val(Text1)
Case"-"
Text1=temp-Val(Text1)
Case"*"
Text1=temp*Val(Text1)
Case"/"
IfVal(Text1)=0Then
MsgBox"除数不为0"
Else
Text1=temp/Val(Text1)
EndIf
EndSelect
EndIf
EndSub
Subkl()
Ifm=TrueThen
a=Val(Replace(Text1,te,""))
Ifte="sin"Then
IfOption1.Value=TrueThen
Text1=Sin(a*pi/180)
Else
a=Val(Replace(Text1,"π/",""))
Text1=Sin(pi/a)
EndIf
ElseIfte="sprt"Then
Text1=Sqr(a)
ElseIfte="1/x"Then
Text1=1/a
ElseIfte="%"Then
Text1=a*100
ElseIfte="cos"Then
IfOption1.Value=TrueThen
Text1=Cos(a*pi/180)
Else
a=Val(Replace(Text1,"π/",""))
Text1=Cos(pi/a)
EndIf
ElseIfte="tan"Then
IfOption1.Value=TrueThen
Text1=Tan(a*pi/180)
Else
a=Val(Replace(Text1,"π/",""))
Text1=Tan(pi/a)
EndIf
ElseIfte="ln"Then'等号的ln计算
Text1=Log(Val(Text1.Text))
EndIf
m=False
EndIf
EndSub
PrivateSubCommand4_Click()
Text1.Text=Mid(Text1,1,Len(Text1.Text)-1)
EndSub
PrivateSubCommand5_Click()
Text1.Text=""
temp=0
m=False
EndSub
PrivateSubCommand6_Click(IndexAsInteger)
Text1.Text=Command6(Index).Caption
te=Command6(Index).Caption
m=True
EndSub
PrivateSubCommand7_Click()
End
EndSub
PrivateSubCommand8_Click()
Text1="π/"
EndSub
PrivateSubForm_Load()
pi=4*Atn(1)
EndSub
点击显示
科学推荐
热门科学推荐