电脑课VB制作计算器 问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 10:41:24
是个非常简单的计算器

Private Sub Command1_Click()
Text1.Text = Text1.Text + Command1.Caption
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + Command10.Caption
End Sub

Private Sub Command11_Click()
If a = 0 Then
a = Text1.Text
Else
b = Text1.Text
End If
Text1.Text = ""
op = "+"

End Sub

Private Sub Command12_Click()
If a = 0 Then
a = Text1.Text
Else
b = Text1.Text
End If
Text1.Text = ""
op = "+"

End Sub

Private Sub Command13_Click()
If a = 0 Then
a = Text1.Text
Else
b = Text1.Text
End If
Text1.Text = ""
op = "+"

End Sub

Private Sub Command14_Click()
If a = 0 Then
a = Text1.Text
Else
b = Text1.T

Private op As String

Private Sub Form_Load()
a=0
b=0
End Sub

首先我要说我是考过了江苏的VB2级的
然后我要说这个简单的吗？我当你只要一个+ - * / 呢，你叫软件班的帮你吧，，，，，，

完全版的前后台代码...

'请把下面的保存为 form1.frm

VERSION 5.00
Begin VB.Form Calculator
BorderStyle = 1 'Fixed Single
Caption = "计算器"
ClientHeight = 2970
ClientLeft = 2580
ClientTop = 1485
ClientWidth = 3270
ClipControls = 0 'False
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight =