2/1,3/2,5/3,8/5の分数配列があります。

2/1,3/2,5/3,8/5の分数配列があります。

Private Sub Command1_Click()Dim a As nbsp;Long, b As As nbsp;Long, cDim i  As nbsp;Integer, sum As As    nbsp;  nbsp; nbsp;nbsp;nbsp;nbsp;nbsp; nbsp;nbsp;nbsp;nbsp; nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; i = = 1 To 20  sum = = sum + + a nbsp;b     nbsp;Print i; a; """""""""        a &              ;           = a + b  b = cNextPrintPrintPrint sumEnd Sub