用vb求1到1000水仙花数的编程方法

已举报 回答 关注

用vb求1到1000水仙花数的编程方法

  • 回答数

    3

  • 浏览数

    2,295

3个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
所谓的水仙花数(梅花数)是指在三位整数(100到999之间)中,百位数、十位数、个位数的立方和等于它本身,如153=1^3+5^3+3^3。
程序代码如下:
Private Sub Command1_Click()
Dim i As Integer, s As Integer
Dim a As Integer, b As Integer, c As Integer
Print "100到999所有水仙花数(也叫梅花数):";
For i = 100 To 999
a = i \ 100 '取百位数
b = i \10 Mod 10 '或 b = i Mod 100 \10 取十位数
c = i Mod 10 ‘取个位数
s = a ^ 3 + b ^ 3 + c ^ 3 '水仙花数的判断依据
If s = i Then
Print i;
End If
Next i
End Sub

运行结果:
100到999所有水仙花数(也叫梅花数): 153 370 371 407
取消 评论
随便搜一下就有了
http://baike.baidu.com/view/152077.htm?fr=ala0
取消 评论
Private Sub Command1_Click()
Dim s%, s1%, s2%, t%
For s = 100 To 1000
s2 = 0
t = s
Do While t > 0
s1 = t Mod 10
t = t \ 10
s2 = s2 + s1 ^ 3
Loop
If s = s2 Then
Print "水仙花数为:"; s
End If
Next s
End Sub
取消 评论
ZOL问答 > 鼠标 > 微软鼠标 > 其他分类 > 用vb求1到1000水仙花数的编程方法

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

提示

确定要取消此次报名,退出该活动?