做了一个三角函数计算器，但显示出现了问题

这个东西显示的结果一直只有0和1，检查不出问题，函数方面的话在控制台运行是没问题的，但到了这里就不行了

Imports System.Math
Public Class Form1
Public t#, r#
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
t = Val(TextBox1.Text) * PI / 180
End If
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
t = Val(TextBox1.Text)
End If
End Sub
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
r = Sin(t)
End If
End Sub
Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
If RadioButton5.Checked = True Then
r = Cos(t)
End If
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then
r = Tan(t)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = TextBox2.Text & r
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub
End Class

Ball Ball路过的大佬们搭把手，小弟想了一天了

你这个代码确实有点问题，不应该在单选按钮的事件中给变量赋值，而应该统一在“计算”按钮的事件中判断哪个单选按钮处于选中状态，根据判断结果给变量赋不同的值
顺便，这两个变量没必要用Public定义，在按钮中用Dim定义即可

If RadioButton3.Checked = True Then
r = Sin(t)
End If
这里的【RadioButton3.Checked】控件在哪里？
界面上只有两个【多选一】的判断框，怎么出现了【RadioButton3】？
实现题目功能的程序只需要一个【鼠标左键单击【计算】按钮】的事件程序，怎么整出那么多小程序块？