Question

用VB做一个最简单的计算器

只要界面和系统附加计算器的一样
只要做出一个加法运算就行
运用的是COMMAND和TEXT这两个
不要给我复制一大段代码 根据我的题目来 我还会加分的
强调下 是用鼠标点的 不是打进去的 界面是要和科学计算器一样的 功能也要一样的

Answer 1

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

Answer 2

你是新手吧

Private Sub Command1_Click()

Text3.Text = Text1.Text + Text2.Text

End Sub

Answer 3

按你的要求,下面代码将实现你的要求:
Shell "calc": End

代码少的原因是因为你要求最简单的!否则要加一堆的控件(代码倒也不多,但描述费劲!)

另外,根据四楼 朱雄亮 的要求,将原来的代码做个解释:

Set a = CreateObject("ScriptControl")
调用大名鼎鼎的VBS

Text1 = a.Eval(Text1)
Eval函数就是计算后面的代码

Answer 4

zhouziyan2001

你好，我也是新手，一点也看不懂你的程序。 我还以为没有用，想不到，照你 的做了后，还真的有用，请问，那几个函数和属性是什么意思吗？我在帮助里也找不出来，请你给大家注释下行吗，你真棒，最好注释的全面点………………我替大家谢谢你了！！！

Answer 5

http://ys-c.ys168.com/?计算器.rar_50c5bs1b8d7ejkis1bso4bt5bsm0cqrmmn2b5bt5bsm2btju14z97f14z

全部复制