1.建立一个表单modi comm xx
2.在表单中输入SET TALK OFF CLEAR Z=0 INPUT"输入一个正整数:" TO A FOR I=1 TO A FOR J=1 TO A STEP 2 IF I=J+J ?ALLTRIM(STR(I))+"="+ALLTRIM(STR(J))+"+"+ALLTRIM(STR(J)) Z=Z+1 ENDIF ENDFOR ENDFOR ?"个数为:",Z SET TALK ON3.运行do xx