Private Sub Command1_Click ()
Dim As Integer I
Label3. Caption="resume" & amp; VbCrLf
Label3. Caption=Label3. Caption & amp; "Name:" & amp; Text1. Text & amp; VbCrLf
Label3. Caption=Label3. Caption & amp; "Age:" & amp; Text2. Text & amp; VbCrLf
For I=0 To 1
If Option1 (I) Then
Label3. Caption=Label3. Caption & amp; "Gender:" & amp; Option1 (I). The Caption & amp; VbCrLf
End the If
Next I
For I=0 To 2
If Option3 (I) Then
Label3. Caption=Label3. Caption & amp; "Education:" & amp; Option3 (I). The Caption & amp; VbCrLf
End the If
Next I
For I=0 To 2
If Option6 (I) Then
Label3. Caption=Label3. Caption & amp; "Job:" & amp; Option6 (I). The Caption & amp; VbCrLf
End the If
For I=0 To 3
If Check1 (I) Then
Label3. Caption=Label3. Caption & amp; Check1 (I). The Caption & amp; ";"
End the If
Next I
End Sub
Private Sub Command2_Click ()
Dim As Integer I
Text1. Text=""
Text2. Text=""
For I=0 To 1
Option1 (I) Value=https://bbs.csdn.net/topics/False
Next I
For I=0 To 2
Option2 (I) Value=https://bbs.csdn.net/topics/False
Next I
For I=0 To 2
Option3 (I) Value=https://bbs.csdn.net/topics/False
Next I
For I=0 To 3
Check1 (I) Value=https://bbs.csdn.net/topics/False
Next I
End Sub
CodePudding user response:
Too admire "test in the wheel" spirit of the building Lord!Are you sure is option1 array?
CodePudding user response:
Or a Word or PowerPoint resume,CodePudding user response:
Option1 is certainly not the control of the building Lord array,You see his program interface, and then look at the code:
Gender there is Option1, degree there is Option3, the profession is Option6
Clearly is directly draw eight Option controls, didn't get into a control array,
CodePudding user response:
Your resume?Do file management is about the same,