《中级财务会计教案》第四章 金融资产

1.编程计算1-

privatesubform_clickdimi%，s。，t。i=0s=0t=1dowhileabs（t）>=0.000001s=s+ti=i+1t=-t/（（2*i）*（2*i+1））loopform1.print"计算了";i;"项，其结果是";sendsub

2.输入两个正整数m和n，求其最大公约数a。

privatesubcommand1_clickdimaasintegerdimbasintegerdimrasintegera=val（text1.text）b=val（text2.text）r=amodbdowhiler0a=bb=rr=amodblooptext3.text=str（b）

endsub

privatesubcommand2_clickendendsub