单项选择题
设有如图所示窗体和以下程序:
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的小数部分四舍五入,转换为整数返回
点击查看答案&解析
相关试题
设有以下的循环:要求程序运行时执行3次循...
以下程序的功能是:把程序文件smtextl.txt...
在窗体上画一个通用对话框,其名称为Common...
窗体上命令按钮Command1的事件过程如下:...
在窗体上画一个名称为Command1的命令按钮...