combo 控件

Question

两个combo控件，combo1中是1950年到2010年，combo2中是第一季度 ....第四季度4个，1950到2010 怎么弄进去，如何在初始化时就选定时间？如：今天是2007.10.22，初始化时第一个combo出现的时2007，第二个combo是第四季度

Answer 1

for i=1950 to 2010
    combo1.additem i
next i

Answer 2

填充按 Leftie 的方式，初始化：
combo1.listindex = year(now) - 1950
combo2.listindex = DatePart("q",now) - 1

Answer 3

for i=1950 to 2010 
  combo1.additem i
next i
Combo1.Text = Year(Now)
Combo2.Text = DatePart("q", Now)

Answer 4

Dim i As IntegerFor i = 1950 To 2010
  Combo1.AddItem i & " 年"
Next i
Combo1.Text = Year(Date) & " 年"Combo2.AddItem "第一季度"
Combo2.AddItem "第二季度"
Combo2.AddItem "第三季度"
Combo2.AddItem "第四季度"
Combo2.ListIndex = DatePart("q", Date) - 1