久违的--大二下学期第一章

最新推荐文章于 2024-11-20 16:50:14 发布

原创最新推荐文章于 2024-11-20 16:50:14 发布 · 698 阅读

CC 4.0 BY-SA版权

Imports System.Math
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim h%, m%, s%, x%
        x = Val(TextBox1.Text)
        s = x Mod 60
        m = (x \ 60) Mod 60
        h = x \ 3600
        Label2.Text = h & ":" & m & ":" & s



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Height = 250
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Height = 400
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        Dim c As Char
        c = Trim(ComboBox1.Text)
        Select Case c
            Case "+"
                TextBox4.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
            Case "-"
                TextBox4.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
            Case "*"
                TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
            Case "/"
                TextBox4.Text = Val(TextBox2.Text) / Val(TextBox3.Text)

        End Select
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox6.Text = Sin(Val(TextBox5.Text))
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox6.Text = Sqrt(Val(TextBox5.Text))
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox6.Text = Oct(Val(TextBox5.Text))
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox6.Text = Cos(Val(TextBox5.Text))
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox6.Text = Log(Val(TextBox5.Text))
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox6.Text = Hex(Val(TextBox5.Text))
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim i As Integer, c As Char
        Randomize()
        Label4.Text = ""
        For i = 1 To 10
            Label4.Text &= Chr(Int(Rnd() * 26 + 65)) & " "
        Next

    End Sub
End Class