窗体上有一个名为Command 1的命令按钮和一个名为Timer 1的计时器,并有下面的事件过程:Private Sub Command 1_Click()Timerl.Enabled=TrueEnd SubPrivate Sub Form_ Load()Timerl.Interval=10Timerl.Enabled=FalseEnd SubPrivate Sub Timerl_Timer()Command l .Left=Commandl .Left+10End Sub程序运行时,单击命令按钮,则产生

题目

窗体上有一个名为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毫秒向右移动一次


相似考题
更多“窗体上有一个名为Command 1的命令按钮和一个名为Timer 1的计时器,并有下面的事件过程:Privat ”相关问题
  • 第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毫秒向右移动一次


    正确答案:D
    D。【解析】Timer的Interval属性单位是毫秒,给Left加10表示向右移动。

  • 第2题:

    在窗体中有一个名为(Command1的命令按钮,Click事件的代码如下:

    单击命令按钮后,标签显示的结果是( )。


    正确答案:25
    25

  • 第3题:

    在窗体上添加一个命令按钮,名为Command1,事件过程如下:

    程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1后,输出的结果是______。

    A.5

    B.4

    C.3

    D.2


    正确答案:D
    解析:本题的难点是do until…Loop循环。do until循环条件为真时退出循环体,即x= -1时退出循环。程序计算过程为a=5、2,b=4、1,c=3、-1。

  • 第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.输入错误


    正确答案:C
    C。【解析】当输入-5时,Is<0,所以直接执行20-X,即20-(-5)=25。

  • 第5题:

    在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:

    打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。


    正确答案:12
    12 解析: 本题考查的是VBA编程基础、参数传递。由于VBA中,默认情况下,参数是按地址传递(ByRef),结果会返回。本题中z的值等于x+y,所以文本框中显示的内容为12。

  • 第6题:

    在窗体上有一个名为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次。

  • 第7题:

    在名为Form1的窗体上添加一个计时器控件,名为Timer1。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体的标题设置为“计时器”。设计阶段的窗体如下图所示。

    注意:

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


    正确答案:

  • 第8题:

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

    程序运行后,单击命令按钮,输出的结果是_________。


    正确答案:
    4
    【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值,然后通过数组下标嵌套本身。注意:这样的嵌套时,要保证数组下标不出界,否则程序将出错。

  • 第9题:

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程:


    正确答案:
    15【解析】本题考查VBA程序中过程调用的知识。由于VBA中,默认情况下,参数是按地址传递(ByRef),对形参的改变会影响到实参。本题中2的值等于a b,这个z值会返回给实参c,所以文本框中显示的内容为15。

  • 第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


    正确答案:D

  • 第11题:

    单选题
    窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:程序运行时,选中一个列表项,然后单击Command1按钮,则产生的结果是(  )。
    A

    若选中的不是最前面的列表项,则选中的列表项与它前一个列表项互换位置

    B

    选中的列表项与它前面的列表项互换位置

    C

    若选中的不是最后面的列表项,则选中的列表项与它后一个列表项互换位置

    D

    选中的列表项与它后面的列表项互换位置


    正确答案: B
    解析:
    当单击Command1按钮后,List1列表框中被选中项的索引值赋给变量n,如果被选中项不为空也不是第1项时,将选中项的项目文字赋值给变量ch,用选中项的上面一项的文字替换选中项的文字,再把变量ch中的文字替换成选中项上中项上面一项的文字,即选中项和它上面一项的位置进行交换。

  • 第12题:

    单选题
    设有如下通用过程:在窗体上画一个名为Command1的命令按钮,然后编写如下的事件过程:程序运行后单击命令按钮,输出结果是(  )。
    A

    ABCDEF

    B

    abcdef

    C

    AFBECD

    D

    DEFABC


    正确答案: C
    解析:
    在循环中,利用Mid函数使得变量tStr的值不断变化,然后通过命令按钮的单击事件调用循环所在的函数,UCase函数将Fun函数返回的结果字符串中的小写字母转换成大写字母。

  • 第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


    正确答案:D
    解析:程序中“n=Len(Str$(m)+Space(5))”的含义是算出字符串总长度,当把正数转换成字符串时,Str$函数在字符串前面留有一个空格,Space(数值表达式),则返回由数值表达式确定的空格个数组成的空字符串。 Str$(m)表示5个字符串,Space(5)表示5个字符串,所以n等于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


    正确答案:D
    解析:过程调用内在的Time函数来显示系统时间。此函数返回一个变体型数据,以日期/时间数值的形式表示当前时间。将它赋予某个字符串变量或属性时,比如赋予本例中的Caption属性时,VisualBasic将用“控制面板”中指定的格式将其转换成一个字符串。若要用其他格式显示,可使用Format函数。

  • 第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毫秒向右移动一次


    正确答案:D
    解析:Interval属性的单位为毫秒。

  • 第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

    打开窗体运行后,单击命令按钮,文本框中显示的内容是【 】 。


    正确答案:12
    12 解析:本题考查考生阅读VBA程序的能力。程序中调用p1(x,y,z)函数来将z的值交给文本框Text1,p1(x,y,z)函数实现将x与y相加,然后赋给z的功能。所以在文本框中显示的内容是12,是5+7的结果。

  • 第17题:

    在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮,然后编写一个事件过程。要求程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设 置为“VB等级考试二级”。以下能正确实现上述操作的事件过程是( )。


    正确答案:A
    A)    【解析】本题考查文本框的事件。文本框的Click 事件是单击文本框时触发的,Change事件是每次文本框中的文本发生改变时都要触发的事件。题目中要求当文本框的字符改变以后实现要求,因此应通过文本框的Change事件更改Commandl的Caption 属性。

  • 第18题:

    在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:

    Private Sub Command1_Cliek

    Dim b, k

    For k = 1 to 6

    b=23+k

    Next k

    MsgBox b + k

    End Sub

    打开窗体后,单击命令按钮,消息框的输出结果是【 】。


    正确答案:51
    51 解析:本题循环内部完成b=231+2+3+4+5+6的操作,当k=7时,结束循环,故消息框中显示的是51。

  • 第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


    正确答案:B
    当循环结束时,i=5,n=3,a(n)=3,b(n)=2*3+5=11,因此Textl=3+ll=14。

  • 第20题:

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl),编写如下事件过程:

    打开窗体运行后,单击命令按钮,文本框中显示的内容是__________。


    正确答案:
    15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时,参数有两种传递方式:传址传递和传值传递。如果在函数声明时没有说明传递类型,则默认为传址传递,即形参的结果会传递给实参。本题中形参均为传址传递,即a=x=3,b=y=5,c=z=10。但是在子程序里面对c重新赋值为c=a*b=15,这个值l5会回送给实参2,所以最后显示的值Z也就是l5。

  • 第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无数据


    B

  • 第23题:

    单选题
    窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器,并有下面的事件过程:程序运行时单击命令按钮,则产生的结果是(  )。
    A

    命令按钮每10秒向左移动一次

    B

    命令按钮每10秒向右移动一次

    C

    命令按钮每10毫秒向左移动一次

    D

    命令按钮每10毫秒向右移动一次


    正确答案: B
    解析:
    Interval属性单位为毫秒,因此10表示10毫秒。Left属性值是以窗体的最左边边界为坐标原点,该值表示该控件在窗体上的位置,若值增加则表示向右边移动,反之表示向左边移动。