1樓：
private sub form_click()dim i, j as integer
dim temp, answer as doublefor i = 1 to 10
temp = 1
for j = i to 1 step -1temp = temp * j
next j
answer = answer + tempnext i
print "答案為：" & answerend sub
2樓：伊人尤在
private function factor_sum(n as integer) as integer
factor_sum=0
for i=1 to n
f=1for j=1 to i
f=f*j
next j
factor_sum=factor_sum+fnext i
end sub
呼叫時:
result=factor_sum(10)或 print factor_sum(10)即可.
怎樣用vb實現簡單的翻譯，用vb製作翻譯器
public function convertstring byval strtext as string dim stra as variant stra a b c d e f g h i j k l m n o p q r s t u v w x y z a b c d e f g h i j...
用EXCEL函式實現功能，用EXCEL函式實現一個功能
應該用 sumif a 2 a 8,a2,c 2 c 8 其中的a2 a8,c2,c8要用絕對引用,且修改為紀錄總行數 如圖所示 公式為 sumif a2 a5,a2,c2 c5 試試吧，但願能夠幫助您！除了用公式 sumif a a,小二 c c 還可以可以用篩選功能 排序和篩選 篩選 姓名列篩選...
excel用vb實現，ABC列為每行有數字若干行，DE1是公式判斷，返回0和1,當為0時不再往下計算
d列為0，不再往下計算d列資料，e列為0,不再往下計算e列資料。還是d為0，則d,e列相同行的下面均不計算，或者e為0，de列相同行均不往下計算 還是d為0，且e為0，才不計算下面的？很難分別你的意思。sub mysub dim i as integer end sub 直接計算出再判斷不是更好？下...