窗体上有一个名为Command 1的命令按钮和一个名为Timer 1的计时器,并有下面的
事件过程:
Private Sub Command 1_Click()
Timerl.Enabled=True
End Sub
Private Sub Form_ Load()
Timerl.Interval=10
Timerl.Enabled=False
End Sub
Private Sub Timerl_Timer()
Command l .Left=Commandl .Left+10
End Sub
程序运行时,单击命令按钮,则产生的结果是
A)命令按钮每10秒向左移动一次
B)命令按钮每10秒向右移动一次
C)命令按钮每10毫秒向左移动一次
D)命令按钮每10毫秒向右移动一次
第1题:
窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器,并有下面的事件过程:
Private Sub Command1_Click( )
Timer1.Enabled=True
End Sub
Private Sub Form_Load( )
Timer1.Interval=10
Timer1.Enabled=False
End Sub
Private Sub Timer1 Timer( )
Command1.Left=Command1.Left+10
End Sub
程序运行时,单击命令按钮,则产生的结果是( )。
A.命令按钮每10秒向左移动一次
B.命令按钮每10秒向右移动一次
C.命令按钮每10毫秒向左移动一次
D.命令按钮每10毫秒向右移动一次
第2题:
在窗体中有一个名为(Command1的命令按钮,Click事件的代码如下:

单击命令按钮后,标签显示的结果是( )。
第3题:
在窗体上添加一个命令按钮,名为Command1,事件过程如下:

程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1后,输出的结果是______。
A.5
B.4
C.3
D.2
第4题:
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程: Private Sub Command1 Click( ) X!=Val(Text1.Text) Select Casc x Case Is<-10,Is>=20 Print"输入错误" Case Is<0 Print 20-x Case Is<10 Print 20 Case Is<=20 Print x+10 End Seleet End Sub 程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是( )。
A.5
B.20
C.25
D.输入错误
第5题:
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:

打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。
第6题:
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:
程序运行后,单击命令按钮,在文本框中显示的是( )。
A. 2
B. 3
C. 4
D. 5
第7题:
在名为Form1的窗体上添加一个计时器控件,名为Timer1。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体的标题设置为“计时器”。设计阶段的窗体如下图所示。

注意:
文件必须存放在考生文件夹中,工程文件名为execise19.vbp, 窗体文件名为 execise19.frm。

第8题:
在窗体上画一个名为Command1的命令按钮,编写如下程序:

程序运行后,单击命令按钮,输出的结果是_________。
第9题:
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程:

第10题:
( 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
第11题:
若选中的不是最前面的列表项,则选中的列表项与它前一个列表项互换位置
选中的列表项与它前面的列表项互换位置
若选中的不是最后面的列表项,则选中的列表项与它后一个列表项互换位置
选中的列表项与它后面的列表项互换位置
第12题:
ABCDEF
abcdef
AFBECD
DEFABC
第13题:
在窗体上添加一个命令按钮(名为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
第14题:
在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下: Private Sub Command1_Click() Timer1.Enabled=True Timer1.Interval=1000 End Sub Private Sub Timerl_timer() Labell.Caption=Time End Sub 当运行程序后,单击命令按钮,将在标签中显示的内容为
A.Time
B.True
C.1000
D.10:06:55
第15题:
窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器,并有下面的事件过程:
Private Sub Commandl_Click()
Timerl.Enabled=True
End Sub
Private Sub Form_Load()
Timerl.Interval=10
Timerl.Enabled—False
Private Sub Timerl _Timer()
Commandl.Left=Commandl.Left+10
End Sub
程序运行时,单击命令按钮,则产生的结果是
A.命令按钮每10秒向左移动一次
B.命令按钮每10秒向右移动一次
C.命令按钮每10毫秒向左移动一次
D.命令按钮每l0毫秒向右移动一次
第16题:
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:
Private Sub Command_Click()
Dim x AS Integer, y As Integer, z As Integer
x=5:y=7:z=0
Me!Textl=””
Call pl(x,y,z)
Me!Text1=z
End Sub
Sub pl(a As Integer,b As Integer,c As Integer)
C=a+b
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的内容是【 】 。
第17题:
在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设 置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。



第18题:
在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Command1_Cliek
Dim b, k
For k = 1 to 6
b=23+k
Next k
MsgBox b + k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是【 】。
第19题:
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框,事件代码如下: Private Sub Command1_Click Dim a(10)As Integer,b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体,单击命令按钮,文本框Text1中显示的内容是( )。
A.13
B.14
C.15
D.16
第20题:
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl),编写如下事件过程:

打开窗体运行后,单击命令按钮,文本框中显示的内容是__________。
第21题:
( 15 )在窗体上添加一个命令按钮(名为 Command1 ),然后编写如下事件过程:
Private Sub Command1_Click ()
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是 【 15 】 。
第22题:
窗体上有一个名为Button1的命令按钮和一个标签框,然后编写如下事件过程:
程序运行后,单击命令按钮,则在标签框上显示的内容是()
A5.8
B5
C7
D无数据
第23题:
命令按钮每10秒向左移动一次
命令按钮每10秒向右移动一次
命令按钮每10毫秒向左移动一次
命令按钮每10毫秒向右移动一次