填空题
窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动 300twip。请在程序空白处填入适当内容使程序完整。
Private Sub Form_Load()
Picture1.Picture = LoadPicture("c:\My Documents\图片\Qian1_Icon02.ico")
______
End Sub
Private Sub Timer1_Timer()
Static x, y As Integer
x = x + 300
y = y + 300
Picture1.Move x, y
End Sub
【参考答案】
Timer1.Interval=1000
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
下列程序功能为:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请在程序空白处填入适当内容使程序完整。 Sub PrintOut() Dim a As Integer a = MsgBox( 输出结果 , vblnformation + vbYesNo, 提示: ) If a = ______ Then Print Myresult End If End Sub
点击查看答案&解析
填空题
设当前日期为2008年4月28日,星期一,则执行下面语句后的输出结果为______。 Print Day(Now) Print Month(Now) Print Year(Now) Print Weekday(Now)
点击查看答案&解析
相关试题
下面程序的功能是找出给定的12个数中最大...
如果要通过程序代码来一次性删除列表框中所...