当前位置 :
用VB编一个计算器要求:1、十进制数的加、减、乘、除、乘方、取模等简单计算2、科学计算函数,包括(反)正弦、(反)余弦、(反)正切、(反)余切、开方、指数等函数运行3、以角度、弧度两种
更新时间:2024-03-29 15:54:29
1人问答
问题描述:

用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
科学推荐
科学推荐
最新更新
优秀科学推荐
热门科学
我查吗(wochama.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
电话:  邮箱:
Copyright©2009-2021 我查吗 wochama.com 版权所有 闽ICP备2021002822号-4