Private Sub Form_Load()For i = 0 To 4 Combo1.AddItem iNext i Combo1.Text = 3End Sub
直接设置combo的属性就行了。
做个小广告：http://www.pianyiji.com
