combo 控件

[wjp1015]

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

[饮水需思源]

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

[Tiger_Zhao]

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

[tingting1123]

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

[of123]

Dim i As Integer

For 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