Print "中国"
FontName = "隶书"
FontSize = 20
FontBold = True
FontItalic = True
FontUnderline = True
FontStrikethru = True
Print "中国"


你的电脑字体库里没有安装 "隶书"这种字体.
所以你把 FontName = "隶书"改为 FontName = "宋体"就行.
Private Sub Form_Load()'如果写在这个事件里还得加上下面一句
AutoRedraw = True '如果不加这句,则窗体上没有打印 "中国"二字
Print "中国"
FontName = "宋体"
FontSize = 20
FontBold = True
FontItalic = True
FontUnderline = True
FontStrikethru = True
Print "中国"
End Sub

灰常感谢 3Q

给字体赋值用font属性不要用fontname属性...fontname属性是一个老的保留的属性...用font属性即使字体不存在也不会出现这个错误...会自动转为有效的字体

嗯 谢谢 现在 有一题 怎么做
输入以秒为单位表示的时间，编写程序。 7500秒 将其换算成几时几分几秒 怎么写

H=7500\3600
M=(7500 Mod 3600)\60
S=(7500 Mod 3600) Mod 60
TmpTime=H &"小时" & M & "分" & S & "秒"

在VB上怎么输出 我没懂呢

'新建一工程.
'添加Text1 和 Label1 控件,复制以下代码
'在Text1里输入总秒数,Label1上就会自动显示出转化后的时分秒
Private Sub Text1_Change()
H = Text1 \ 3600
M = (Text1 Mod 3600) \ 60
S = (Text1 Mod 3600) Mod 60
tmptime = H & "小时" & M & "分" & S & "秒"
Label1.Caption = tmptime
End Sub

谢谢