vb啊vb，这里有一只小白求编写这个程序

Question

按要求设计如图所示的窗体，要求：当鼠标滑动到小人的头像时，小人随机向上，下，左，右4个方向移动：当小人接触到窗体的边界时，提示"你把我赶出界了“，并由笑脸变为哭脸。
提示：可以用choose函数进行方向的设定，choose函数用法如下：fx=choose(a,"上"，"下"，"左"，"右")
当a=1时，fx的值为上，以此类推
。。。。。。之前有一位大神帮了我，但是我仍然编写不出程序，会msagebox和笑脸变哭脸= = 嗯，我是来不要脸的求程序的。。。

Answer 1

Dim flag As Integer
Dim ac As Boolean
Dim image_top As Integer, image_left As Integer
Dim xiaolian As StdPicture, kulian As StdPicture
Private Sub Form_Load()
image_top = Image1.Top
image_left = Image1.Left
Timer1.Interval = 100
Timer1.Enabled = False
Image1.Stretch = True
Set xiaolian = LoadPicture("c:\1.jpg") '图片路径
Set kulian = LoadPicture("c:\2.jpg")
Image1.Picture = xiaolian
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not ac Then
    flag = choose
    Timer1.Enabled = True
    ac = True
End If
End Sub
Private Function choose() As Integer
Randomize
choose = Int(Rnd * 4 + 1)
End Function
Private Sub Timer1_Timer()
Dim lr As Integer, ud As Integer
Select Case flag
    Case 1 '向右
        lr = 1
    Case 2 '向左
        lr = -1
    Case 3 '向下
        ud = 1
    Case 4 '向上
        ud = -1
End Select
If Image1.Left + 100 * lr <= 0 Or Image1.Left + 100 * lr + Image1.Width >= Me.ScaleWidth Or Image1.Top + 100 * ud <= 0 Or Image1.Top + 100 * ud + Image1.Height >= Me.ScaleHeight Then
    ac = False
    Timer1.Enabled = False
    Image1.Picture = kulian
    MsgBox "你把我赶出界了"
    Image1.Picture = xiaolian
    Image1.Top = image_top
    Image1.Left = image_left
    Exit Sub
End If
Image1.Left = Image1.Left + 100 * lr
Image1.Top = Image1.Top + 100 * ud
End Sub

   

Answer 2

你有素材吗？有没有小人，哭脸和笑脸的图片？追问

有，我会把笑脸变成哭脸

= = 就这两只



