Dim? ah 1？ As? String,? ah2？ As? String,? ah3？ As? String,? ah4？ As? line
Private? Sub？ Check 1_Click()
What if? Check 1。 Value? =? 1? then what ah 1？ =? "Travel"? Or what? ah 1？ =? ""
End? submarine
Private? Sub？ Check2_Click()
What if? Check 2. Value? =? 1? then what ah2？ =? "Sports"? Or what? ah2？ =? ""
End? submarine
Private? Sub？ Check3_Click()
What if? Check 3. Value? =? 1? then what ah3？ =? "Music"? Anything else? ah3？ =? ""
End? submarine
Private? Sub？ Check4 1_Click()
What if? Check 4. Value? =? 1? then what ah4？ =? "Collecting stamps"? Or what? ah4？ =? ""
End? submarine
Private? Sub？ Command 1_Click()
SMS 3. Words? =? Resume. ? vbCrLf？ & amp？ Name: & xm？ & amp？ vbCrLf？ & amp？ Age:&? nl？ & amp？ vbCrLf？ & amp？ "gender:" & amp？ xb？ & amp？ vbCrLf？ & amp？ "education:" & amp？ xl？ & amp？ vbCrLf？ & amp？ Occupation: & zy？ & amp？ vbCrLf？ & amp？ "hobby" & amp？ ah 1？ & amp？ ah2？ & amp？ ah3？ & amp？ ah4
End? submarine
Private? Sub？ Command2_Click()
Text 1？ =? "":? xm？ =? ""
Text2？ =? "":? nl？ =? ""
Text3？ =? ""
Check 1。 Value? =? 0:? ah 1？ =? ""
Check 2. Value? =? 0:? ah2？ =? ""
Check 3. Value? =? 0:? ah3？ =? ""
Check 4. Value? =? 0:? ah4？ =? ""
End? submarine
Private? Sub？ Form_Load()
End? submarine
Private? Sub？ Option 1_Click()
What if? Option 1. Value? =? Really? then what xb？ =? "male"
End? submarine
Private? Sub？ Option2_Click()
What if? Option 2. Value? =? Really? then what xb？ =? "female"
End? submarine
Private? Sub？ Option 3_Click ()
What if? Option 3. Value? =? Really? then what xl？ =? "University"
End? submarine
Private? Sub？ Option 4_Click ()
What if? Option 4. Value? =? Really? then what xl？ =? "undergraduate"
End? submarine
Private? Sub？ Option5_Click()
What if? Option 5. Value? =? Really? then what xl？ =? "graduate student"
End? submarine
Private? Sub？ Option 6_Click ()
What if? Option 6. Value? =? Really? then what zy？ =? "teacher"
End? submarine
Private? Sub？ Option 7_Click ()
What if? Option 7. Value? =? Really? then what zy？ =? "doctor"
End? submarine
Private? Sub？ Option8_Click()
What if? Option 8. Value? =? Really? then what zy？ =? "civil servant"
End? submarine
Private? Sub？ Text 1_Change()
xm？ =? Text 1。 text
End? submarine
Private? Sub？ Text2_Change()
nl？ =? Text 2. text
End? submarine