单项选择题
设有如右图所示的窗体和下列程序: 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",焦点在按钮上
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
有如下函数过程:Function HFC(ByVal x AS Integer,ByVal y As Integer)As IntegerDo While y < > 0sic=x yX=yy=sicLoopHFC=xEnd Function以下是该函数的调用过程,该程序的运行结果是( )。Private Sub Command1 _ Click( )Dim a AS IntegerDim b As Integera=12b=2x=HFC(a,b)Print xEnd Sub
A.0
B.6
C.2
D.80
点击查看答案&解析
单项选择题
单击命令按钮时,下列程序的执行结果是( )。Private Sub Command1_Click()Dim a As Integer,b As Integer,C As Integera=3b=4c=5Print SecProc(c,b,a)End SubFunction FirProc (x As Integer,y As Integer,z As Integer)FirProc=2 * x + y + 3 * z+2End FunctionFunction SecProc (x As Integer,y As hteger,z As Integer)SecProc=FirProc(z,x,y)+x+7End Function
A.20
B.25
C.37
D.32
点击查看答案&解析
相关试题
在面向对象方法中,类的实例称为 ____...
在窗体上有一个命令按钮,然后编写如下程序...
执行下面的程序段,x的值为【 】。 Priva...
下面的程序用于根据文本框Test中输入的内容...
在窗体上有几个对象,运行程序时,当对象得...