实验34图片承载控件以及其他控件编程.docxVIP

实验34 图片承载控件以及其他控件编程Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add(一) ComboBox1.Items.Add(二) ComboBox1.Items.Add(三) ComboBox1.Items.Add(四) ComboBox1.SelectedIndex = 0 End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Select Case ComboBox1.SelectedIndex Case 0 PictureBox1.Image = My.Resources.xiamen1 Case 1 PictureBox1.Image = My.Resources.xiamen2 Case 2 PictureBox1.Image = My.Resources.xiamen3 Case 3 PictureBox1.Image = My.Resources.xiamen4 End Select End SubEnd Class2．Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = 初始化输入文本框 Label2.Text = 初始化输出标签框 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As Double Dim c As String 定义一个可存放部分输出结果的字符串变量 c = If TextBox1.Text = Then TextBox1.Focus() 如果没有输入任何时间,则强制返回文本框等待输入MsgBox(请输入计算数据) 提示用户输入时间 Exit Sub 控制如果没有输入时间,不进行下面的计算,直接结束“计算”按钮的Click事件过程 End If If RadioButton4.Checked = True Then b = Val(TextBox1.Text) * Math.PI / 180 判断是否输入角度?若是,进行弧度转换,否则不转换ElseIf RadioButton5.Checked = True Then b = Val(TextBox1.Text) End If 判断进行何种计算,并进入对应的计算 If RadioButton1.Checked = True Then a = Math.Sin(b) c = Sin( TextBox1.Text )= 将显示何种计算的内容转换为字符串ElseIf RadioButton2.Checked = True Then a = Math.Cos(b) c = Cos( TextBox1.Text )= 将显示何种计算的内容转换为字符串ElseIf RadioButton3.Checked = True Then a = Math.Tan(b)