计算机二级考试,最后一道编程题,程序编出来了而且没有错,但是他还有一个函数是提取文件的,但是编译的
计算机二级考试,最后一道编程题,程序编出来了而且没有错,但是他还有一个函数是提取文件的,但是编译的时候,他并没有从那个文件里提取,手输之后也可以输出,是不是那个文件不在考...
计算机二级考试,最后一道编程题,程序编出来了而且没有错,但是他还有一个函数是提取文件的,但是编译的时候,他并没有从那个文件里提取,手输之后也可以输出,是不是那个文件不在考试的电脑上
展开
2个回答
2016-03-31
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |