设有如下程序: Private Sub Form_C1ick() Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n

admin2013-01-23  26

问题 设有如下程序:
    Private Sub Form_C1ick()
        Dim s As Long,f As Long
        Dim n As Integer,i As Integer
        f=1
        n=4
        For i=1 To n
            f=f*i
            s=s+f
        Next i
        Print s
End Sub
    程序运行后,单击窗体,输出结果是

选项 A、32
B、33
C、34 0)35

答案B

解析 i=1时,f=f*i=1*1=1,s=s+f=0+1=1.i=2时,f=f*i=1*2=2,s=s+f=1+2=3,i=3时,f=f*i=2*3=6,s=s+f=3+6=9,i=4时,f=f*i=6*4=24,s=s+f=9+24=33,因此本题答案为B)。
转载请注明原文地址:https://jikaoti.com/ti/hoO0FFFM
0

最新回复(0)