VB编写一个简单个人信息输入程序

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = "姓名"

        Label2.Text = "性别"

        Label3.Text = "爱好"

        RadioButton1.Text = "男"

        RadioButton2.Text = "女"

        CheckBox1.Text = "篮球"

        CheckBox2.Text = "羽毛球"

        CheckBox3.Text = "足球"

        CheckBox4.Text = "乒乓球"

        CheckBox5.Text = "下棋"

        CheckBox6.Text = "游泳"

        TextBox1.Text = ""

        Button1.Text = "确定"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String = ""

        str = str & TextBox1.Text & " "

        If RadioButton1.Checked = True Then

            str = str & "性别:男 "

        Else

            str = str & "性别:女 "

        End If

        str = str & "兴趣爱好："

        If CheckBox1.Checked = True Then

            str = str & "篮球 "

        End If

        If CheckBox2.Checked = True Then

            str = str & "羽毛球 "

        End If

        If CheckBox3.Checked = True Then

            str = str & "足球 "

        End If

        If CheckBox4.Checked = True Then

            str = str & "乒乓球 "

        End If

        If CheckBox5.Checked = True Then

            str = str & "下棋 "

        End If

        If CheckBox6.Checked = True Then

            str = str & "游泳 "

        End If

        ComboBox1.Items.Add(str)

    End Sub

End Class

Dim xm As String, nl As String, xb As String, xl As String, zy As String

Dim ah1 As String, ah2 As String, ah3 As String, ah4 As String

Private Sub Check1_Click()

If Check1.Value = 1 Then ah1 = "旅游" Else ah1 = ""

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then ah2 = "体育" Else ah2 = ""

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then ah3 = "音乐" Else ah3 = ""

End Sub

Private Sub Check41_Click()

If Check4.Value = 1 Then ah4 = "集邮" Else ah4 = ""

End Sub

Private Sub Command1_Click()

Text3.Text = "简历" & vbCrLf & "姓名:" & xm & vbCrLf & "年龄:" & nl & vbCrLf & "性别:" & xb & vbCrLf & "学历:" & xl & vbCrLf & "职业:" & zy & vbCrLf & "爱好:" & ah1 & ah2 & ah3 & ah4

End Sub

Private Sub Command2_Click()

Text1 = "": xm = ""

Text2 = "": nl = ""

Text3 = ""

Check1.Value = 0: ah1 = ""

Check2.Value = 0: ah2 = ""

Check3.Value = 0: ah3 = ""

Check4.Value = 0: ah4 = ""

End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click()

If Option1.Value = True Then xb = "男"

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then xb = "女"

End Sub

Private Sub Option3_Click()

If Option3.Value = True Then xl = "大学"

End Sub

Private Sub Option4_Click()

If Option4.Value = True Then xl = "本科"

End Sub

Private Sub Option5_Click()

If Option5.Value = True Then xl = "研究生"

End Sub

Private Sub Option6_Click()

If Option6.Value = True Then zy = "教师"

End Sub

Private Sub Option7_Click()

If Option7.Value = True Then zy = "医生"

End Sub

Private Sub Option8_Click()

If Option8.Value = True Then zy = "公务员"

End Sub

Private Sub Text1_Change()

xm = Text1.Text

End Sub

Private Sub Text2_Change()

nl = Text2.Text

End Sub

---