在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C
题目
在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：
Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then
MsgBox "帐号有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
else
MsgBox "帐号正确"
End If
End Sub
当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()
A.显示对话框，提示信息为"帐号正确"
B.显示对话框，提示信息为"帐号有非数字字符错误"
C.程序出错
D.没有任何提示
相似考题
参考答案和解析
更多“在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFo ”相关问题
-
第1题：
设有如下通用过程：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：
End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30
B. 25
C. 20
D. 15
正确答案：A
A) 【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。
-
第2题：
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
正确答案：B
题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。 -
第3题：
（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写
如下事件代码：
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Me!Text1 =n
End Sub
打开窗体运行后，单击命令按钮，在文本框中显示
A ） 5
B ） 8
C ） 9
D ） 10
正确答案：D
-
第4题：
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的是（ ）。A. 2
B. 3
C. 4
D. 5
正确答案：B
B) 【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。
-
第5题：
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在（ ）处填入适当的内容，将程序补充完整。
正确答案：
True【解析】当向文本框中输入任何字符时．文本框中的内容发生变化，从而触发Change事件，事件处理程序将命令按钮激活即可。这通过设置Command1.Enabled的属性值为真来实现。 -
第6题：
在窗体上添加一个命令按钮Command1和一个文本框Text1，并在命令按钮的Click事件过程中编写如下代码： Private Sub Command1_Click（) A = 1.2 C = Len（Str$（A) + Space（10)) Text1.Text = C End Sub 程序运行后，单击命令按钮，在文本框中显示（）。
A．3
B．8
C．14
D．10
C