在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
PrivateSubText1_LostFocus()
IfNotIsNumeric(Text1)Then
MsgBox"帐号有非数字字符错误"
Text1.Text=""
Text1.SetFocus
else
MsgBox"帐号正确"
EndIf
EndSub
当在text1文本框中输入数字123456之后，单击命令按钮，结果为()
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示