来自林百松的问题
【用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,】
用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,
3回答
2020-05-04 21:30
我要回答
请先登录
李欣慧
PrivateSubCommand1_Click()'计算SelectCaseText2Case"+"Text4=Val(Text1)+Val(Text3)Case"-"Text4=Val(Text1)-Val(Text3)Case"*"Text4=Val(Text1)*Val(Text3)Case"/"IfVal(Text3)=0ThenTe...
2020-05-04 21:34:25
林百松
我试了一下，除法不行
2020-05-04 21:35:40
李欣慧
除数写错了，是Text3PrivateSubCommand1_Click()'计算SelectCaseText2Case"+"Text4=Val(Text1)+Val(Text3)Case"-"Text4=Val(Text1)-Val(Text3)Case"*"Text4=Val(Text1)*Val(Text3)Case"/"IfVal(Text3)=0ThenText4="除数不能为零！"ElseText4=Val(Text1)/Val(Text3)EndIfEndSelectEndSubPrivateSubCommand2_Click()'清除Text1=""'第1个操作数Text2=""'运算符Text3=""'第2个操作数Text4=""'结果EndSub
2020-05-04 21:37:41