在VBA中，编写下列程序：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=0Elsefun=mEndIfEndFunctionPrivateSubtest()DimiAsInteger,sAsIntegers=0Fori=1To3s=s+fun(i)NextDebug.PrintsEndSubtest宏运行后，窗口上显示的是____。['A:1', 'B:2', 'C:3', 'D:4']
中国审计数字在线-在VBA中，编写下列程序：PrivateFunctionfun(ByValmAsInteger)Ifm
