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 Form_Load()
For i = 0 To Screen.FontCount - 1
1 stfont.AddItem Screen.Fonts(i)
Next i
End Sub

Private Sub Form_Load()
    Dim i As Long
    For i = 0 To Screen.FontCount - 1
        lbFont.AddItem Screen.Fonts(i)
    Next i
   
    For i = 8 To 72
        lbSize.AddItem i
    Next i
End Sub
Private Sub lbFont_Click()
    Debug.Print lbFont.List(lbFont.ListIndex), lbSize.List(lbSize.ListIndex)
    lblMsg.Font = lbFont.List(lbFont.ListIndex)
End Sub
Private Sub lbSize_Click()
    Debug.Print lbFont.List(lbFont.ListIndex), lbSize.List(lbSize.ListIndex)
    lblMsg.Font.Size = lbSize.List(lbSize.ListIndex)
End Sub

[ 本帖最后由 bczgvip 于 2009-9-4 05:57 编辑 ]