那位大神帮我解释下下图程序的走刀情况

2025-03-24 06:24:55
推荐回答(2个)
回答(1):

Sub GetFont()
For i=0 To Screen.FontCount-1
For j=0 To Printer.FontCount-1
If Screen.Fonts(i)=Printer.Fonts(j) Then
List1.Add1tem (Sereen.Fonts(i))
End If
Next j
Next i
End Sub

回答(2):

我擦,这不是数车?