结贴的应该是楼主吧。
原来没考虑到文件名中有英文字母，把Form1的PDDC事件更改为以下代码试试吧。

PARAMETERS cIMG,cTPM
WITH Thisform
  .ImgBQ.Top=.Image&cIMG..Top
  .ImgBQ.Left=.Image&cIMG..Left
  .LbMC.Top=.ImgBQ.Top+80
  .LbMC.Left=.ImgBQ.Left+60
  .LbMC.FontSize=28
  TPMC=SUBSTR(ALLTRIM(.Picture),RAT("\",ALLTRIM(.Picture))+1)
  .LbMC.Caption=cTPM
  .LbMC.BackColor=RGB(255,255,170)
  .LbMC.BackStyle=1
  .ImgBQ.Picture=IIF(UPPER(cTPM)=UPPER(ALLTRIM(.Text1.Text)),".\对.PNG",".\错.PNG")
  STORE .T. TO .ImgBQ.Visible,.LbMC.Visible
ENDWITH

随机按钮还有点问题，一、出来一组四张图片后，点随机再点图片后，当第2次点随机的时候会出现重复刚才的图片，有时候要点3、4次才随机到没点过的图片，点过的图片要标记为已点过，要在这四张图片全部点过后，再次将这四张图片全部标记为未点过。二、先点随机再点图片后，这时如果再点更换的话会出现开始按钮，会将原先已经出来的图片重新随机再出来，就是说将全部的图片重新开始随机排列了，出来过的图片应该不出来了，我想要的随机按钮是只随机当前一组四张图片，而不影响全局的那个随机

应楼主要求，重新修改了一下：

感谢版主爷爷，在学校用了两天小朋友们都很是喜欢这个寓教于乐的小游戏，不过为什么我用下面的代码做成prg后，就会在所有图片出现后要重新随机时会出来打开表的对话框，出错的语句是 对象：cmdstart  过程：click  
SCAN    &&光标停在这里
  Thisform.List1.AddItem(ALLTRIM(DWM))
ENDSCAN

点击图片播放音乐.prg   (在百度上找到的)
close all                          
_screen.visible=.f.                 &&不显示vfp窗口
set talk off                        &&关闭系统对话
set century on                      &&年份显示四位
set date to ymd                     &&日期显示格式改为：年月日
set mark to "-"                     &&日期分隔符改为："-"
do form 点击图片播放音乐.scx     &&执行你的表单，将main.scx改成你的表单的名字。
read events           &&开始执行事务，此句不可省略！！！
set talk on          &&从此句开始恢复系统默认设置
set century off
set date to american
set mark to "/"
close all

可能是改变了当前工作区，而当前工作区中没有表。在 SCAN 之前加上下面语句试试。
SELECT DWMC

我自己解决了，是prg中多加了最后一句“close all”，还是要感谢版主不厌其烦地帮忙，祝您全家幸福快乐，平安健康，祝您天天开心！