单项选择题
设有如图所示窗体和以下程序:
Private Sub Command1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text1_LostFocus()
If Text1.Text<>"BASIC" Then
Text1.Text=" "
Text1.SetFocus
End If
End Sub
程序运行时,在Text1文件框中输入“Basic”(如图所示),然后单击Command1按钮,则产生的结果是( )
A.文本框中无内容,焦点在文本框中
B.文本框中为“Basic”,焦点在文本框中
C.文本框中为“Basic”,焦点的按钮上
D.文本框中为“Visual Basic”,焦点的按钮上
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
窗体上有一个名称为Command1的命令按钮,其事件过程如下: Private Sub Command1_Click() x= VisualBasicProgramming a=Right(x,11) b=Mid(x,7,5) C=Msgbox(a,b) End Sub 运行程序后单击命令按钮,以下叙述中错误的是( )
A.信息框的标题是Basic
B.信息框中的提示信息是Programming
C.C的值是函数的返回值
D.MsgBox的使用格式有错
点击查看答案&解析
单项选择题
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox( ) If y.a 2=y.a 2 Then y.b=y.a * y.a Else y.b=Fix(y.a 2) End If Text1.Text=y.b End Sub 对以上程序,下列叙述中错误的是( )
A.x是用户定义的类型
B.InputBox函数弹出的对话框中没有提示信息
C.若输入的是偶数,y.b的值为该偶数的平方
D.Fix(y.a/2)把y.a/2的小数部分四舍五入,转换为整数返回
点击查看答案&解析
相关试题
窗体上有两个名称分别为Text1、Text2的文...
设窗体上有一个文体框Text1和一个命令按钮...
已知在4行3列的全局数组score(4,3)...
某人编写了如下程序,用来求10个整数(整...
窗体上有一个用菜单编辑器设计的菜单(见上...