填空题
窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动300twip。请填空。
Private Sub Form_Load()
Picture1.Picture=LoadPieture("c:\My Documents\图片\Qian1_Icon02.ico")
______
End Sub
Private Sub Timer1_Time()
Static x,y As Integer
x=x+300
y=y+300
Picture1.Move x,y
End Sub
【参考答案】
Timer1.Interval=1000
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
如果要通过程序代码来一次性删除列表框中所有项目,则应使用的方法是______。
点击查看答案&解析
填空题
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base 1 Private Sub Form_Click() Dim x x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90) Max=1 For k=2 To 10 Step 1 lfx(k)>x(Max)Then ______ End If Next k y=______ Print Max,y End Sub
点击查看答案&解析
相关试题
下列程序的功能是:弹出一个对话框询问用户...