form1.vb

学生管理系统~~有源码和开发文档相当不错的 谁要下就下 没什么问题的！

        Me.Button16.Size = New System.Drawing.Size(38, 24)
        Me.Button16.TabIndex = 17
        Me.Button16.Text = "*"
        '
        'Button17
        '
        Me.Button17.ForeColor = System.Drawing.Color.Blue
        Me.Button17.Location = New System.Drawing.Point(264, 120)
        Me.Button17.Name = "Button17"
        Me.Button17.Size = New System.Drawing.Size(38, 24)
        Me.Button17.TabIndex = 18
        Me.Button17.Text = "%"
        '
        'Button18
        '
        Me.Button18.ForeColor = System.Drawing.Color.Blue
        Me.Button18.Location = New System.Drawing.Point(72, 152)
        Me.Button18.Name = "Button18"
        Me.Button18.Size = New System.Drawing.Size(38, 24)
        Me.Button18.TabIndex = 19
        Me.Button18.Text = "1"
        '
        'Button19
        '
        Me.Button19.ForeColor = System.Drawing.Color.Blue
        Me.Button19.Location = New System.Drawing.Point(120, 152)
        Me.Button19.Name = "Button19"
        Me.Button19.Size = New System.Drawing.Size(38, 24)
        Me.Button19.TabIndex = 20
        Me.Button19.Text = "2"
        '
        'Button20
        '
        Me.Button20.ForeColor = System.Drawing.Color.Blue
        Me.Button20.Location = New System.Drawing.Point(168, 152)
        Me.Button20.Name = "Button20"
        Me.Button20.Size = New System.Drawing.Size(38, 24)
        Me.Button20.TabIndex = 21
        Me.Button20.Text = "3"
        '
        'Button21
        '
        Me.Button21.ForeColor = System.Drawing.Color.Red
        Me.Button21.Location = New System.Drawing.Point(216, 152)
        Me.Button21.Name = "Button21"
        Me.Button21.Size = New System.Drawing.Size(38, 24)
        Me.Button21.TabIndex = 22
        Me.Button21.Text = "-"
        '
        'Button22
        '
        Me.Button22.ForeColor = System.Drawing.Color.Blue
        Me.Button22.Location = New System.Drawing.Point(264, 152)
        Me.Button22.Name = "Button22"
        Me.Button22.Size = New System.Drawing.Size(38, 24)
        Me.Button22.TabIndex = 23
        Me.Button22.Text = "1/x"
        '
        'Button23
        '
        Me.Button23.ForeColor = System.Drawing.Color.Blue
        Me.Button23.Location = New System.Drawing.Point(72, 184)
        Me.Button23.Name = "Button23"
        Me.Button23.Size = New System.Drawing.Size(38, 24)
        Me.Button23.TabIndex = 24
        Me.Button23.Text = "0"
        '
        'Button24
        '
        Me.Button24.ForeColor = System.Drawing.Color.Blue
        Me.Button24.Location = New System.Drawing.Point(120, 184)
        Me.Button24.Name = "Button24"
        Me.Button24.Size = New System.Drawing.Size(38, 24)
        Me.Button24.TabIndex = 25
        Me.Button24.Text = "+/-"
        '
        'Button25
        '
        Me.Button25.ForeColor = System.Drawing.Color.Blue
        Me.Button25.Location = New System.Drawing.Point(168, 184)
        Me.Button25.Name = "Button25"
        Me.Button25.Size = New System.Drawing.Size(38, 24)
        Me.Button25.TabIndex = 26
        Me.Button25.Text = "."
        '
        'Button26
        '
        Me.Button26.ForeColor = System.Drawing.Color.Red
        Me.Button26.Location = New System.Drawing.Point(216, 184)
        Me.Button26.Name = "Button26"
        Me.Button26.Size = New System.Drawing.Size(38, 24)
        Me.Button26.TabIndex = 27
        Me.Button26.Text = "+"
        '
        'Button27
        '
        Me.Button27.ForeColor = System.Drawing.Color.Red
        Me.Button27.Location = New System.Drawing.Point(264, 184)
        Me.Button27.Name = "Button27"
        Me.Button27.Size = New System.Drawing.Size(38, 24)
        Me.Button27.TabIndex = 28
        Me.Button27.Text = "="
        '
        'form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(320, 217)
        Me.Controls.Add(Me.Button27)
        Me.Controls.Add(Me.Button26)
        Me.Controls.Add(Me.Button25)
        Me.Controls.Add(Me.Button24)
        Me.Controls.Add(Me.Button23)
        Me.Controls.Add(Me.Button22)
        Me.Controls.Add(Me.Button21)
        Me.Controls.Add(Me.Button20)
        Me.Controls.Add(Me.Button19)
        Me.Controls.Add(Me.Button18)
        Me.Controls.Add(Me.Button17)
        Me.Controls.Add(Me.Button16)
        Me.Controls.Add(Me.Button15)
        Me.Controls.Add(Me.Button14)
        Me.Controls.Add(Me.Button13)
        Me.Controls.Add(Me.Button12)
        Me.Controls.Add(Me.Button11)
        Me.Controls.Add(Me.Button10)
        Me.Controls.Add(Me.Button9)
        Me.Controls.Add(Me.Button8)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Menu = Me.MainMenu1
        Me.Name = "form1"
        Me.Text = "计算器"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim f As New Form4
        f.Show()

    End Sub
    Dim s, t, h, x As String


    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim f As New Form2
        f.Show()
        Me.Hide()

    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Me.Show()

    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        s = TextBox1.Text()
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        TextBox1.Text() = s

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        t = t + "7"
        TextBox1.Text = t
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        t = t + "8"
        TextBox1.Text = t
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        t = t + "9"
        TextBox1.Text = t
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        t = t + "4"
        TextBox1.Text = t
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        t = t + "5"
        TextBox1.Text = t
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        t = t + "6"
        TextBox1.Text = t
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        t = t + "1"
        TextBox1.Text = t
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        t = t + "2"
        TextBox1.Text = t
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        t = t + "3"
        TextBox1.Text = t
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        t = t + "0"
        TextBox1.Text = t
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        t = ""
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        TextBox1.Text = TextBox1.Text + "."
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)

    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        h = TextBox1.Text
        t = ""
        x = "+"
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        If (x = "+") Then
            TextBox1.Text() = Val(h) + Val(t)
        End If
        If (x = "-") Then
            TextBox1.Text() = Val(h) - Val(t)
        End If
        If (x = "*") Then
            TextBox1.Text() = Val(h) * Val(t)
        End If
        If (x = "/") Then
            TextBox1.Text() = Val(h) / Val(t)
        End If
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        h = TextBox1.Text

        t = ""
        x = "-"
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        h = TextBox1.Text

        t = ""
        x = "*"
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        h = TextBox1.Text

        t = ""
        x = "/"
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox1.Text() = Math.Sqrt(Val(TextBox1.Text()))

    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If (TextBox1.Text() = 0) Then
            TextBox1.Text() = "除数不能为零"
        Else
            TextBox1.Text() = 1 / (Val(TextBox1.Text()))
        End If
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        TextBox1.Text() = Val(TextBox1.Text) / 100
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        TextBox1.Text() = -TextBox1.Text


    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text() = "0"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text() = "0"

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text() = "0"

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text() = "0"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text() = "0"
    End Sub
End Class