如果一个数的因子和等于这个数本身,则称这样的数为“完全数”.编写VB程序,求1~500之间的完全数
题目
如果一个数的因子和等于这个数本身,则称这样的数为“完全数”.编写VB程序,求1~500之间的完全数
答案
Dim i,j,s As Integer
For i = 1 To 500
s = 0
For j = 1 To i \ 2 'i \ 2 表示整除结果
If i Mod j = 0 Then s = s + j
Next j
If i = s Then Print i & " 是 完数"
Next i
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 0,9,26,65,124,( )怎么计算
- 语文问题 将军身披执锐 怎么停顿 用一个“/” 复立楚国之社稷 怎么停顿用一个“/”
- have to后面加动词原形吗?
- 甲乙两车分别从AB两地相对而行,相遇后甲车用4小时到达B地,乙车1小时到达A地,甲乙两车的速度比是
- 怎样的月亮 怎样的月光 怎样的月色 怎样的月夜
- 某两个数的积是56,如果这两个数都扩大到原来的7倍,他们的积就变为多少
- 长方形的转动惯量如何计算
- 有ABC三个金属球,A球最重(A>B>C),C球最轻,另外还有一个球d,作用,若用无法码天平称两次,你能确定d球
- 以读书为题的文章
- The films were in the bag(对划线部分提问)