代碼：
Private Sub Command1_Click()
Dim i As Integer
Label3.Caption = "個人簡歷" & vbCrLf
Label3.Caption = Label3.Caption & "姓名:" & Text1.Text & vbCrLf
Label3.Caption = Label3.Caption & "年齡:" & Text2.Text & vbCrLf
For i = 0 To 1
If Option1(i) Then
Label3.Caption = Label3.Caption & "性別:" & Option1(i).Caption & vbCrLf
End If
Next i
For i = 0 To 2
If Option3(i) Then
Label3.Caption = Label3.Caption & "學歷:" & Option3(i).Caption & vbCrLf
End If
Next i
For i = 0 To 2
If Option6(i) Then
Label3.Caption = Label3.Caption & "職業:" & Option6(i).Caption & vbCrLf
End If
For i = 0 To 3
If Check1(i) Then
Label3.Caption = Label3.Caption & Check1(i).Caption & "；"
End If
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
Text1.Text = ""
Text2.Text = ""
For i = 0 To 1
Option1(i).Value = False
Next i
For i = 0 To 2
Option2(i).Value = False
Next i
For i = 0 To 2
Option3(i).Value = False
Next i
For i = 0 To 3
Check1(i).Value = False
Next i
End Sub
uj5u.com熱心網友回復：
太佩服樓主的“牛刀小試”精神！你確定option1是陣列嗎？
uj5u.com熱心網友回復：
還是用Word或PowerPoint做個人簡歷吧。uj5u.com熱心網友回復：
樓主的 Option1 肯定不是控制元件陣列，你看他的程式界面，再看看代碼：
性別那兒是Option1，學歷那兒是Option3，職業那兒是Option6
明顯就是直接畫的8個Option控制元件，沒弄成控制元件陣列。
uj5u.com熱心網友回復：
簡歷？做檔案管理還差不多。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/98234.html
標籤：VB基礎類