Car_Oil汽車油耗

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim kilo, liter, price, total, kiloPerliter, literPerkilo, kiloPermoney, moneyPerkilo As Single
        kilo = Val(TextBox1.Text)
        liter = Val(TextBox2.Text)
        price = Val(TextBox5.Text)
        total = price * liter
        kiloPerliter = Math.Round(kilo / liter, 2)
        literPerkilo = Math.Round(liter / kilo, 2)
        kiloPermoney = Math.Round(kiloPerliter / price, 2)
        moneyPerkilo = Math.Round(literPerkilo * price, 2)
        TextBox3.Text = kiloPerliter
        TextBox4.Text = literPerkilo
        TextBox6.Text = kiloPermoney
        TextBox7.Text = moneyPerkilo
        TextBox8.Text = total
    End Sub
End Class

看見公告的同學，請傳達以下各班的學藝股長，請拿作業抽查表，給計概老師。謝謝您！汽車1、綜高1忠、AND某班已經簽過作業抽查表的班級。

看見公告的同學，請傳達以下各班的學藝股長，請拿作業抽查表，給計概老師。謝謝您！
汽車1、綜高1忠、AND某班已經簽過作業抽查表的班級。
因為同學去問了教務處，答覆：本次作業抽查，不含計概。必需更正作業抽查表的簽名。

附註：各位同學，請按時繳交作業：
期末報告一
期末報告二
謝謝各位同學

抽查同學：
04、13、16、22、28、34

Bread麵包配方--程式碼示範

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim percentage, Baking As Single
        TextBox17.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text)
        Baking = ((Val(TextBox15.Text) * Val(TextBox16.Text)) / Val(TextBox17.Text)) / 0.95
        TextBox18.Text = Baking
        TextBox8.Text = Int(Val(TextBox1.Text) * Baking)
        TextBox9.Text = Int(Val(TextBox2.Text) * Baking)
        TextBox10.Text = Int(Val(TextBox3.Text) * Baking)
        TextBox11.Text = Int(Val(TextBox4.Text) * Baking)
        TextBox12.Text = Int(Val(TextBox5.Text) * Baking)
        TextBox13.Text = Int(Val(TextBox6.Text) * Baking)
        TextBox14.Text = Int(Val(TextBox7.Text) * Baking)
    End Sub
End Class

扶養比--程式碼示範

Public Class Form1
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Call Raise()
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Call Raise()
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        Call Raise()
    End Sub

    Sub Raise()
        Dim Raise As Single
        Dim r, g, b As Integer
        If Val(TextBox2.Text) <> 0 Then
            Raise = (Val(TextBox1.Text) + Val(TextBox3.Text)) / Val(TextBox2.Text)
            Label6.Text = Raise * 100 & "%"
            REM
            r = Int(Raise * 2 * 255)
            If r > 255 Then
                r = 255
            ElseIf r < 0 Then
                r = 0
            End If
            g = Int(255 / (Raise * 10))
            If g > 255 Then
                g = 255
            ElseIf r < 0 Then
                g = 0
            End If
        End If
        PictureBox1.BackColor = Color.FromArgb(r, g, 0)
    End Sub


End Class

猜猜鴨特徵--程式碼示範

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "北京鴨" Then
            If CheckBox2.Checked And CheckBox3.Checked And Not CheckBox1.Checked And Not CheckBox4.Checked Then
                Label2.Text = "答對了"
            Else
                Label2.Text = " 答錯了"
            End If

        End If
    End Sub
End Class

物種分類--程式碼示範

Public Class Form1
    Dim head, wing, foot As Integer
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("w.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 1
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("b.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 2
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("wb.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 3
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("g.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 4
    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("y.jpg")
        Me.PictureBox1.Image = Image.FromStream(fs)
        head = 5
    End Sub

    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h1.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 1
    End Sub

    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h2.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 2
    End Sub

    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton8.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h3.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 3
    End Sub

    Private Sub RadioButton9_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton9.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h4.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 4
    End Sub

    Private Sub RadioButton10_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton10.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("h5.jpg")
        Me.PictureBox2.Image = Image.FromStream(fs)
        wing = 5
    End Sub

    Private Sub RadioButton11_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton11.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f1.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 1
    End Sub

    Private Sub RadioButton12_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton12.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f2.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 2
    End Sub

    Private Sub RadioButton13_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton13.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f3.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 3
    End Sub

    Private Sub RadioButton14_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton14.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f4.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 4
    End Sub

    Private Sub RadioButton15_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton15.CheckedChanged
        Dim fs As System.IO.FileStream = System.IO.File.OpenRead("f5.jpg")
        Me.PictureBox3.Image = Image.FromStream(fs)
        foot = 5
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        Select Case head
            Case 1
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                                Label2.Text = "111"
                            Case 2
                                Label2.Text = "112"
                            Case 3
                                Label2.Text = "113"
                            Case 4
                                Label2.Text = "114"
                            Case 5
                                Label2.Text = "115"
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                                Label2.Text = "121"
                            Case 2
                                Label2.Text = "122"
                            Case 3
                                Label2.Text = "123"
                            Case 4
                                Label2.Text = "124"
                            Case 5
                                Label2.Text = "125"
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                                Label2.Text = "131"
                            Case 2
                                Label2.Text = "132"
                            Case 3
                                Label2.Text = "133"
                            Case 4
                                Label2.Text = "134"
                            Case 5
                                Label2.Text = "135"
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 2
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 3
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 4
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
            Case 5
                Select Case wing
                    Case 1
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 2
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 3
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 4
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                    Case 5
                        Select Case foot
                            Case 1
                            Case 2
                            Case 3
                            Case 4
                            Case 5
                        End Select
                End Select
        End Select
    End Sub
End Class

原子序--程式碼示範

Public Class Form1
    Dim atomic As Integer
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        atomic = Val(TextBox1.Text)
        Select Case atomic
            Case 1
                Label1.Text = "H"
                label2.text = "氫"
            Case 2
                Label1.Text = "He"
                Label2.Text = "氦"
            Case 3
                Label1.Text = "LI"
                Label2.Text = "鋰"
            Case 4
                Label1.Text = "Be"
                Label2.Text = "鈹"
            Case 5
                Label1.Text = "B"
                Label2.Text = "硼"
        End Select
    End Sub

    Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove
        TextBox1.Text = "1"
        Label1.Text = "H"
        Label2.Text = "氫"
    End Sub

    Private Sub Button5_MouseMove(sender As Object, e As MouseEventArgs) Handles Button5.MouseMove
        TextBox1.Text = "2"
        Label1.Text = "He"
        Label2.Text = "氦"
    End Sub

    Private Sub Button2_MouseMove(sender As Object, e As MouseEventArgs) Handles Button2.MouseMove
        TextBox1.Text = "3"
        Label1.Text = "Li"
        Label2.Text = "鋰"
    End Sub



    Private Sub Button3_MouseMove(sender As Object, e As MouseEventArgs) Handles Button3.MouseMove
        TextBox1.Text = "4"
        Label1.Text = "Be"
        Label2.Text = "鈹"
    End Sub



    Private Sub Button4_MouseMove(sender As Object, e As MouseEventArgs) Handles Button4.MouseMove
        TextBox1.Text = "5"
        Label1.Text = "B"
        Label2.Text = "硼"
    End Sub
End Class