溫度轉換

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b.Text = (a.Text - 32) * 5 / 9
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
b2.Text = a1.Text * 9 / 5 + 32
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListBox1.SelectedItem = "轉攝氏溫標" Then q1.Text = (100 * c.Text - 100 * b3.Text) / (a2.Text - b3.Text)
If ListBox1.SelectedItem = "轉華氏溫標" Then q1.Text = (180 * c.Text - 212 * b3.Text + 32 * a2.Text) / (a2.Text - b3.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If ListBox2.SelectedItem = "攝氏溫標" Then q2.Text = (100 * w.Text - 100 * b3.Text) / (a2.Text - b3.Text)
If ListBox2.SelectedItem = "華氏溫標" Then q2.Text = (180 * w.Text - 212 * b3.Text + 32 * a2.Text) / (a2.Text - b3.Text)
End Sub
End Class