Nothing

1、问题一
  a = 3
    For i = 0 To 14
       List1.AddItem a
       a = a + 7
    Next i
2、你可以用vb的line控件