还是我，还是哪个vb原程序我重写了一遍，请大家看看，有哪能改的！

Question

Sub Number_key()
    Number_Expedient = Expedient_Number_key - 48
    Number_input
End SubPrivate Sub CmdNumber_key_Click(Index As Integer)
    Select Case Index
        Case 11
            Arithmetic_point
        Case 10
            Select Case Judge_CE
                Case 1
                    A = -A
                    If InStrRev(A, ".") = 0 Then
                        TextResult.Text = A & "."
                    Else
                        TextResult.Text = A
                    End If
                Case 2
                    B = -B
                    If InStrRev(B, ".") = 0 Then
                        TextResult.Text = Val(B & ".")
                    Else
                        TextResult.Text = Val(B)
                    End If
            End Select
        Case Else
            Nember_Expedient = index
            Number_input
    End Select
End SubPrivate Sub CmdOperator_Click(Index As Integer)
    Operator_Expedient = Index
    Expedient_Operator
End Sub还有就是定义变量名的时候，要尽量避免诸如a,b等不知意义的变量名，
另外变量名要表明这个变量的类型，例如Dim Result As Integer
应该写成Dim iResult As Integer

Answer 1

你到底想干什么，有什么问题就问呗？