VB编写一个"个人简历表"程序

2025-04-05 11:50:17

推荐回答（1个）

回答1：

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

最新问答

京东金条被盗刷风险高吗？京东金条选择的人很多？

Skype翻译助手，破解版本能用吗

我是新疆的学生、我想考中国传媒的播音主持系一般录取的分数线是多少。好不好考？还有我是理科生

一段圆柱形木料，如果截成两段，它的表面积增加6.28平方米；如果沿直

14 C是一种半衰期为5730年的放射性同位素，若考古工作者探测到某古木中 14 C的含量为原来的，则该古树

混凝土砂石分离机分类有哪些