求1000以内奇数的算术平方跟之和 vb编程枚举算法
题目
求1000以内奇数的算术平方跟之和 vb编程枚举算法
1.求1000以内奇数的算术平方跟之和 vb编程
2.如果一个数的因子(除自身外)之和等于这个数本身,则称这样的数为”完全数“.例如,整数28的因子为1,2,4,7,14,其和为1+2+4+7+14=28,因此28是一个完全数,编写一个程序,求出1000以内所有的完全数
3.输出从公元1600年到公元2000年中所有闰年的年份的数量(1)年份若能被4整除,而不能被100整除,则为闰年(2)年份如能被400整除也是闰年
答案
帮你做好了附件,你自己研究一下吧,
Private Sub Command1_Click() '奇数算术平方根之和
Dim i As Long, m As Double, iSum As Double
Me.Cls
For i = 1 To 1000 Step 2
m = i ^ (1 / 2)
iSum = iSum + m
Next
Print "1000以内奇数的算术平方根之和为:" & iSum
End Sub
Private Sub Command2_Click() '完全数
Dim i As Integer, m As Integer, n As Integer
Me.Cls
Print "1000以内的完全数如下:"
For i = 1 To 1000
n = 0
For m = 1 To i 2
If i Mod m = 0 Then n = n + m
Next
If n = i Then Print i;
Next
End Sub
Private Sub Command3_Click() '闰年
Dim i As Integer, n As Integer
Me.Cls
Print "1600至2000年之间所有闰年如下:"
For i = 1600 To 2000
If i Mod 4 = 0 And i Mod 100 <> 0 Or i Mod 400 = 0 Then
n = n + 1 '用来控制分5列打印
If n Mod 5 <> 0 Then Print i; Else Print i
End If
Next
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 直三棱柱ABC_A1B1C1的各定点都在同一个球面上,若AB=AC=AA1=2,∠BAC=120°,则此球的表面积等于?
- 求矩阵4 2 -5,6 4 -9,5 3 -7的特征值和特征向量
- 十一届三中全会的意义
- 我要找一篇500字左右,让生命更有意义的文章,如果好,我会狂加分,有的请速度回电!
- paris sounds like a city [ ] i could enjoy 1 when 2 who 3 that 4 where
- 一项工程,甲乙两人合作18天可以完成,甲独做要30天完成.现在甲乙两人合作3天,再由甲单独做5天,还剩这
- 将重为10牛的小球放在盛满水的容器中,从容器中溢出6牛的水,则小球所受的浮力大小为
- high的最高级 和 比较级
- 32g氧气中完全燃烧可得到多少g二氧化硫?
- 六只杯子排一行,左边三只盛有水,右边三只是空的.现在要使盛有水的杯子和空杯子间隔着排,只准动一个杯子,
热门考点