Question

创建一个输入个人信息的应用程序,用vb

创建一个输入个人信息的应用程序,用vb

Answer 1

'举个做过的例子，效果如上

Private Sub Command3_Click()
Dim xb, xl, zy, aha, ahb, ahc, ahd As String
If Option5.Value = True Then
xb = "男"
End If
If Option6.Value = True Then
xb = "女"
End If

If Option7.Value = True Then
xl = "蓝翔毕业"
End If
If Option8.Value = True Then
xl = "山大毕业"
End If
If Option9.Value = True Then
xl = "北大毕业"
End If

If Option10.Value = True Then
zy = "开挖掘机"
End If
If Option11.Value = True Then
zy = "救死扶伤医生"
End If
If Option12.Value = True Then
zy = "大学叫兽"
End If

If Check3.Value = 1 Then
aha = "围棋"
End If
If Check4.Value = 1 Then
ahb = "编程"
End If
If Check5.Value = 1 Then
ahc = "长跑"
End If
If Check6.Value = 1 Then
ahd = "登山"
End If
Label6.Caption = "简历" + vbCrLf + "姓名：" & Text4.Text + vbCrLf + "年龄：" & Text5.Text + vbCrLf + "性别：" & xb + vbCrLf + "学历：" & xl + vbCrLf + "职业：" & zy + vbCrLf + "爱好：" & aha & " " & ahb & " " & ahc & " " & ahd
End Sub
Private Sub Command4_Click()
Label6.Caption = ""
End Sub