我用下面的自動功能實現了崗位的要求。我的程序代碼如下(代碼在模塊裏):
進入上述程序後，可以在表格中進行計算。下面是我計算10和20的壹個例子:
程序文本代碼如下:
選項顯式
函數用戶定義的函數1(n)為Double
尺寸r#，i%
if VarType(n)& lt；& gt那就vbDouble
自定義函數1 = " parameter " &；n & amp“不是整數！”
其他
r = 1
對於i = 2至n - 1
如果n Mod i = 0，則
如果素數判斷(I)那麽r = r * (1-1/i)
如果…就會結束
接下來我
自定義函數1 = r
如果…就會結束
結束功能
函數素數判斷(n)為布爾型
維度i%
素數判斷=假
對於i = 2至n - 1
如果n Mod i = 0，則退出功能
接下來我
素數判斷=真
結束功能