二试练习题（VB1）

单击start按钮,潜水艇慢慢从水下浮起，背部露出在水面上，然后慢慢下沉。

参考解如下:

Private Command1_Click()
For I=1 to 4000 '4000是潜水艇上升的距离
Image2.Top = Image2.Top – 1
Next
For I=1 to 4000
Image2.Top = Image2.Top + 1
Next
End Sub

解法2：也可以用2个Timer控件完成，这样的程序就可以控制自如。

Private Command1_Click()
Timer1.Interval = 10 '上升中不允许下沉
Timer2.Interval = 0
Image2.Top = 4000
End Sub

Private Sub Command2_Click()
Timer2.Interval = 10 '下沉中不允许上升
Timer1.Interval = 0
Image2.Top = 1700
End Sub

Private Sub Timer1_Timer()     '上升
If Image2.Top < 1700 Then      '1700上升的位置
   Timer1.Interval = 0
Else
   Image2.Top = Image2.Top - 20
End If
End Sub

Private Sub Timer2_Timer()     '下沉
If Image2.Top > 4000 Then      '4000下沉位置
   Timer2.Interval = 0
Else
   Image2.Top = Image2.Top + 20
End If
End Sub
　

2．点击客车，客车沿着公路自右向左行驶，停在画面的左端。

Private Sub Command1_Click()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If Image2.Left < 0 Then    '向右判断Image2.Left >窗体的宽, 加Left值
   Timer1.Interval = 0
Else
   Image2.Left = Image2.Left – 50   '向右Left加值
End If
End Sub

3．作品要求：直升飞机从屏幕右上角向左下飞行停在航空母舰的甲板上。

左上飞行Image2.Top = Image2.Top-50; Image2.Left = Image2.Left – 50

右下飞行Image2.Top = Image2.Top+50; Image2.Left = Image2.Left +50

4．用鼠标单击窗口右下角的“开始”图像，便在其上方出现“开始菜单”。

Private Sub Form_Load()
Image2.Visible = False 'Image2是“开始”图像
End Sub

Private Sub Image1_Click() 'Image1是“开始菜单”图像
Image2.Visible = True
End Sub

Private Sub Image2_Click()
Image2.Visible = False
End Sub

5．用鼠标点击窗户，窗帘就慢慢在窗帘箱内向下展开，直到全部展开为止。

Private Sub Form_Load()
Image2.Height = 20 '收窗帘不做这句,只要调整彼此位置即可
End Sub

Private Sub Image1_Click()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Image2.Height = Image2.Height + 20 '收窗帘-20
If Image2.Height > 3700 Then Timer1.Interval = 0
End Sub

6．单击公交车，公交车沿固定路线慢慢行驶，到达站点时打开车门。

Private Sub Image2_Click() 'Image2为公交车图片
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If Image2.Left < 20 Then          'Image2.Left =20为站点位置
   Timer1.Interval = 0
   Image3.Visible = True          '显示打开车门的公交车
   Image2.Visible = False        '隐藏公交车
Else
   Image2.Left = Image2.Left – 90 '没到站点继续向前行驶
End If
End Sub

字幕自屏幕下方升起，不断往上，直至消失。

Private Sub Command1_Click()
Timer1.Interval = 100 '将定时器的Interval事件间隔设置为0.1秒
End Sub

Timer1定时器的Timer事件代码如下：

Private Sub Timer1_Timer()
Text1.Top = Text1.Top – 30 'Text1.Top减少值和
Text1.Height = Text1.Height + 30 ‘Text1.Height的增加值设置成同步变化
If Text1.Top < -1550 Then Timer1.Interval = 0 'Text1.Top < -1550字幕消失
End Sub
　

正弦曲线从原点开始逐渐显示出一个周期的图像。

Private Sub Command1_Click()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 20 '用同色的Picture1做移动盖板
End Sub

解法2：改变正弦曲线图片的宽度

Private Sub Command1_Click()
Image1.Width = 20
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Image1.Width = Image1.Width + 20
If Image1.Width > 4140 Then Timer1.Interval = 0
End Sub

模拟地对空导弹的过程，单击炮设备，炮弹从炮口发出至目标在天空中飞行的飞机，击中后炮弹和飞机消失。

Private Sub Image2_Click() '单击炮设备
Timer1.Interval = 100
Timer2.Interval = 100
End Sub

Private Sub Timer1_Timer()
Image 1.Left = Image 1.Left – 100  '飞机向左飞行
If Image 1.Left < 500 Then         '炮弹击中飞机
Timer1.Interval = 0
Timer2.Interval = 0
Image 1.Visible = False             '飞机消失
Image 2.Visible = False             '炮弹消失
End If
End Sub

Private Sub Timer2_Timer()
Image 2.Left = Image 2.Left – 100 '炮弹左上飞行
Image 2.Top = Image 2.Top - 80
End Sub

制作一小球在桌面上弹起后又落下的动态效果。

Private Sub Command1_Click()    '桌面图片为Image，小球为Image2
Image2.Top = 3000                '小球在桌面上的位置
Do While Image2.Top > 0
   Image2.Top = Image2.Top – 1 '小球向上弹起
Loop
Image2.Top = 1
Do While Image2.Top < 3000
   Image2.Top = Image2.Top + 1   '小球下落
Loop
End Sub

自己练习:

直升飞机从航空母舰的甲板上垂直向上起飞，停在半空中。
用鼠标点击“路口”图象，红灯变成“绿灯”。
客车沿着公路自右向左行驶，停在画面的左端。
用鼠标点击窗帘，窗帘就慢慢向上往窗帘箱内收起，直到看不见为止。
校门上方有一个电子显示屏，显示着“欢迎新同学！”，文字自右向左移动显示。(PS:将显示着“欢迎新同学！”的Label1的BackStyle设置为1透明。)
轮船自左向右慢慢驶向画面右边的港口。
用鼠标点击汽车，车灯便亮了。（用显示隐藏控件的方法）
小球弹到小人时，小人出现惊恐的表情。(PS:本题可以先将小人惊恐表情的图片隐藏在目标位置，当小球弹到小人时隐藏小人而显示小人惊恐表情。)