vb作业
同一对象进行设置的代码，例如：
Private Sub Form_Load()
Command1.Caption = "OK"
Command1.Visible = True
Command1.Top = 200
Command1.Left = 5000
Command1.Enabled = True
End Sub
可用“With ...... End With”语句简化如下，注意各个属性前的“.”不可缺。
Private Sub Form_Load()
With Command1
.Caption = "OK"
.Visible = True
.Top = 200
.Left = 5000
.Enabled = True
End With
End Sub
事件中，还需编写其它有关初始状况的代码。
列顺序与 Qbcolor(x) 函数一致，即 x = .ListIndex，请参阅 QBColor函数.doc）。
5. 单击"应用"按钮后，将字体预览中设置的字体效果全部运用到文本框中的文字上。
6. 按要求改名保存。
[思考题]
1. 列表框（ListBox）和各种类型（Style = 0、1、2）组合框（Combo）有什么区别？各用于什么场合？
属性？
3.组合框和列表框的Click事件和KeyPress事件各用在什么场合？其Change事件和Click事件有什么区别？它们都有Change事件吗？ 因此，在 Form_Load() 事件中，同学们只需在每个“With”语句后填写相应的控件名称，便可为各个列表框和组合框添加列表项。在 Form_Load()4. 编写各个列表框和组合框事件过程的代码。要求字体设置中的任何选择操作都在预览的"效果"标签中及时体现；（提示：颜色组合框中颜色排2.在“字号”组合框（Combo）输入列表项以外的字号（例如：37.5）后，若要使该新增的列表项（37.5）自动插在36与48之间，应如何设置哪个
提示:
1.应用程序界面设计。
根据各项设置的项目多少和是否允许键盘输入来选择ListBox和Combo的3种Style：
入，在属性窗口将Sorted属性设为True。
>>[字体]：字体名称项目不多(常用4项)，允许键盘输入名称(例如："隶书")，选择组合框(Style=1-Simple Combo)。
>>[颜色]：字体颜色项目较多(16种颜色)，但不允许键盘输入。选择组合框(Style=2-Dropdown List)。
>>[字型]：项目只有 4 项，不允许键盘输入，选择列表框(ListBox)即可。 >>[字号]：项目较多(5-72不同间隔)，允许键盘输入数字(例如：37.5)，选择组合框(Style=0-Dropdown Combo)，为了将输入的列表项按顺序插