Question

求编写一个“个人简历表”程序。VB是6.0版本的

该程序运行后，用户在文本框中输入姓名和年龄，选择性别、职业、学历和个人兴趣等个人信息。单击“递交”按钮运行后，在右侧Label1控件显示具体个人信息；单击“重置”按钮则清除输入的信息和所做的选择。运行界面如图2.3.8所示。

Answer 1

先将各option控件name属性依次改成a1、a2; b1、b2......Private Sub Command1_Click()

Label3.Caption = "姓名：" & Text1.Text & vbCrLf

Label3.Caption = Label3.Caption & "年龄：" & Text2.Text & vbCrLf

If a1 Then

Label3.Caption = Label3.Caption & "性别：男" & vbCrLf

ElseIf a2 Then

Label3.Caption = Label3.Caption & "性别：女" & vbCrLf

End If

If b1 Then

Label3.Caption = Label3.Caption & "学历：大专" & vbCrLf

ElseIf b2 Then

Label3.Caption = Label3.Caption & "学历：本科" & vbCrLf

ElseIf b3 Then

Label3.Caption = Label3.Caption & "学历：研究生" & vbCrLf

End If

If c1 Then

Label3.Caption = Label3.Caption & "职业：教师" & vbCrLf

ElseIf c2 Then

Label3.Caption = Label3.Caption & "职业：医生" & vbCrLf

ElseIf c3 Then

Label3.Caption = Label3.Caption & "职业：公务员" & vbCrLf

End If

If d1 Then

Label3.Caption = Label3.Caption & "爱好：旅游" & vbCrLf

ElseIf d2 Then

Label3.Caption = Label3.Caption & "爱好：体育" & vbCrLf

ElseIf d3 Then

Label3.Caption = Label3.Caption & "爱好：音乐" & vbCrLf

ElseIf d4 Then

Label3.Caption = Label3.Caption & "爱好：集邮" & vbCrLf

End If

End Sub

Private Sub Command2_Click()

Label3.Caption = ""

End Sub

Answer 2

和这个问题好象是一样？
http://zhidao.baidu.com/question/1174256352072652659.html?oldq=1
写了没采纳一个的，以后估计这样的题很难有回复了。