填空题
下面程序的功能是:求出所有的三位数,其各位数字的立方和等于该数。如: 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=x/10 Mod 10 x3=x/100 If 【11】 Then Print i End If Next i End Sub
1、
【正确答案】
1、[9]Dim x As Integer,i As Integer [10]x Mod 10 [11]x1^3+x2^3+x3^3=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”。