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