A-A+

下面程序的功能是：求出所有的三位数其各位数字的立方和等于该数。如： 153=13+53+3

2022-08-12 20:17:46 问答库阅读 197 次

问题详情

下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer 【】 For i=100 To 999 x=i x1=【】个位数字 x2=x10 Mod 10 x3=x100 If【】Then Print i End If Next i End Sub

请帮忙给出正确答案和分析，谢谢！

参考答案

正确答案：Dim x As Integeri As Integer x Mod 10 x1^3+x2^3+x3^3=i
本程序中使用了“OptionExplicit”语句，因此程序中使用的所有变量都必须先定义，故[9]处应填变量定义语句“DimxAsInteger,iAsInteger”。要判断x是否为水仙花数，可首先把x的各位数字分离出来，[10]处显然是分离出个位数字，应填“xMod10”。然后判断各位数字的立方和是否与i相等，如果相等，则是水仙花数，所以[11]处应填“x1^3+x2^3+x3^3=i”。