粤教版（B版）信息技术2020-2021八年级下册期末试题

1  Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

2      Select Case KeyCode

3      Case 37

4          Image1.Picture = LoadPicure(App.Path& "\pic\tank1.jpg")

5              If Image1.Left - 20 < 0 Then

6                  Image1.Left=0

7              Else

8                  Image1.Left= Image1.Left-20

9              End If