Question

求VB个人简历表程序

Answer 1

代码如下：
Private Sub Command1_Click() '显示信息
Label3.Caption = "简历"
Label3.Caption = Label3.Caption & vbCrLf & "姓名：" & Text1.Text
Label3.Caption = Label3.Caption & vbCrLf & "年龄：" & Text2.Text
If Option1.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "性别：男"
Else
Label3.Caption = Label3.Caption & vbCrLf & "性别：女"
End If
If Option3.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "学历：大专"
ElseIf Option4.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "学历：本科"
Else
Label3.Caption = Label3.Caption & vbCrLf & "学历：研究生"
End If
If Option6.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "职业：教师"
ElseIf Option7.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "职业：医生"
Else
Label3.Caption = Label3.Caption & vbCrLf & "职业：公务员"
End If
x = vbCrLf & "爱好："
For i = 0 To 3
If Check1(i) = 1 Then x = x & Check1(i).Caption & " "
Next i
Label3.Caption = Label3.Caption & x
End Sub
Private Sub Command2_Click()
Form_Load '初始化窗体
End Sub
Private Sub Form_Load() '初始化窗体
Text1.Text = ""
Text2.Text = ""
Option1.Value = True
Option2.Value = False
Option3.Value = True
Option4.Value = False
Option5.Value = False
Option6.Value = True
Option7.Value = False
Option8.Value = False
For i = 0 To 3
Check1(i).Value = 0
Next i
Label3.Caption = ""
End Sub

Answer 2

如何快速升级