如图，我电脑没有安装这种字体，为什么软件的这个字体能在我电脑里显示？VB能实现吗？

数字是可以改变的

百分之九十九的可能是通过图片来实现的，比如把0到9分别做一个图片，然后通过排列组合就能出现任何数字了，当然再加上小数点、“M”、“B”等字符，这都不在话下了。

如果是你手动输入，当然要下载相关的字体，如果你是在模板上剪贴之类的当然可以显示，因为电脑连电影都能显示更何况是这个小不点儿！ 如果要用vb，当然要下载相关的字体！

新建模块： declare function addfontresource lib "gdi32" alias "addfontresourcea" (byval lpfilename as string) as long 窗体代码： private sub command1_click() dim ziti as string ziti = "c:\ziti.ttf" '需要安装的字体文件位置 tmp = right(ziti, len(ziti) - instrrev(ziti, "\")) filecopy ziti, "c:\windows\fonts\" & tmp dim lresult as long lresult = addfontresource("c:\windows\fonts\" & tmp) if lresult = 2 then msgbox "安装成功" else msgbox "安装失败" end if end sub

vb中字体可以动态添加、卸载 不过，这个看起来是图片，估计是具体的数字=>匹配相应的图片，所以数字可以改变