问答题
在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体中有一个名称为Command1，标题为“读取字体大小”的命令按钮，一个名称为List1的列表框。要求程序运行后，单击“读取字体大小”按钮读取系统的字体，并在List1中显示，如下图所示。
本题描述如下：
在窗体中有一个名称为Command1，标题为“读取字体大小”的命令按钮，一个名称为List1的列表框。要求程序运行后，单击“读取字体大小”按钮读取系统的字体，并在List1中显示，如下图所示。
【正确答案】根据题意，将一个列表框控件和一个命令按钮添加到窗体中．列表框的名称设为List1，命令按钮的名称设为Command1、Caption属性为“读取字体大小”。双击Command1进入代码编写窗口，其中Screen.Fonts是读取系统字体的函数，然后利用循环添加到List1中，补充后的具体代码如下：
Private Sub Command1_Click()
Dim i As Integer
For i=0 To Screen.FontCount-1
List1.AddItem Screen.Fonts(i)
Next i
End Sub
单击
Private Sub Command1_Click()
Dim i As Integer
For i=0 To Screen.FontCount-1
List1.AddItem Screen.Fonts(i)
Next i
End Sub
单击
【答案解析】