《VB》作业：请各位做一下
一、程序设计题程序要求如下：
1、程序运行后，窗体初始化时，在左边列表框1(名称为List1)中列出当前屏幕对象（Screen）的所有字体，screen对象的fonts属性（fonts属性是一个数组）能够得到屏幕使用的所有字体，FontCount属性能够得到字体的数量，利用一个循环，将Screen对象的每个Fonts(i)添加到列表框1中；
2、窗体初始化时，在右边的列表框2(名称为List2)中列出8、10、12、14……72的数字，表示字号。
3、当用户在列表框1中单击选中某种字体名时，或在列表框2中单击选中某一字号时，使窗体下半部的标签框（名称为Label1）中文字设置为相应字体与字号，实现字体字号预览。
--------------------编程问答-------------------- 作业贴是禁止的，别懒，自己做 --------------------编程问答-------------------- 靠，你是老师呀
还让各位做一下
你是老师，我也不是你学生好不 --------------------编程问答-------------------- 我是那种老不交作业的……
--------------------编程问答--------------------
大学作业？很简单啊。。。Private Sub Command1_Click()--------------------编程问答-------------------- 自己要勤快一点,多动动手
Dim i%
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next
End Sub
Private Sub Form_Load()
Dim i%
For i = 8 To 72 Step 2
List2.AddItem CStr(i)
Next
List2.ListIndex = 0
End Sub
Private Sub List1_Click()
Label1.FontName = List1.Text
Label1.FontSize = List2.Text
End Sub
Private Sub List2_Click()
If List1.ListCount > 0 Then List1_Click
End Sub
补充：VB , 基础类
