题目
如果一个数的因子和等于这个数本身,则称这样的数为“完全数”.编写VB程序,求1～500之间的完全数
提问时间：2021-04-01
答案
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
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的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1能不能把您写的这篇——《如何学好英语》的英语作文翻译成中文?（有急用）
- 2关于公文发文字号的疑问
- 3已知集合A={x|2a-2＜x＜a}，B={x|1＜x＜2}，且A⊊∁RB，求a的取值范围．
- 4已知函数f（x）=log2（x+1），设a＞b＞c＞0，则f(a)a，f(b)b，f(c)c的大小关系是（ ） A.f(a)a＜f(b)b＜f(c)c B.f(a)a＜f(c)c＜f(b)b C.f
- 5he had little to say at the meeting求转换同义句he ______ ________at the meeting急需
- 6It is often windy in March变为同义句
- 7二极管的正向电阻越大,反向电阻越小则单项导电性越差还是越好?
- 8I am excited中excited是形容词还是被动语态,如何判断?
- 9b分之a中,当a( )时,它等于0;当a( )时,它是真分数；当a（ ）时,它是假分数；当a（ ）时,它等于1.
- 10数学中的字母s.v.t代表什么
热门考点
- 10,9,26,65,124,( ）怎么计算
- 2语文问题 将军身披执锐 怎么停顿 用一个“/” 复立楚国之社稷 怎么停顿用一个“/”
- 3have to后面加动词原形吗?
- 4甲乙两车分别从AB两地相对而行,相遇后甲车用4小时到达B地,乙车1小时到达A地,甲乙两车的速度比是
- 5怎样的月亮 怎样的月光 怎样的月色 怎样的月夜
- 6某两个数的积是56,如果这两个数都扩大到原来的7倍,他们的积就变为多少
- 7长方形的转动惯量如何计算
- 8有ABC三个金属球,A球最重（A>B>C),C球最轻,另外还有一个球d,作用,若用无法码天平称两次,你能确定d球
- 9以读书为题的文章
- 10The films were in the bag(对划线部分提问)