PrivateSubCommand1_Click()Dimj,n,sAsIntegern=100s=0Forj=1Tons=s+f(j)NextPrint"S=1＋（1＋2）＋（1＋2＋3）＋…＋（1＋2＋3＋4＋…＋100）=",sEndSubFunctionf(BybalnAsInteger)AsIntegerDimi,tAsIntegers=0Fori=1Tont=t+iNextf=tEndFunction
網站導航
- zblogPHP模板zbpkf
- zblog免費模板zblogfree
- zblog模板學習zblogxuexi
- zblogPHP仿站zbpfang