Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
Label4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
Label4.Text = Val(TextBox1.Text) – Val(TextBox2.Text)
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
Label4.Text = Val(TextBox2.Text) * Val(TextBox1.Text)
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
Label4.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
Label4.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
If Val(TextBox1.Text) = Val(TextBox2.Text) Then
Label4.Text = TextBox1.Text & “samadengan” & TextBox2.Text
Else
Label4.Text = TextBox1.Text & “Tidaksamadengan” & TextBox2.Text
End If
End Sub

Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
If Val(TextBox1.Text) > Val(TextBox2.Text) Then
Label4.Text = TextBox1.Text & “lebihbesardari” & TextBox2.Text
ElseIf Val(TextBox1.Text) < Val(TextBox2.Text) Then
Label4.Text = TextBox1.Text & “lebihkecildari” & TextBox2.Text
Else
Label4.Text = TextBox1.Text & “samadengan” & TextBox2.Text
End If
End Sub

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
Label4.Font = New System.Drawing.Font(“Arial”, 20, FontStyle.Bold)
If Val(TextBox1.Text) < Val(TextBox2.Text) Then
Label4.Text = TextBox1.Text & “lebihkecildari” & TextBox2.Text
ElseIf Val(TextBox1.Text) > Val(TextBox2.Text) Then
Label4.Text = TextBox1.Text & “lebihbesardari” & TextBox2.Text
Else
Label4.Text = TextBox1.Text & “samadengan” & TextBox2.Text
End If
End Sub
End Class