vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n

/>Private Sub Form_Click()'1、* 编写程序,计算并输出下面数列中前n项的和。(设n=20)'   1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……    Dim sum&, i%, temp%, n%    n = Val(InputBox("n=", , 20))    For i = 1 To n        temp = i * (i + 1) * (i + 2)        sum = sum + temp    Next    Print sum    '2、* 编写程序,求500以内最大的10个能被13或17整除的自然数之和。    sum = 0    n = 500    i = 0    Do        If n Mod 13 = 0 Or n Mod 17 = 0 Then            sum = sum + n            i = i + 1        End If        n = n - 1    Loop Until i > 10    Print sum    '3、* 编写程序,计算并输出下面数列前n项的和。(设n=51)'    1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),……   (其中,^ 表示幂运算)    sum = 0    n = Val(InputBox("n=", , 51))    For i = 1 To n        temp = (-1) ^ (i - 1) * i * (i + 1)        sum = sum + temp    Next    Print sum'4、* 有200元钱需要兑换成零钱,零钱有10元,5元,1元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?    Dim j%    n = 0    For i = 1 To 20 Step 2        For j = 1 To (200 - 10 * i) / 5 Step 2            If (200 - i * 10 - j * 5) Mod 2 <> 0 Then n = n + 1 ':Print i; j; 200 - i * 10 - j * 5    Next j, i    Print nEnd Su