作业帮 > 数学 > 作业

用VF 写程序 :求1~1000之内的同构数

来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/11/10 20:10:40
用VF 写程序 :求1~1000之内的同构数
(同构数:若A是同构数,则A出现在A的平方数右边.如:5*5=25,5出现在25的右边)
用VF 写程序 :求1~1000之内的同构数
clear
?"1~1000之内的同构数有:"
for i=1 to 1000
k=i*i
m=len(alltrim(str(i)))
if (k-i)%(10^m)=0
?i
endif
endfor
再问: alltrim()是什么意思?
再答: 去掉字符串前后空格
再问: 将“ m=len(alltrim(str(i)))”有什么作用?
再答: 得到i的位数,如5的位数就是1,25的位数就是2,625的位数就是3