form2.vb

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

        Button7.Enabled = False
        Button8.Enabled = False
        Button9.Enabled = False
        Button10.Enabled = False
        Button5.Enabled = False
        Button12.Enabled = False
        Button25.Enabled = False
        Button30.Enabled = True
        Button31.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button53.Enabled = True
        Button54.Enabled = True
        Button55.Enabled = True
        Button56.Enabled = True
        Button57.Enabled = True
        Button58.Enabled = True
        Button29.Enabled = True
        Button35.Enabled = True
        Button36.Enabled = True
        Button37.Enabled = True
        Button38.Enabled = True
        Button42.Enabled = True
        Button43.Enabled = True

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        GroupBox4.Hide()
        GroupBox2.Show()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button53.Enabled = False
        Button54.Enabled = False
        Button55.Enabled = False
        Button56.Enabled = False
        Button57.Enabled = False
        Button58.Enabled = False
        Button6.Enabled = True
        Button7.Enabled = True
        Button8.Enabled = True
        Button9.Enabled = True
        Button10.Enabled = True

        Button12.Enabled = True
        Button25.Enabled = True

        Button29.Enabled = True
        Button35.Enabled = True
        Button36.Enabled = True
        Button37.Enabled = True
        Button38.Enabled = True
        Button42.Enabled = True
        Button43.Enabled = True
        Button30.Enabled = True
        Button31.Enabled = True
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        GroupBox4.Show()
        GroupBox2.Hide()
        Button30.Enabled = False
        Button31.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button53.Enabled = False
        Button54.Enabled = False
        Button55.Enabled = False
        Button56.Enabled = False
        Button57.Enabled = False
        Button58.Enabled = False
        Button6.Enabled = False
        Button7.Enabled = False
        Button8.Enabled = False
        Button9.Enabled = False
        Button10.Enabled = False
        Button5.Enabled = False
        Button12.Enabled = False
        Button25.Enabled = False
        Button29.Enabled = True
        Button35.Enabled = True
        Button36.Enabled = True
        Button37.Enabled = True
        Button38.Enabled = True
        Button42.Enabled = True
        Button43.Enabled = True
     
    End Sub
    Dim t As String
    Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
        h = TextBox1.Text
        t = ""
        x = "+"

    End Sub

    Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.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
        If (x = "mod") Then
            TextBox1.Text() = Val(h) Mod Val(t)
        End If
        If (x = "x^y") Then
            TextBox1.Text() = Math.Pow(h, t)

        End If
        If (x = "or") Then
            TextBox1.Text() = Val(h) + Val(t)
        End If

    End Sub
    Dim s, h, x As String
    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        TextBox1.Text = Math.PI

    End Sub

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

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

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

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

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

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

    Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
        TextBox1.Text() = -TextBox1.Text
    End Sub

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

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

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

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

        t = ""
        x = "-"
    End Sub

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

        t = ""
        x = "*"
    End Sub

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

        t = ""
        x = "/"
    End Sub

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

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Text() = Val(TextBox1.Text) ^ 2


    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox1.Text() = Val(TextBox1.Text) ^ 3
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text() = Math.Sin(Val(TextBox1.Text))
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text() = Math.Cos(Val(TextBox1.Text))
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text() = Math.Tan(Val(TextBox1.Text))
    End Sub

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

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        TextBox1.Text() = Math.Log(Val(TextBox1.Text))
    End Sub

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

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

    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Dim i, m, s As Double
        s = 1
        m = Val(TextBox1.Text)
        For i = 1 To m
            s = s * i
        Next
        TextBox1.Text() = CStr(s)


    End Sub

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

        t = ""
        x = "mod"
    End Sub

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

        t = ""
        x = "x^y"
    End Sub

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

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

        t = ""
        x = "or"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f2 As New Form3
        f2.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 MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        RadioButton4.Checked = True
        GroupBox4.Show()
        GroupBox2.Hide()
        Button30.Enabled = False
        Button31.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button53.Enabled = False
        Button54.Enabled = False
        Button55.Enabled = False
        Button56.Enabled = False
        Button57.Enabled = False
        Button58.Enabled = False
        Button6.Enabled = False
        Button7.Enabled = False
        Button8.Enabled = False
        Button9.Enabled = False
        Button10.Enabled = False
        Button5.Enabled = False
        Button12.Enabled = False
        Button25.Enabled = False

        Button29.Enabled = False
        Button35.Enabled = False
        Button36.Enabled = False
        Button37.Enabled = False
        Button38.Enabled = False
        Button42.Enabled = False
        Button43.Enabled = False
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click

        Dim f As New Form4
        f.Show()

    End Sub
End Class