[填空題] 下面程序的功能是：求出所有的三位數(shù)，其各位數(shù)字的立方和等于該數(shù)。如： 153=1³+5³+3³。

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】 個(gè)位數(shù)字

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”語(yǔ)句，因此程序中使用的所有變量都必須先定義，故[9]處應(yīng)填變量定義語(yǔ)句“Dim x As Integer,i As Integer”。要判斷x是否為水仙花數(shù)，可首先把x的各位數(shù)字分離出來(lái)，[10]處顯然是分離出個(gè)位數(shù)字，應(yīng)填“x Mod 10”。然后判斷各位數(shù)字的立方和是否與i相等，如果相等，則是水仙花數(shù)，所以[11]處應(yīng)填“x1^3+x2^3+x3^3=i”。