窗体中有图片框(Picturel)和计时器(Timerl)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动300twip。
请填空。
Private Sub Form_Load()
Picturel.Picture=LoadPicture("c:\My Documents\图片\Qianl_Icon02.ico")
______
End Sub
Private Sub Timer1_Timer()
Static x,y As Integer
x=x+300
y=y+300
Picturel.Move x,y
End Sub
第1题:
窗体中有图片框(Pieture1)和计时器(Timer1)两个控件。运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左,向右移动100twip。请填空。
Private Sub Form_ Load()
Picture1_icture=LoadPicture(“c:\pic\mouth.ico”)
【 】.Interval=2000
End Sub
Private Sub Timer1_ Timer()
Static x,y As Integer
x=x+100
y=y+100
Pictuer1.Move [x, y]
End Sub
第2题:
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
Private Sub Form_Click()
Textl.Text="VB程序设计"
End Sub
Private Sub Textl_Change()
Picturel.Print"VB programming"
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
第3题:
窗体中有图片框(Picture1)和计时器(Timer1)两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左、向右移动100单位。请在[ ]填空:
load;Interval;move
略
第4题:
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture("c:\picture.jpg") Picmrel.Cls Picturel.Print "picture" End Sub
A.窗体无显示,图片框显示图片和文字picture
B.窗体上出现picture文本,图片框无显示
C.窗体上出现picture文本,图片框显示图片picture.jpg
D.窗体无显示,图片框只显示picture文字
第5题:
设窗体上有图片框Picture1和计时器Timer1两个控件,运行程序时,将图片加载到图片框中,然后图片框以每5秒钟一次的速度向窗体的右下方移动,每次向右、向下移动100。请补充程序中的空白处。
①Timer1
②Static x,y As Integer
③x,y
略