——此人的消息是春哥帮他发的，反弹一切诅咒。

1965793137@qq.com谢谢

求解啊，跪了

有木有人啊

Option Explicit Dim AA As Long
Dim BB As String
Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Index End Sub Private Sub Command2_Click() '第一步
AA = Val(Text1.Text) '第二步
Text1.Text = "" '第三步
BB = "+" End Sub Private Sub Command3_Click() '第一步
AA = Val(Text1.Text) '第二步
Text1.Text = "" '第三步
BB = "-" End Sub
Private Sub Command4_Click() '第一步
AA = Val(Text1.Text) '第二步
Text1.Text = "" '第三步
BB = "*" End Sub
Private Sub Command5_Click() '第一步
AA = Val(Text1.Text) '第二步
Text1.Text = "" '第三步
BB = "/" End Sub
Private Sub Command6_Click() Text1.Text = "" End Sub Private Sub Command7_Click() Select Case BB
Case "+"
Text1.Text = AA + Val(Text1.Text)
Case "-"
Text1.Text = AA - Val(Text1.Text)
Case "*"
Text1.Text = AA * Val(Text1.Text)
Case "/"
Text1.Text = AA / Val(Text1.Text)
End Select End Sub


有我必沉，怒弹楼上JJ，笑抚楼下菊花。最好是黄土哥的菊花和JJ，弹黄哥的JJ弹上瘾了