[填空题] 下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。Option ExplicitPrivate Sub Form_Click()D

[填空题] 下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub Form_Click() D

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

Option Explicit

Private Sub Form_Click()

Dim x1 As Integer,x2 As Integer,x3 As Integer

【9】

For i=100 To 999

x=i

x1= 【10】 个位数字

x2=x10 Mod 10

x3=x100

If 【11】 Then

Print i

End If

Next i

End Sub

正确答案：

[I]Dim x As Integer,i As Integer [A0]x Mod A0 [AA]xA^C+xB^C+xC^C=i

参考解析：

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