我想做一个我输入数字 自己能加减乘除得出结果的软件得怎么做?有没有会的简单么?有会做的可以帮我做出来么?
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 06:51:43
![我想做一个我输入数字 自己能加减乘除得出结果的软件得怎么做?有没有会的简单么?有会做的可以帮我做出来么?](/uploads/image/z/14293167-15-7.jpg?t=%E6%88%91%E6%83%B3%E5%81%9A%E4%B8%80%E4%B8%AA%E6%88%91%E8%BE%93%E5%85%A5%E6%95%B0%E5%AD%97+%E8%87%AA%E5%B7%B1%E8%83%BD%E5%8A%A0%E5%87%8F%E4%B9%98%E9%99%A4%E5%BE%97%E5%87%BA%E7%BB%93%E6%9E%9C%E7%9A%84%E8%BD%AF%E4%BB%B6%E5%BE%97%E6%80%8E%E4%B9%88%E5%81%9A%3F%E6%9C%89%E6%B2%A1%E6%9C%89%E4%BC%9A%E7%9A%84%E7%AE%80%E5%8D%95%E4%B9%88%3F%E6%9C%89%E4%BC%9A%E5%81%9A%E7%9A%84%E5%8F%AF%E4%BB%A5%E5%B8%AE%E6%88%91%E5%81%9A%E5%87%BA%E6%9D%A5%E4%B9%88%3F)
我想做一个我输入数字 自己能加减乘除得出结果的软件得怎么做?有没有会的简单么?有会做的可以帮我做出来么?
我想做一个我输入数字 自己能加减乘除得出结果的软件得怎么做?有没有会的简单么?
有会做的可以帮我做出来么?
我想做一个我输入数字 自己能加减乘除得出结果的软件得怎么做?有没有会的简单么?有会做的可以帮我做出来么?
dima1$, a2$, a3$
Private Sub Command1_Click(Index As Integer)
a1 = a1 + Command1(Index).Caption
Text1.Text = a1
End SubPrivate Sub Command2_Click()
Select Case a3
Case "+"
a1 = Val(a2) + Val(a1)
Case "-"
a1 = Val(a2) - Val(a1)
Case "*"
a1 = Val(a2) * Val(a1)
Case "/"
a1 = Val(a2) / Val(a1)
End Select
Text1.Text = a1
End SubPrivate Sub Command3_Click(Index As Integer)
a3 = Command3(Index).Caption
Text1.Text = a3
a2 = a1
a1 = ""
End SubPrivate Sub Command4_Click()
If a1 "" Then
If InStr(a1, "-") = 0 Then
a1 = "-" + a1
Text1.Text = a1
End If
End If
End SubPrivate Sub Command5_Click()
If a1 "" Then
If InStr(a1, ".") = 0 Then
a1 = a1 + "."
Text1.Text = a1
End If
End If
End SubPrivate Sub Command6_Click()
If a1 "" Then
a1 = Left(a1, Len(a1) - 1)
Text1.Text = a1
End If
End SubPrivate Sub Command7_Click()
a1 = ""
Text1.Text = a1
End Sub