.这点小问题 先定义一下 整数变量 a,b,c Dim a as integer Dim b as integer Dim c as integer Dim str as String String="" For a= 0 To 9 For b= 0 To 9 For c= 0 To 9 if a*100+b*10+c+c*100+b*10+a=1333 then str=str+a+","+b+","+c& vbcrlf end if next c next b next a Msgbox str 你不妨修改一下,我这里没有调试~