计算机ACCESS程序改错例题

r.NET.\rDebug.prints-x\r6ª«¬?­®'¯”­¯'®°›±²?ƒd@)³?121?\rƒ«¬@WXTU)45­1981´µ¶k3000´:·)(7K\rL´¸?«¬@¸@(11)\rn=0\rForx=1981to3000\ra=int(x/1000)\rb=int((x-a*1000)/100)\rc=int((x-a*1000-b*100)/10)\rd=xmod10\rIfa=dandb=cthen\rn=n+l\rEndif\rNext\rDebug.printnEvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rWXTU)Y41000~9999 Z67DE-•HI>9,\re?ƒ¹ºOB);&L29@ 0:12,&3\n49@\r \:24@(1)\rs=0\rForx=1000to9999\ra=int(x/1000)\rb=int((x-a*1000)/100)\rc=int((x-a*1000-b*100)/10)\rd=xmod10\rIfint(sqr(x))=sqr(x)anda+b=12andc*d=24then\rs=s+l\rEndif\rNext\rDebug.printsEvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\r"¼½ž”?¿Fd)??9@AB023eÀÁ@WX\rTU100'400st.7KL¼½ž@03 \rn=0\rForx=100to400\ra=x\100\rb=(x\10)mod10\rc=xmod10\rIfaA3+bA3+cA3=xthen\rn=n+l\rEndif\rNext\rDebug.printn