云肝柴麻寡喘VB囂冱柴麻�云栖�和倖C++徽頁挫�嗤泣寄�VB鑑試阻。

　　+12-+13(參丗捲蔑瞳葎箭�深打撹海払移朔卦珊20倖哩頭)

　　析議撹海圭塀紗幡峠譲峙葎(叙深打念100肝撹孔議秤趨�100肝參朔議古楕自弌�策待)

　　286.66倖麻隈�

　　Private Sub Command1_Click()

　　Dim a, b, c, d As Double

　　a = 0

　　b = 0

　　c = 0

　　d = 1

　　e = 0

　　Do

　　b = b + 1

　　c = b

　　Do

　　d = d * 0.7

　　c = c - 1

　　Loop Until c = 0

　　a = a + d / 0.7 * 0.3 * (b * 80 + 20)

　　d = 1

　　Loop Until b = 100

　　Print a

　　End Sub

　　仟議峠譲峙葎

　　251.88倖 麻隈�

　　Private Sub Command1_Click()

　　Dim a, b, x, y, z As Double

　　a = 0

　　b = 0

　　x = 0

　　y = 1

　　z = 0

　　Do

　　x = x + 1

　　z = x

　　Do

　　y = 0.998 * y

　　z = z - 1

　　Loop Until z = 0

　　a = a + y / 0.998 * 0.002 * x

　　b = a + y * 350

　　y = 1

　　Loop Until x = 349

　　Print b

　　End Sub

　　刮麻涙列

　　揖尖誼+15-+16 析�1040.00 仟�772.38

　　+16-+17析�1182.85仟�909.23

　　+17-+18析�1373.28仟�1013.44

　　+18-+19 +19-+20 析�2035.68仟�1504.13

　　+8-+9析�36.00 仟�34.60

　　+9-+10析�39.56 仟�37.11

　　+10-+11析�44.00仟�41.84

　　+11-+12析�49.71 仟�46.61

　　+13-+14析，�339.00 仟�300.45

　　+14-+15析�420.00 仟�361.24

　　冷匂葎契醤議5蔚�心劔徨仟議曳熟挫�珊頁峠譲方彈鳩�久和議夕頁屎蓑蛍下議。