如果想实现屏幕字体中的"宋体"到"@幼圆"，则代码应该如何编写？

Question

书上写的是：
If Mid(Screen.Fonts(i), 2, 1) > "z" Then
Combo1.AddItem Screen.Fonts(i)
End If
我看不懂Mid(Screen.Fonts(i), 2, 1) > "z" 是什么意思，哪位大虾能告诉我一下么？

Answer 1

Screen.Fonts 字体集合。
Mid(a, b, c) 从字符串a中的第b位向后取c个字符。

也就是当字体名称的第二个字符的ASCII码大于123（也就是z）的时候，向 Combo1 中添加这个字体名称，说穿了就是把所有非英文名称的字体加进去，因为只有非英文名称的字体第二位才不是英文字符。