没能理解问题。

原题是这样的：
提供在窗体上显示的以汉字开头的字体名称，并显示该名称所对应的字体样式。
（1）界面设计：窗体有两个Label和两个列表listbox分别显示字体名和字体样式。
（2）屏幕对象Screen有一系列的属性，其中Fonts是存放所有字体名的字符数组，FontCount是所有字体的个数。
（3）要显示汉字字体名称，汉字的机内码最高位为1，若利用Asc函数求其码值为小于0（数据以补码表示），因此可用如下算法：
 For i=0 to Screen.FontCount-1
 判断 若 Asc(left(Screen.Fonts(i),1))<0为汉字字体 则
 在list1 显示字体名称 
 在List2设置控件的字体，并显示特定的汉字
 next

据题意，得代码：

For i = 0 To Screen.FontCount - 1
  If Asc(Left(Screen.Fonts(i), 1)) < 0 Then
    List1.AddItem Screen.Fonts(i)
    List2.FontName = Screen.Fonts(i)
    List2.AddItem "微软中文软件"
  End If
Next

但题目的第二项不科学（在List2设置控件的字体，并显示特定的汉字），因为循环完了后，List2中只会设置最后出现的字体，所以要展示所有的字体，必须另外添加一个按纽，在按纽的单击事件中设置List2的字体，按一下，显示一种字体。

它的意思是List1中出现几个以中文开头的字体名称在list2中对应的出现几个该字体的样式文字，如：
    字体名称（list1）     字体样式(list2)
         宋体            中国同济大学
         仿宋GB_2312     中国同济大学（体仿宋GB_2312字体）
         迷你简柏青      中国同济大学（迷你简柏青字体）
         宋体-PUA        中国同济大学（宋体-PUA字体）
等等。

他的意思是如何识别出汉字

多年项目开发经验,专业做毕业设计等中小型项目开发,熟悉各种数据库操作(sql server ,access ,mysql等),熟练应用VC, Delphi, VB, ASP, C#等开发语言.若有需要请联系QQ: 383147818 加我请注明: pfan项目