来自林百松的问题
【用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,】
用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,
3回答
2020-05-04 21:30
【用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,】
用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,
PrivateSubCommand1_Click()'计算SelectCaseText2Case"+"Text4=Val(Text1)+Val(Text3)Case"-"Text4=Val(Text1)-Val(Text3)Case"*"Text4=Val(Text1)*Val(Text3)Case"/"IfVal(Text3)=0ThenTe...
我试了一下,除法不行
除数写错了,是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