实验3.11
编写一个“个人简历表”程序，用户在文本框提交后输入姓名和年龄，选择性别，职业，学历和个人兴趣爱好信息，单机提交按钮后右边显示个人简历信息，单击“重置”按钮后清除输入的个人信息和所进行的选择。
代码如下：
'创建时间:-4-14Public Class sy3_11Dim xm, gender, xueli, zhiye, aihao As String, age As Integer'性别选框Private Sub GroupBox1_Enter()If RadioButton1.Checked = True Thengender = RadioButton1.TextElseIf RadioButton2.Checked = True Thengender = RadioButton2.TextElseMessageBox.Show("性别未选", "提示框")End IfEnd Sub'学历选框Private Sub GroupBox2_Enter()If RadioButton3.Checked = True Thenxueli = RadioButton3.TextElseIf RadioButton4.Checked = True Thenxueli = RadioButton4.TextElseIf RadioButton5.Checked = True Thenxueli = RadioButton5.TextElseMessageBox.Show("学历未选", "提示框")End IfEnd Sub'职业选框Private Sub GroupBox3_Enter()If RadioButton6.Checked = True Thenzhiye = RadioButton6.TextElseIf RadioButton7.Checked = True Thenzhiye = RadioButton7.TextElseIf RadioButton8.Checked = True Thenzhiye = RadioButton8.TextElseMessageBox.Show("职业未选", "提示框")End IfEnd Sub'爱好选框Private Sub GroupBox4_Enter()If CheckBox1.Checked = True Thenaihao = CheckBox1.Text + " " + aihaoElseaihao = aihao + " "End IfIf CheckBox2.Checked = True Thenaihao = CheckBox2.Text + " " + aihaoElseaihao = aihao + " "End IfIf CheckBox3.Checked = True Thenaihao = CheckBox3.Text + " " + aihaoElseaihao = aihao + " "End IfIf CheckBox4.Checked = True Thenaihao = CheckBox4.Text + " " + aihaoElseaihao = aihao + " "End IfEnd Sub'提交按钮Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'性别年龄按钮xm = TextBox1.TextIf Not IsNumeric(TextBox2.Text) Or Val(TextBox2.Text) <= 1 Or Val(TextBox2.Text) > 100 ThenTextBox2.Text = ""TextBox2.Focus()MessageBox.Show("年龄输入有误！", "提示框")Elseage = Val(TextBox2.Text)End If'调用函数Call GroupBox1_Enter()Call GroupBox2_Enter()Call GroupBox3_Enter()Call GroupBox4_Enter()'输出TextBox3.Text = "简历" & vbCrLf & "姓名：" & xm & vbCrLf & "年龄：" & age & vbCrLf & "学历：" & xueli & vbCrLf & "职业：" & zhiye & vbCrLf & "爱好：" & aihaoEnd Sub'重置按钮Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickTextBox1.Text = ""TextBox2.Text = ""TextBox3.Text = ""RadioButton1.Checked = FalseRadioButton2.Checked = FalseRadioButton3.Checked = FalseRadioButton4.Checked = FalseRadioButton5.Checked = FalseRadioButton6.Checked = FalseRadioButton7.Checked = FalseRadioButton8.Checked = FalseCheckBox1.Checked = FalseCheckBox2.Checked = FalseCheckBox3.Checked = FalseCheckBox4.Checked = FalseEnd SubEnd Class
运行截图：
