vb ? 在Command1的Click事件中，对ListView1编程，将英语、高数、C语言三门课程名及各科成绩罗列在ListView1中

Question

10.在Command1的Click事件中，对ListView1编程，将英语、高数、C语言三门课程名及各科成绩罗列在ListView1中，结果如图所示。 
  
 

Answer 1

Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "姓名"
ListView1.ColumnHeaders.Add , , "英语"
ListView1.ColumnHeaders.Add , , "高数"
ListView1.ColumnHeaders.Add , , "C语言"
ListView1.View = lvwReport
         With ListView1
        .ListItems.Add , "Pi", "张志国"
        .ListItems.Add , "a", "王小星"
        .ListItems.Add , "e", "孙大明"
        .ListItems.Add , "y1", "胡兰兰"
        
        .ListItems(1).SubItems(1) = 85
         .ListItems(1).SubItems(2) = 90
         .ListItems(1).SubItems(3) = 73
        .ListItems(2).SubItems(1) = 85
         .ListItems(2).SubItems(2) = 90
         .ListItems(2).SubItems(3) = 73
         .ListItems(3).SubItems(1) = 85
         .ListItems(3).SubItems(2) = 90
         .ListItems(3).SubItems(3) = 73
         .ListItems(4).SubItems(1) = 85
         .ListItems(4).SubItems(2) = 90
         .ListItems(4).SubItems(3) = 73
      End With
        End Sub

Answer 2

没看清是click事件,将上面的Private Sub Form_Load改为Private Sub Command1_click