VB字体列表框

Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 8 To 12
Combo2.AddItem i
Next i
For j = 14 To 28 Step 2
Combo2.AddItem j
Next j
For k = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(j)
Next k
End Sub

运行结果，字体列表框没有出现字体，而是Bell Gothic std Light，不知道怎么回事

答案：Combo1.AddItem Screen.Fonts(j)
中的j改为K

上一个：vb 数据导出到excel，并插入背景图片
下一个：VB程序设计题，在线等待。求拯救！！！！！！！！！