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

答案:2 悬赏:10 手机版

解决时间 2021-03-23 04:16

提问者网友：聂風
2021-03-22 12:45

最佳答案

五星知识达人网友：逐風
2021-03-22 13:56

先将各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

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！