来个大佬帮帮楼主

快来人啊，五点四十就下课了

Dim m As Integer, n As Integer
Dim a As Integer
Randomize
m = Int(Rnd * 90) + 10
n = Int(Rnd * 90) + 10
Picture1.Print m & "+"; n & "=";
a = InputBox("请输入结果")
Picture1.Print a
Rem 保存工程
Rem 在保存工程的文件夹下下载两个图片
Rem 一个命名为笑脸.jpg，另一个命名为哭脸.jpg
If a = m + n Then
Image1.Picture = LoadPicture(App.Path & "\笑脸.jpg")
Else
Image1.Picture = LoadPicture(App.Path & "\哭脸.jpg")
End If

face05和face06文件复制到当前文件夹下
If a = m + n Then
Image1.Picture = LoadPicture(App.Path & "\FACE05.ICO")
Else
Image1.Picture = LoadPicture(App.Path & "\FACE06.ICO")
End If

大佬，你看我出现了这个问题，这是哪里出错了啊

Picture1.Print m & "+"; n & "=";这句没有打上.
另外是image不是imagine