Private Sub Command1_Click() Dim i As Integer Text1.Text=" " For i=0 To List1.ListCount If i Mod 2=1 Then Text1.Text=Text1.Text+List1.List(i) End If Next i End Sub Private Sub Form_Load() List1.AddItem"英语" List1.AddItem"政治" List1.AddItem"物理" List1.AddItem"化学" List1.AddItem"语文" List1.AddItem"生物" End Sub