2. 计算机
  3. 下面程序的功能是找出这样一个三位整数：它等于每位数字的阶乘之和，例如145就是这样的数（即145 = 1！+ 4！+ 5！） Private Sub Command1_Click() Dim x As Integer, i As Integer,

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

admin2015-09-23  72
问题 下面程序的功能是找出这样一个三位整数：它等于每位数字的阶乘之和，例如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/sFLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)