计算器的VB程序怎么编啊？有谁知道的吗 ？谢谢拉啊

来源：百度知道 编辑：UC知道 时间：2024/06/15 06:34:25
我的作业编写一个计算器程序，但是我不会写

Dim tp1 As Double
Dim f As String
Private Sub C0_Click()
T1.Text = T1.Text + C0.Caption
End Sub

Private Sub C00_Click()
T1.Text = T1.Text + C00.Caption
End Sub

Private Sub C1_Click()
T1.Text = T1.Text + C1.Caption
End Sub

Private Sub C100_Click()
T1.Text = T1.Text + C100.Caption
End Sub

Private Sub C101_Click()
Select Case f
Case "+"
T1.Text = tp1 + T1.Text
Case "-"
T1.Text = tp1 - T1.Text
Case "*"
T1.Text = tp1 * T1.Text
Case "/"
T1.Text = tp1 / T1.Text
End Select
End Sub

Private Sub C102_Click()
tp1 = T1.Text
T1.Text = ""
f = "+"
End Sub

Private Sub C103_Click()
tp1 = T1.Text
T1.Text = ""
f = "-"
End Sub

Private Sub C104_Click()
tp1 = T1.Text
T1.Text = ""
f =