第一问答网»论坛 › 中问网 › 问答 › 帮我检查下这个vb程序,为什么只能打出第一个第二种就显 ...

帮我检查下这个vb程序,为什么只能打出第一个第二种就显示错误

11 |

1 | 2011-7-10 02:44:08 | 显示全部楼层 |阅读模式

DimnflagAsInteger
DimsmystringAsString

PrivateSubForm_Click()
Ifnflag=1Then
Form1.FontName=\"黑体\"
Printsmystring
nflag=nflag1
ElseIfnflag=2Then
Form1.FontName=\"楷体_GB2312\"
Printsmystring
nflag=nflag1
ElseIfnflag=3Then
Form1.FontName=\"隶书\"
Printsmystring
nflag=nflag1
Else
Cls
nflag=1
EndIf
EndSub

PrivateSubForm_Load()
nflag=1
smystring=\"欢迎使用visualbasic\"
Form1.FontSize=18
EndSub

使用道具举报