运行结果
ComboBox1
ComboBox2
代码
可以由大到小输出:
正常顺序输出:
可复制:
Private Sub Command1_Click()
'步长缺省为1
Dim i As Integer
For i = 0 To 12
Combo1.AddItem i & "月"
Next i
'偶数月
For i = 0 To 13 Step 2
Combo2.AddItem i & "月"
Next i
End Sub
关于print
print从最左侧开始,并且自动换行