[主观题]

窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向下、向右移动100twip。请填空。

Private Sub Form_Load()

Prcture1_Picture=LoadPicture("c/pic/mouth.ico")

______.Interva=2000

E.nd Sub

Prinvate Sub Timer1_Timer()

Static x,y As Integer

x=x+100

y=y+100

Pictuer1.Move[x,y]

E.nd Sub

参考答案与解析:

相关试题

在窗体上有一个文本框控件,名称为TextTime;£­£­个计时器控件,名称为T

[单选题]在窗体上有一个文本框控件,名称为TextTime;--个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为: Private Sub Timer1_ ______ TxtTime.text=Time End Sub 在下画线上应填入的内容是A.EnabledB.VisibleC.IntervalD.Time

  • 查看答案
  • 在窗体上有一个计时器控件Timer1和一个标签控件Labe11,在程序运行的时候

    [单选题]在窗体上有一个计时器控件Timer1和一个标签控件Labe11,在程序运行的时候,可通过每隔30ms让Labe11左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动,如图20-9所示。空格处应填( )。 Private Sub Form_Load() Labell.Left=Form1.Width Timer1.Interval=30 Timer1.Enabled=True End Sub Private Sub Timer1_Timer() Labell

  • 查看答案
  • 在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Time

    [单选题]在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:Private Sub Timer1_ _________( )TxtTime.text=TimeE.nd Sub在下划线上应填入的内容是A.EnabledB.VisibleC.IntervalD.Timer

  • 查看答案
  • 在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Time

    [单选题]在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为: Private Sub Timerl_ ______ TextTime.text=Time End Sub 在下划线上应填入的内容是( )。A.Ena bledB.ViSibleC.IntervalD.Timer

  • 查看答案
  • 在窗体上有一个文本框控件,名称为TextTime,一个计时器控件,名称为Time

    [单选题]在窗体上有一个文本框控件,名称为TextTime,一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。 Private Sub Timer1______ TextTime.Text=Time End Sub 在横线上应填入的内容是( )。A.EnabledB.VisibleC.Timer()D.Interval

  • 查看答案
  • 在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Time

    [单选题]在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timerl。要求每一秒在文本框中显示一次当前的时间。程序为:Private Sub Timer1_ ________TxtTime.text=TimeE.nd Sub在下划线上应填入的内容是A.EnabledB.VisibleC.IntervalD.Time

  • 查看答案
  • 在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer

    [单选题]在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。程序为: Private Sub Timerl ______ TxtTime.text=Time End Sub 在下划线上应填入的内容是A.EnabledB.VisibleC.IntervalD.Timer

  • 查看答案
  • 在窗体上有一个文本框控件,名称为TxtTime,一个计时器控件,名称为Timer

    [单选题]在窗体上有一个文本框控件,名称为TxtTime,一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。程序为:Private Sub Timer1_()【】Txt Time.text=TimeEnd Sub在【】中填入合适的事件()A . EnabledB . VisibleC . IntervalD . Timer

  • 查看答案
  • 在窗体上有一个文本框控件,名称为TxtTime,一个计时器控件,名称为Timer

    [单选题]在窗体上有一个文本框控件,名称为TxtTime,一个计时器控件,名称为Timer1,要求每一秒钟在文本框中显示一次当前的时间。程序为: Privme SubTimer1_ ______( ) TxtTime.text=Time End Sub 在下划线上应填入的内容是A.EnabledB.VisibleC.IntervalD.Timer

  • 查看答案
  • 在窗体上有一个计时器控件Timer1和一个标签控件Label1,在程序运行时可通

    [单选题]在窗体上有一个计时器控件Timer1和一个标签控件Label1,在程序运行时可通过每隔30毫秒让Lable1左移100缇,从而产生文字移动动画效果。文字从右向左移动,当移动到接近窗体左边界时停止移动。空格处应填 ______。 Private Sub Form1_Load() LabelLeft=FormWidth TimerInterval=30 ______ End Sub Private Sub Timer1_Timer() Lable1.Left=LableLeft -100 If La

  • 查看答案