用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 10:59:51
用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,
Private Sub Command1_Click() '计算
Select Case Text2
Case "+"
Text4 = Val(Text1) + Val(Text3)
Case "-"
Text4 = Val(Text1) - Val(Text3)
Case "*"
Text4 = Val(Text1) * Val(Text3)
Case "/"
If Val(Text3) = 0 Then
Text4 = "除数不能为零!"
Else
Text4 = Val(Text1) / Val(Text2)
End If
End Select
End Sub
Private Sub Command2_Click() '清除
Text1 = "" '第1个操作数
Text2 = "" '运算符
Text3 = "" '第2个操作数
Text4 = "" '结果
End Sub
Private Sub Command3_Click() '退出
Unload Me
End Sub
再问: 我试了一下,除法不行
再答: 除数写错了,是Text3 Private Sub Command1_Click() '计算 Select Case Text2 Case "+" Text4 = Val(Text1) + Val(Text3) Case "-" Text4 = Val(Text1) - Val(Text3) Case "*" Text4 = Val(Text1) * Val(Text3) Case "/" If Val(Text3) = 0 Then Text4 = "除数不能为零!" Else Text4 = Val(Text1) / Val(Text3) End If End Select End Sub Private Sub Command2_Click() '清除 Text1 = "" '第1个操作数 Text2 = "" '运算符 Text3 = "" '第2个操作数 Text4 = "" '结果 End Sub
Select Case Text2
Case "+"
Text4 = Val(Text1) + Val(Text3)
Case "-"
Text4 = Val(Text1) - Val(Text3)
Case "*"
Text4 = Val(Text1) * Val(Text3)
Case "/"
If Val(Text3) = 0 Then
Text4 = "除数不能为零!"
Else
Text4 = Val(Text1) / Val(Text2)
End If
End Select
End Sub
Private Sub Command2_Click() '清除
Text1 = "" '第1个操作数
Text2 = "" '运算符
Text3 = "" '第2个操作数
Text4 = "" '结果
End Sub
Private Sub Command3_Click() '退出
Unload Me
End Sub
再问: 我试了一下,除法不行
再答: 除数写错了,是Text3 Private Sub Command1_Click() '计算 Select Case Text2 Case "+" Text4 = Val(Text1) + Val(Text3) Case "-" Text4 = Val(Text1) - Val(Text3) Case "*" Text4 = Val(Text1) * Val(Text3) Case "/" If Val(Text3) = 0 Then Text4 = "除数不能为零!" Else Text4 = Val(Text1) / Val(Text3) End If End Select End Sub Private Sub Command2_Click() '清除 Text1 = "" '第1个操作数 Text2 = "" '运算符 Text3 = "" '第2个操作数 Text4 = "" '结果 End Sub
用VB做一个能进行加减乘除的运算器,界面如图所示,把代码写出来给我就好了,我计算机太烂了,
没灵感,如何写作.整个故事的内容都想好了,就 是没灵感把它写出来,一个字一个字的挤出来,太累了,而且写出来的文会空洞,我
vb编写一个能随机出题的100以内的加减乘除口算运算器,可以选择加减、乘除运算.
VB的高手帮我做几道题吧!把代码给我,谢谢
为生命着色不要太好了啊 太好了老师能看出来的 一般人的水平就行的 楼下的俩大哥 你们的作文纯是复制的啊.我都搜过了.我自
请帮我把下面的问题回答一下用英语 不用太难 简单点就好了 谢谢了?
太好了,那我就放心了用英语怎么说?
我现在学的是VB(初中水平),我觉得一般项目方面的代码还能理解,但是一看用编程解数学题,感觉脑子就空了,没思维了,感觉语
激光干涉仪补偿我用G代码编的太累了 求给我一个简单点的程序X轴500 Y轴350不要 G1X5F3500G04P5000
阿基米德说过的“给我一个支点,就能把地球翘起来,怎么画
有关做数学报的知识我要做一个数学报请告诉我一些该写一些什么东西上去能写出来就更好了
求vb大神帮忙做一道题.要求;只需要要程序写出来,界面的截图;