(14)有下列程序,程序運(yùn)行后單擊命令按鈕,則輸出的結(jié)果是 Private Sub Command1_Click() Dim a%(1
(14)有下列程序,程序運(yùn)行后單擊命令按鈕,則輸出的結(jié)果是 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(a) S2=Factorial(b) Print"s1=";s1;"s2";s2; End Sub Function Factorial(a()As Integer) Dim t#,i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next i Factorial=t End Factorial A.s1=360 s2=24 B.s1=24 s2=360 C.s1=24 s2=24 D.s1=360 s2=360
正確答案:B【解析】Factorial函數(shù)的作用是計(jì)算參數(shù)數(shù)組a元素的累計(jì)乘積,即將數(shù)組a的元素從下界到上界循環(huán)相乘。在主調(diào)過(guò)程中,F(xiàn)actorial(a), Factorial(b)分別傳遞數(shù)組a和b,計(jì)算結(jié)果分別賦給s1和s2。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。