用VB做一个最简单的计算器
只要界面和系统附加计算器的一样只要做出一个加法运算就行运用的是COMMAND和TEXT这两个不要给我复制一大段代码根据我的题目来我还会加分的强调下是用鼠标点的不是打进去的...
只要界面和系统附加计算器的一样
只要做出一个加法运算就行
运用的是COMMAND和TEXT这两个
不要给我复制一大段代码 根据我的题目来 我还会加分的
强调下 是用鼠标点的 不是打进去的 界面是要和科学计算器一样的 功能也要一样的 展开
只要做出一个加法运算就行
运用的是COMMAND和TEXT这两个
不要给我复制一大段代码 根据我的题目来 我还会加分的
强调下 是用鼠标点的 不是打进去的 界面是要和科学计算器一样的 功能也要一样的 展开
5个回答
展开全部
Dim a As Double, b As Double
Dim c As String
Private Sub Command10_Click()
Text2.Text = Text2.Text & "2"
End Sub
Private Sub Command11_Click()
Text2.Text = Text2.Text & "3"
End Sub
Private Sub Command12_Click()
a = Text2.Text
Text2.Text = ""
c = "+"
End Sub
Private Sub Command13_Click()
Text2.Text = Text2.Text & "."
End Sub
Private Sub Command14_Click()
a = Text2.Text
Text2.Text = ""
c = "/"
End Sub
Private Sub Command15_Click()
a = Text2.Text
Text2.Text = ""
c = "*"
End Sub
Private Sub Command16_Click()
a = Text2.Text
Text2.Text = ""
c = "-"
End Sub
Private Sub Command18_Click()
Text2.Text = ""
End Sub
Private Sub Command19_Click()
b = Text2.Text
If a = "0" Or b = "0 " Then MsgBox "除数为可以为0", vbExclamation, "tips": Exit Sub
Select Case c
Case "+"
Text2.Text = Val(a) + Val(b)
Case "-"
Text2.Text = Val(a) - Val(b)
Case "*"
Text2.Text = Val(a) * Val(b)
Case "/"
Text2.Text = Val(a) / Val(b)
If Val(a) = 0 Then
MsgBox "除数不可以为:“0”"
Text2.Text = ""
End If
If Val(b) = 0 Then
MsgBox "除数不可以为:“0”"
Text2.Text = ""
End If
End Select
End Sub
Private Sub Command2_Click()
Text2.Text = Text2.Text & "6"
End Sub
Private Sub Command3_Click()
Text2.Text = Text2.Text & "5"
End Sub
Private Sub Command4_Click()
Text2.Text = Text2.Text & "4"
End Sub
Private Sub Command5_Click()
Text2.Text = Text2.Text & "9"
End Sub
Private Sub Command6_Click()
Text2.Text = Text2.Text & "8"
End Sub
Private Sub Command7_Click()
Text2.Text = Text2.Text & "7"
End Sub
Private Sub Command8_Click()
Text2.Text = Text2.Text & "0"
End Sub
Private Sub Command9_Click()
Text2.Text = Text2.Text & "1"
End Sub
Private Sub Form_Load()
Text2.FontSize = 20
Text1.FontSize = 19
Text1.FontName = "华文行楷"
End Sub
Dim c As String
Private Sub Command10_Click()
Text2.Text = Text2.Text & "2"
End Sub
Private Sub Command11_Click()
Text2.Text = Text2.Text & "3"
End Sub
Private Sub Command12_Click()
a = Text2.Text
Text2.Text = ""
c = "+"
End Sub
Private Sub Command13_Click()
Text2.Text = Text2.Text & "."
End Sub
Private Sub Command14_Click()
a = Text2.Text
Text2.Text = ""
c = "/"
End Sub
Private Sub Command15_Click()
a = Text2.Text
Text2.Text = ""
c = "*"
End Sub
Private Sub Command16_Click()
a = Text2.Text
Text2.Text = ""
c = "-"
End Sub
Private Sub Command18_Click()
Text2.Text = ""
End Sub
Private Sub Command19_Click()
b = Text2.Text
If a = "0" Or b = "0 " Then MsgBox "除数为可以为0", vbExclamation, "tips": Exit Sub
Select Case c
Case "+"
Text2.Text = Val(a) + Val(b)
Case "-"
Text2.Text = Val(a) - Val(b)
Case "*"
Text2.Text = Val(a) * Val(b)
Case "/"
Text2.Text = Val(a) / Val(b)
If Val(a) = 0 Then
MsgBox "除数不可以为:“0”"
Text2.Text = ""
End If
If Val(b) = 0 Then
MsgBox "除数不可以为:“0”"
Text2.Text = ""
End If
End Select
End Sub
Private Sub Command2_Click()
Text2.Text = Text2.Text & "6"
End Sub
Private Sub Command3_Click()
Text2.Text = Text2.Text & "5"
End Sub
Private Sub Command4_Click()
Text2.Text = Text2.Text & "4"
End Sub
Private Sub Command5_Click()
Text2.Text = Text2.Text & "9"
End Sub
Private Sub Command6_Click()
Text2.Text = Text2.Text & "8"
End Sub
Private Sub Command7_Click()
Text2.Text = Text2.Text & "7"
End Sub
Private Sub Command8_Click()
Text2.Text = Text2.Text & "0"
End Sub
Private Sub Command9_Click()
Text2.Text = Text2.Text & "1"
End Sub
Private Sub Form_Load()
Text2.FontSize = 20
Text1.FontSize = 19
Text1.FontName = "华文行楷"
End Sub
杭州励贝电液科技有限公司
2023-08-23 广告
2023-08-23 广告
设计比例控制器需要以下步骤:1. 确定控制系统的要求,例如控制对象的特性、控制范围、精度等。2. 选择合适的传感器,能够准确测量控制对象的相关参数,例如位置、速度、压力等。3. 选择合适的执行器,能够产生足够的控制作用,例如电缸、电动推杆等...
点击进入详情页
本回答由杭州励贝电液科技有限公司提供
展开全部
按你的要求,下面代码将实现你的要求:
Shell "calc": End
代码少的原因是因为你要求最简单的!否则要加一堆的控件(代码倒也不多,但描述费劲!)
另外,根据四楼 朱雄亮 的要求,将原来的代码做个解释:
Set a = CreateObject("ScriptControl")
调用大名鼎鼎的VBS
Text1 = a.Eval(Text1)
Eval函数就是计算后面的代码
Shell "calc": End
代码少的原因是因为你要求最简单的!否则要加一堆的控件(代码倒也不多,但描述费劲!)
另外,根据四楼 朱雄亮 的要求,将原来的代码做个解释:
Set a = CreateObject("ScriptControl")
调用大名鼎鼎的VBS
Text1 = a.Eval(Text1)
Eval函数就是计算后面的代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
zhouziyan2001
你好,我也是新手,一点也看不懂你的程序。 我还以为没有用,想不到,照你 的做了后,还真的有用,请问,那几个函数和属性是什么意思吗?我在帮助里也找不出来,请你给大家注释下行吗,你真棒,最好注释的全面点………………我替大家谢谢你了!!!
你好,我也是新手,一点也看不懂你的程序。 我还以为没有用,想不到,照你 的做了后,还真的有用,请问,那几个函数和属性是什么意思吗?我在帮助里也找不出来,请你给大家注释下行吗,你真棒,最好注释的全面点………………我替大家谢谢你了!!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询