提供大家一个VB.NET的原代码，计算器仿微软自带的。版权

神话

Dim Result As Double
    Dim Mem As Double
    Dim reg As Double
    Dim cNumber As Integer
    Dim ReDo As Boolean
    Dim cDecimal As Boolean
    Dim cClick As String
    Private Sub Button_MC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_MC.Click
        Mem = 0
    End Sub

    Private Sub Button_MR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_MR.Click
        Display.Text = CStr(Mem)
    End Sub

    Private Sub Button_MS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_MS.Click
        If ReDo = False Then
            Mem = CDbl(Display.Text)
        End If
    End Sub

    Private Sub Button_Backspace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Backspace.Click
        Dim value As String
        value = Display.Text
        If ((value.CompareTo("0.") <> 0) And (value.Length <> 0)) Then
            value = value.Remove(value.Length - 1, 1)
        End If
        If ((value.Length = 0) Or (value = "-")) Then
            value = "0."
        End If
        Display.Text = value
    End Sub

    Private Sub Button_CE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_CE.Click
        ReDo = True
        Result = 0
        Display.Text = "0."
        cNumber = 0
        reg = 0
        cDecimal = False
    End Sub

    Private Sub Button_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_C.Click
        ReDo = True
        Display.Text = "0."
    End Sub

    Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button0.Click
        DisplayDigit("0")
    End Sub
    Sub DisplayDigit(ByRef addition As String)
        If ReDo = True Then
            Display.Text = addition
            ReDo = False
        Else
            Display.Text = Display.Text & addition
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DisplayDigit("1")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DisplayDigit("2")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        DisplayDigit("3")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        DisplayDigit("4")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        DisplayDigit("5")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        DisplayDigit("6")
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        DisplayDigit("7")
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        DisplayDigit("8")
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        DisplayDigit("9")
    End Sub

    Private Sub Button_plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_plus.Click
        If cNumber = 0 Then
            reg = CDbl(Display.Text)
            cDecimal = False
            ReDo = True
            cNumber = 1
        Else
            Result = reg + CDbl(Display.Text)
            Display.Text = CStr(Result)
            ReDo = True
            cDecimal = False
            reg = CDbl(Display.Text)
        End If
        cClick = "Addition"
    End Sub

    Private Sub Button_Minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Minus.Click
        If cNumber = 0 Then
            reg = CDbl(Display.Text)
            cDecimal = False
            ReDo = True
            cNumber = 1
        Else
            Result = reg - CDbl(Display.Text)
            Display.Text = CStr(Result)
            ReDo = True
            cDecimal = False
            reg = CDbl(Display.Text)
        End If
        cClick = "Minus"
    End Sub

    Private Sub Button_Mul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Mul.Click
        If cNumber = 0 Then
            reg = CDbl(Display.Text)
            cDecimal = False
            ReDo = True
            cNumber = 1
        Else
            Result = reg * CDbl(Display.Text)
            Display.Text = CStr(Result)
            ReDo = True
            cDecimal = False
            reg = CDbl(Display.Text)
        End If
        cClick = "Multi"
    End Sub

    Private Sub Button_Div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Div.Click
        If cNumber = 0 Then
            reg = CDbl(Display.Text)
            cDecimal = False
            ReDo = True
            cNumber = 1
        Else
            Result = reg / CDbl(Display.Text)
            Display.Text = CStr(Result)
            ReDo = True
            cDecimal = False
            reg = CDbl(Display.Text)
        End If
        cClick = "Divide"
    End Sub

    Private Sub Button_Dot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Dot.Click
        If cDecimal = False Then
            DisplayDigit(".")
            cDecimal = True
        End If
    End Sub

    Private Sub Button_PlusORMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_PlusORMinus.Click
        Result = -CDbl(Display.Text)
        Display.Text = CStr(Result)
    End Sub

    Private Sub Button_Sqrt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Sqrt.Click
        Result = System.Math.Sqrt(CDbl(Display.Text))
        Display.Text = CStr(Result)
    End Sub

    Private Sub Button_Dao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Dao.Click
        Result = 1 / CDbl(Display.Text)
        Display.Text = CStr(Result)
    End Sub

    Private Sub Button_Equal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Equal.Click
        Select Case cClick
            Case "Addition"
                If cNumber = 0 Then
                    reg = CDbl(Display.Text)
                    ReDo = True
                    cNumber = 1
                Else
                    Result = reg + CDbl(Display.Text)
                    Display.Text = CStr(Result)
                    ReDo = True
                    cDecimal = False
                    reg = CDbl(Display.Text)
                End If
            Case "Minus"
                If cNumber = 0 Then
                    reg = CDbl(Display.Text)
                    ReDo = True
                    cNumber = 1
                Else
                    Result = reg - CDbl(Display.Text)
                    Display.Text = CStr(Result)
                    ReDo = True
                    cDecimal = False
                    reg = CDbl(Display.Text)
                End If
            Case "Multi"
                If cNumber = 0 Then
                    reg = CDbl(Display.Text)
                    ReDo = True
                    cNumber = 1
                Else
                    Result = reg * CDbl(Display.Text)
                    Display.Text = CStr(Result)
                    ReDo = True
                    cDecimal = False
                    reg = CDbl(Display.Text)
                End If
            Case "Divide"
                If cNumber = 0 Then
                    reg = CDbl(Display.Text)
                    ReDo = True
                    cNumber = 1
                Else
                    Result = reg / CDbl(Display.Text)
                    Display.Text = CStr(Result)
                    ReDo = True
                    cDecimal = False
                    reg = CDbl(Display.Text)
                End If
        End Select
        cNumber = 0
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Display.Text = "0."
        reg = 0
        cNumber = 0
        ReDo = True
        cDecimal = False
    End Sub
End Class

荣誉勋章

转载了, 哈哈!

神话

都说了，别转载！

我最近从VB转入VB。NET了！大家一起来吧。VB。NET不错的。

荣誉勋章

说笑的, 我现在不用VB.NET.

神话

呵呵，干吗不用呢？VB。NET不错的，一起来用吧。一起学习一起进步。

liiir1985

呵呵，vb.net确实很强大，改天我发点关于用vb.net编写脚本系统和用socket类编写网络程序的教程发上来～
vb.net直接动态编译vb.net、c#、j#、c++代码为脚本，实在是强悍～

神话

支持支持！赶快，我正需要VB。NET开发SOCKET网络的资料呢……

liiir1985

呵呵，我现在也是初步使用，不过要实现服务器端的功能足够，到时候把我那服务器端的框架放出来给大家。

神话

支持支持！呵呵，我喜欢。