修改时间:2021-06-01 浏览次数:55 类型:期末考试
用VB程序实现水仙花数,如果一个三位数等于它的每个数字的立方的和,则此数称为“水仙花数”,如153=13+53+33 , 故153是水仙花数。求100~999之间的全部水仙花数
Private Sub Command1_Click()
Dim i, j, m, n As Integer
For
i = ´求百位上的数字
j = (n Mod 100) \ 10 ´求十位上的数字
m = n Mod 10 ´求个位上的数字
If Then
Print n; "="; i; "^3+"; j; "^3+"; m; "^3"
End If
Next n
End Sub
试题篮