下面程序的功能是找出这样一个三位整数:它等于每位数字的阶乘之和,例如145就是这样的数(即145 = 1!+ 4!+ 5!) Private Sub Command1_Click() Dim x As Integer, i As Integer,

admin2015-06-30  23

问题 下面程序的功能是找出这样一个三位整数:它等于每位数字的阶乘之和,例如145就是这样的数(即145 = 1!+ 4!+ 5!)
Private Sub Command1_Click()
    Dim x As Integer, i As Integer, j As Integer, k As Integer
    For i = 1 To 9
        For j = 0 To 9
            For k = 0 To 9
                a =  ___________________
                If a = fact(i) + fact(j) + fact(k) Then
                    Print a
                End If
            Next k
        Next j
    Next i
End Sub
Function fact(n As Integer) As Long
    Dim x As Long
    x = 1
    For k = 1 To n
        x = x * k
    Next k
    fact = x
End Function
程序不完整,在横线上应填写的是

选项 A、i * 100 + j * 10 + k
B、i * 1000 + j * 100 + k * 10
C、i * 10 + j * 10 + k * 10
D、fact(0) + fact(1) + fact(9)

答案A

解析 本题中fact()过程表示求得n的阶乘,即n!;程序中,i、j、k分别表示该整数的百、十、个位上的数,旨在使得100 * i + 10 * j + k = i!+ j!+ k!。故正确答案为选项A。
转载请注明原文地址:https://kaotiyun.com/show/ktQp777K
0

最新回复(0)