實驗3.11

編寫一個“個人簡歷表”程序，用戶在文本框提交后輸入姓名和年齡，選擇性別，職業，學歷和個人興趣愛好信息，單機提交按鈕后右邊顯示個人簡歷信息，單擊“重置”按鈕后清除輸入的個人信息和所進行的選擇。

代碼如下：

'創建時間:2021-4-14 Public 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

運行截圖：

總結

以上是生活随笔為你收集整理的VB.NET编写一个“个人简历表”程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。